function beginPlayChain() {
		setSize('logo',740,500);
		setSize('cover1',740,300);
 		setOpacity('logo',100);
		setOpacity('cover1',100);
		setTimeout("shrinklogo('logo',740,500,132,86,16,20)",1000);
	}
		
	function shrinklogo(eid,curX,curY,endX,endY,byX,speed) {
		aspect = curY / curX;
		if (curX > endX) {
			curX -= byX;
			if (curX < endX) {
				curX = endX;
			}
			curY = curX * aspect;
			if (curX == endX) {
				curY = endY;
			}
		}
		setSize(eid,curX,curY);
		if (curX != endX) {
			setTimeout("shrinklogo('"+eid+"',"+curX+","+curY+","+endX+","+endY+","+byX+","+speed+")",speed);
		} else {
			setTimeout("changeClass('header1','')",1);
			setTimeout("fadeInH2('header2',0,100,4,1)",100);
		}
	}

    function fadeInH2(eid,current,end,by,speed) {
		target = eval(getDocObj(eid));
		if (current < end) {
			i = current + by;
			if (i > end) {
				i = end;
			}
			target.className = "op"+i;
			setTimeout("fadeInH2('"+eid+"',"+i+","+end+","+by+","+speed+")",speed);
		} else {
			setTimeout("fadeInMa(0,100,2,2)",100);
		}
    }

    function fadeInMa(current,end,by,speed) {
		time = 100;
		setTimeout("fadeIn2('ma1',"+current+","+end+","+by+","+speed+",0)",time);
		time += 100;
		setTimeout("fadeIn2('ma2',"+current+","+end+","+by+","+speed+",0)",time);
		time += 100;
		setTimeout("fadeIn2('ma3',"+current+","+end+","+by+","+speed+",0)",time);
		time += 100;
		setTimeout("fadeIn2('ma4',"+current+","+end+","+by+","+speed+",0)",time);
		time += 100;
		setTimeout("fadeIn2('ma5',"+current+","+end+","+by+","+speed+",0)",time);
		time += 100;
		setTimeout("fadeIn2('ma6',"+current+","+end+","+by+","+speed+",1)",time);
		changeClass('mt1','');
		changeClass('mt2','');
		changeClass('mt3','');
		changeClass('mt4','');
		changeClass('mt5','');
		changeClass('mt6','');
//		setTimeout("shrinkC1('cover1',740,1,16,20)",2400);
    }

    function fadeIn2(eid,current,end,by,speed,nextInChain) {
		target = eval(getDocObj(eid));
		if (current < end) {
			i = current + by;
			if (i > end) {
				i = end;
			}
			target.className = "op"+i;
			setTimeout("fadeIn2('"+eid+"',"+i+","+end+","+by+","+speed+","+nextInChain+")",speed);
		} else {
			if (nextInChain != 0) {
//				setTimeout(nextInChain,5000);
				setTimeout("shrinkC1('cover1',740,1,16,20)",100);
			}
		}
    }

	function shrinkC1(eid,curX,endX,by,speed) {
		if (curX > endX) {
			curX -= by;
		}
		if (curX < endX) {
			curX = endX;
		}
		target = eval(getDocObj(eid));
		target.width = curX;
//		target.style.pixelLeft += by; // IE
//		target.style.posLeft += by; //IE
		Left = target.style.left.substring(0,target.style.left.length-2);
		nLeft = parseInt(Left);
		nLeft += by;
		target.style.left = nLeft;
		
		if (curX != endX) {
			setTimeout("shrinkC1('"+eid+"',"+curX+","+endX+","+by+","+speed+")",speed);
		} else {
			time = 1500;
			setTimeout("redirect('home.html')",time);
//			redirect('http://www.bathompson.com/newip2/home.html',3000);
		}
	}

	function redirect(Url) {
		location.href = Url;
	}

	function show(eid) {
		changeClass(eid,"op100");
	}

	function hide(eid) {
		changeClass(eid,"op0");
	}

    function fadeIn(eid,current,end,by,speed) {
		target = eval(getDocObj(eid));
		if (current < end) {
			i = current + by;
			if (i > end) {
				i = end;
			}
			target.className = "op"+i;
			setTimeout("fadeIn('"+eid+"',"+i+","+end+","+by+","+speed+")",speed);
		}
    }

    function fadeOut(eid,current,end,by,speed) {
		target = eval(getDocObj(eid));
		if (current > end) {
			i = current - by;
			if (i < end) {
				i = end;
			}
			target.className = "op"+i;
			setTimeout("fadeOut('"+eid+"',"+i+","+end+","+by+","+speed+")",speed);
		}
    }

    function changeClass(eid,className) {
		target = eval(getDocObj(eid));
		target.className = className;
    }

	function addFilter(eid,filterFunctionName) {
		target = eval(getDocObj(eid));
		if (target.filters[0]) {
			target.style.filter=filterFunctionName;
			target.filters[0].Apply();
			target.filters[0].Play();
		}
	}

	function setOpacity(eid,opac) {
		target = eval(getDocObj(eid));
		target.className="op"+opac;
	}

	function setSize(eid,wid,hgt) {
		target = eval(getDocObj(eid));
		target.width=wid;
		target.height=hgt;
	}

