var view,win,panimg,pantype,timer,scrollspeed,amount,winleft,winright,picright;
var mpi=new Array();
var pause=false;
var full=1;
var partial=2;
var lftdir=false;
var loaded = false;
//---------
function preload(){
	for (i=0;i<preload.arguments.length;i++){
		mpi[i]=new Image();
		mpi[i].src=preload.arguments[i];
		}
}
//---------
function setup(){
	view = xGetElementById("vp");
	win = xGetElementById("vpo");
	panimg = xGetElementById("panimg");
	xShow(win);
	xShow(view);
	noscrl();
	winleft=0;
	winright=xWidth(win);
	picright=xWidth(panimg);
	amount=scrollspeed;
	loaded = true;
	panit();
}
//---------
function movr(picname){
	var img=xGetElementById(picname);
	if(!(img.OriginalSrc)) img.OriginalSrc=img.src;
	var pp=img.OriginalSrc.lastIndexOf(".");
	if(pp>0) img.src=img.OriginalSrc.substring(0,pp)+"_o"+img.OriginalSrc.substr(pp);
}
//---------
function reset(picname){//
	var img=xGetElementById(picname);
	var pp=img.src.lastIndexOf("_o");
	if(pp>-1){
		img.src=img.src.substring(0,pp)+img.src.substring(pp+2);
		pause=false;
		}
}
//---------
function swappic(picname) {
	var img=xGetElementById(picname);
	var pp=img.src.lastIndexOf("_o");
	if(pp>-1){
		img.src=img.src.substring(0,pp)+img.src.substring(pp+2);
		}
	else {
		pp=img.src.lastIndexOf(".");
		img.src=img.src.substring(0,pp)+"_o"+img.src.substr(pp);
		}
}
//---------
function spd(picname) {
	if(++scrollspeed>2) scrollspeed=1;
	swappic(picname);
//	if(lftdir) scrlt(); else scrrt(); 
	if(lftdir)amount= -scrollspeed; else amount= scrollspeed;
}
//---------
function scrlt() {
	amount= -scrollspeed;
	lftdir=true; pause=false;
	panit();
}
//---------
function scrrt() {
	amount= scrollspeed;
	lftdir=false; pause=false;
	panit();
}
//---------
function togglepause(){
	swappic("pause");
	if(pause){
		pause=false;
		if(lftdir) scrlt(); else scrrt();
		}
	else{
		if(timer)	clearTimeout(timer);
		pause=true;
		amount=0;
		}
}
//---------
function noscrl(st){
	if(timer) clearTimeout(timer);
	if(st) amount=0;
}
//---------
function panit(){
	if(loaded){
		noscrl();
		var curpos=xLeft(view);
		if(pantype==partial){
			if(((curpos-amount)>=0)&&(amount<0))	amount=scrollspeed; //scroll left
			else if(((curpos-amount)<=(winleft+winright-picright))&&(amount>0)) amount= -scrollspeed; //scroll right
			}
		xMoveTo(view,curpos-amount,xTop(view));
		if(pantype==full){
			if(curpos>0)	xLeft(view,winleft-picright);
			else if(curpos<(winleft-picright)) xLeft(view,0);
			}
//		if(document.layers)	xClip(view,null,winleft-curpos,null,null);
		if(amount!=0) timer=setTimeout("panit()",10);
		}
}
//---------

preload("left_o.gif","right_o.gif","pause_o.gif","speed_o.gif");
window.onload=setup;