var interval = 6;
var random_display = 1; // 0 = no, 1 = yes
interval *= 1000;

var image_index = 0;
var image_title = '';
image_list = new Array();
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/conodoquinet.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/clinton_county.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/curwensville.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/first_fork.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/great_bend.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/penns_creek.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/port_deposit.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/pride.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/river_float.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/steuben.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/windsor.jpg");
image_list[image_index++] = new imageItem("http://www.srbc.net/indeximages/rotating_imgs/york.jpg");
var number_of_image = image_list.length;
var i = 20;

function imageItem(image_location) {
	this.image_item = new Image();
	this.image_item.src = image_location;
}

function get_ImageItemLocation(imageObj) {
	return(imageObj.image_item.src);
}

function rndIndex() {
	var j;
	var idx;
	var tmp;
	for (j = 0; j < number_of_image; j++)
	{
		idx = Math.floor((number_of_image - j + 0) * Math.random() + j);
		tmp = image_list[j];
		image_list[j] = image_list[idx];
		image_list[idx] = tmp;
	}
}

function generate() {
	if (i >= number_of_image)
	{
		rndIndex();
		i=0;
	}
	i+=1;
	return i-1;
}
	
function getNextImage() {
	if (random_display) {
		image_index = generate();
	}
	else {
		image_index = (image_index+1) % number_of_image;
	}
	
	var new_image = get_ImageItemLocation(image_list[image_index]);
	return(new_image);
}

function rotateImage(place) {

	var new_image = getNextImage();
	if (document.all){
		document[place].style.filter="blendTrans(duration=1)";
		document[place].filters.blendTrans.Apply();
	}
	
	document[place].src = new_image;
	
	/*
	switch(new_image)
	{
		case 'http://www.srbc.net/indeximages/rotating_imgs/great_bend.jpg':
			document[place].setAttribute('title','Susquehanna River at Great Bend, Susquehanna County, PA');
			break;
		case 'http://www.srbc.net/indeximages/rotating_imgs/port_deposit.jpg':
			document[place].setAttribute('title','Susquehanna River as seen from Port Deposit, MD, with Chesapeake Bay in the distance');
			break;
		case 'http://www.srbc.net/indeximages/rotating_imgs/pride.jpg':
			document[place].setAttribute('title','Pride of the Susquehanna paddle boat at Harrisburg, Dauphin County, PA');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/windsor.jpg':
			document[place].setAttribute('title','Susquehanna River near Windsor, Broome County, NY');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/clinton_county.jpg':
			document[place].setAttribute('title','West Branch Susquehanna in Winter, Clinton County, PA');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/curwensville.jpg':
			document[place].setAttribute('title','West Branch near Curwensville, Clearfield County, PA');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/first_fork.jpg':
			document[place].setAttribute('title','First Fork Sinnemahoning, Cameron County, PA');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/penns_creek.jpg':
			document[place].setAttribute('title','Penns Creek, Centre County, PA');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/steuben.jpg':
			document[place].setAttribute('title','Walking Bridge over Chemung River, Steuben County, NY, photo courtesy N. Sylvester');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/york.jpg':
			document[place].setAttribute('title','Susquehanna River at Lancaster and York Counties, PA');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/river_float.jpg':
			document[place].setAttribute('title','Chemung River float 2005, photo courtesy, photo courtesy STCRPDB');
			break; 
		case 'http://www.srbc.net/indeximages/rotating_imgs/conodoquinet.jpg':
			document[place].setAttribute('title','Conodoquinet Creek, Cumberland County, PA');
			break; 
		default:
			//do nothing
	}
	*/
	
	if (document.all){
		document[place].filters.blendTrans.Play();
	}

	var recur_call = "rotateImage('"+place+"')";
	setTimeout(recur_call, interval);
}