//	function setPos(eid,top,left) {
//		target = eval(getDocObj(eid));
//		target.style.top=top;
//		target.style.left=left;
//	)
	
//	function move(eid,startX,startY,endX,endY,byX,byY,curX,curY,speed) {
//		if (startX > endX) {
//			curX -= byX;
//		}
//		if (curY > endY) {
//			curY -= byY;
//		}
//		setSize(eid,curX,curY);
//		if (curX != endX || curY != endY) {
//			setTimeout("shrinkXY('"+eid+"',"+curX+","+curY+","+endX+","+endY+","+byX+","+byY+","+speed+")",speed);
//		}
//	}


	function shrinkXY(eid,curX,curY,endX,endY,byX,byY,speed) {
		if (curX > endX) {
			curX -= byX;
		}
		if (curY > endY) {
			curY -= byY;
		}
		setSize(eid,curX,curY);
		if (curX != endX || curY != endY) {
			setTimeout("shrinkXY('"+eid+"',"+curX+","+curY+","+endX+","+endY+","+byX+","+byY+","+speed+")",speed);
		}
	}
	
	function shrinkByX(eid,curX,curY,endX,endY,byX,speed) {
		aspect = curY / curX;
		if (curX > endX) {
			curX -= byX;
			if (curX < endX) {
				curX = endX;
			}
			curY = curX * aspect;
			if (curX == endX) {
				curY = endY;
			}
		}
		setSize(eid,curX,curY);
		if (curX != endX) {
			setTimeout("shrinkByX('"+eid+"',"+curX+","+curY+","+endX+","+endY+","+byX+","+speed+")",speed);
		}
	}

	function shrinkRtoL(eid,curX,endX,by,speed) {
//		if (checkMutex[0]) {
//			setTimeout("shrinkRtoL('"+eid+"',"+curX+","+endX+","+by+","+speed+")",speed);
//			return;
//		}
		if (curX > endX) {
			curX -= by;
		}
		if (curX < endX) {
			curX = endX;
		}
		target = eval(getDocObj(eid));
		target.width = curX;
		if (curX != endX) {
			setTimeout("shrinkRtoL('"+eid+"',"+curX+","+endX+","+by+","+speed+")",speed);
		} else {
			time = 1000;
//			setTimeout("redirect('http://www.bathompson.com/newip2/home.html',3000)",time);
			redirect('home.html',3000);
		}
	}

	function shrinkLtoR(eid,curX,endX,by,speed) {
//		if (checkMutex[0]) {
//			setTimeout("shrinkRtoL('"+eid+"',"+curX+","+endX+","+by+","+speed+")",speed);
//			return;
//		}
		if (curX > endX) {
			curX -= by;
		}
		if (curX < endX) {
			curX = endX;
		}
		target = eval(getDocObj(eid));
		target.width = curX;
//		target.style.pixelLeft += by; // IE
//		target.style.posLeft += by; //IE
		Left = target.style.left.substring(0,target.style.left.length-2);
		nLeft = parseInt(Left);
		nLeft += by;
		target.style.left = nLeft;
		
		if (curX != endX) {
			setTimeout("shrinkLtoR('"+eid+"',"+curX+","+endX+","+by+","+speed+")",speed);
		} else {
			time = 1000;
			setTimeout("redirect('home.html',3000)",time);
//			redirect('http://www.bathompson.com/newip2/home.html',3000);
		}
	}
	
	function shrinkBtoT(eid,curY,endY,by,speed) {
		if (curY > endY) {
			curY -= by;
		}
		if (curY < endY) {
			curY = endY;
		}
		target = eval(getDocObj(eid));
		target.height = curY;
		if (curY != endY) {
			setTimeout("shrinkBtoT('"+eid+"',"+curY+","+endY+","+by+","+speed+")",speed);
		}
	}

	function shrinkTtoB(eid,curY,endY,by,speed) {
		if (curY > endY) {
			curY -= by;
		}
		if (curY < endY) {
			curY = endY;
		}
		target = eval(getDocObj(eid));
		target.height = curY;
//		target.style.pixelTop += by; // IE
//		target.style.posTop += by; //IE
		Top = target.style.top.substring(0,target.style.top.length-2);
		nTop = parseInt(Top);
		nTop += by;
		target.style.top = nTop;
		
		if (curY != endY) {
			setTimeout("shrinkTtoB('"+eid+"',"+curY+","+endY+","+by+","+speed+")",speed);
		}
	}

	function dobutton1(aid,aclss,iid,iclss) {
		changeClass(aid,aclss);
		changeClass(iid,iclss);
	}

	function dobutton2(aid,aclss,iid1,iclss1,iid2,iclss2) {
		changeClass(aid,aclss);
		changeClass(iid1,iclss2);
		changeClass(iid2,iclss2);
	}
	
	function getDocObj(elem,parent) {
		if (document.layers) {
			if (parent) {
				return "document."+parent+".document."+elem;
			} else {
				return "document."+elem;
			}
		} else if (document.all) {
			return "document.all."+ elem;
		} else if (document.getElementById) {
			return "document.getElementById('"+elem+"')";
		}
	}