
/* implementation in homepage HTML
	<body onLoad="R_preloadpics(1,2...)">
	<a href="#" onMouseOut="R_swappic(swapthis, forthissrc)" onMouseOver="R_swappic(swapthis, forthissrc)">
			<img name="swapthis" src="" width="" height="" vspace= hspace= title=""></a>		*/

//very simple roll
function r_simroll(swapthis, forthissrc)	 {
	var i,d=document,arg1=document.images[swapthis];
	arg1.src = forthissrc;
}

//semi-original rollover code
if (!R_pics) { var R_pics = new Array(); }
function R_preloadpics() {
	var d=document;
	if (d.images) { 
			var i,j=d.R_pics.length,a=R_preloadpics.arguments
			for (i=0; i<a.length; i++)	{
				d.R_pics[j] = new Image();
				d.R_pics[j++].src = a[i];	}
	}
}

function R_swappic(swapthis, forthissrc)	 {
	var i,d=document,arg1=document.images[swapthis];
	if (!d.R_oldsrc) { d.R_oldsrc = new Array ();	}
	var j=d.R_oldsrc.length,oldsrc=d.R_oldsrc; 
	oldsrc[j] = arg1;
	oldsrc[j++].src = arg1.src;
	arg1.src = forthissrc;
}
/*function R_swapback(swapthis)	{
	var a=document.R_origsrc,x=0,i;
	for (i=0;i=a.length;)	{
		(a[i].name == swapthis) ? x=i : i++;
	}
	document.images[swapthis].src = a[x].src;
}*/	

//code for zooming in---can also be used for simple rollovers, but have to preload pics in order out to in
if (!r_zoompics) { var r_zoompics = new Array(); }
function r_preloadzoompics() {
	var d=document;
	if (d.images) { 
			var j=r_zoompics.length,a=r_preloadzoompics.arguments
			for (var i=0; i<a.length; i++)	{
				r_zoompics[j] = new Image();
				r_zoompics[j].name = a[i];
				r_zoompics[j++].src = a[++i];	
				r_zoompics.length=j;	
			}
	}
}
var counter=0;
function r_zoominout(swapthis, inorout) {
	var numpics=r_zoompics.length,arg1=document.images[swapthis];
	if (inorout == "in") 	{
		for (var i=0,j=1;i<numpics;i++,j++)		{
			if ((i==counter)&&(counter!=(numpics-1))) { arg1.src=r_zoompics[j].src; }
		}
		if (counter<(numpics-1)) { counter+=1; }
	}
	else if (inorout == "out")	{
		for (var i=0,j=(-1);i<numpics;i++,j++)		{
			if ((i==counter)&&(counter!=0)) { arg1.src=r_zoompics[j].src; }
		}
		if (counter>0) {	counter-=1;	}
	}
}

