function Abrir(url,nombre,width, height){
		eval ("window.open('" + url + "', '" + nombre + "', 'width=" + width + ", height=" + height + ",scrollbars=NO')");
	}

	function cambiar(id, nombre) {
		document.images[id].src = 'images/'+nombre;
	}

	ns4 = (document.layers)? true:false
	ie4 = (document.all)? true:false


	function MoverA(obj,x,y) {
		obj.xpos = x
		obj.left = obj.xpos
		obj.ypos = y
		obj.top = obj.ypos
	}

//-------------------------------------------	
	function clipValues(obj,which) {
		if (ns4) {
			if (which=="t") return obj.clip.top
			if (which=="r") return obj.clip.right
			if (which=="b") return obj.clip.bottom
			if (which=="l") return obj.clip.left
		}
		else if (ie4) {
			var clipv = obj.clip.split("rect(")[1].split(")")[0].split("px")
			if (which=="t") return Number(clipv[0])
			if (which=="r") return Number(clipv[1])
			if (which=="b") return Number(clipv[2])
			if (which=="l") return Number(clipv[3])
		}
	}

	function clipTo(obj,t,r,b,l) {
		if (ns4) {
			obj.clip.top = t
			obj.clip.right = r
			obj.clip.bottom = b
			obj.clip.left = l
		}else if (ie4) obj.clip = "rect("+t+"px "+r+"px "+b+"px "+l+"px)"
	}

	function clipBy(obj,t,r,b,l) {
		if (ns4) {
			obj.clip.top = clipValues(obj,'t') + t
			obj.clip.right = clipValues(obj,'r') + r
			obj.clip.bottom = clipValues(obj,'b') + b
			obj.clip.left = clipValues(obj,'l') + l
		}
		else if (ie4) obj.clip = "rect("+(this.clipValues(obj,'t')+t)+"px "+(this.clipValues(obj,'r')+r)+"px "+Number(this.clipValues(obj,'b')+b)+"px "+Number(this.clipValues(obj,'l')+l)+"px)"
	}
	
	var dibobj;
	var dibancho;
	var foto;
	var rev;

	function Dibuja(obj,x,y,ancho,f,reves) {
		findWH();
		if (ns4) {objt = eval ("document."+obj)
			y=y-7;
			x=x-7;
		}
		if (ie4) objt = eval (obj+".style")
		clipTo(objt,0,0,2,0);
		dibobj=objt;
		foto=f;
		dibancho=ancho;
		xa=((winW-800)/2)+x;
		MoverA(dibobj,xa,y);
		rev=reves;
		if (rev!=null) clipTo(dibobj,0,600,2,600);
		Dib();
	}

function Dib() {
	if(rev==null){
		if (clipValues(dibobj,'r')<dibancho) {
			clipBy(dibobj,0,5,0,0)
			setTimeout("Dib()",20)
		}else{
			Mostrar(foto)
		}
	}else{
		if (clipValues(dibobj,'l')>0) {
			clipBy(dibobj,0,0,0,-5)
			setTimeout("Dib()",20)
		}else{
			Mostrar(foto)
		}
	}
}

function OcultaLinea(obj) {
	MoverA(obj,-10,-10);
	if (ns4) dibobj = eval("document."+obj)
	if (ie4) dibobj = eval(obj+".style")
	Ocultar(foto);
	foto='vacio';
}

function Escribe(id,nestref,text,x,y){
		findWH();
		if (ns4) objt = eval ("document."+id);
		if (ie4) objt = eval (id+".style");
		xa=((winW-800)/2)+x;
		MoverA(objt,xa,y);
	if (ns4) {
		if (nestref) var lyr = eval('document.'+nestref+'.document.'+id+'.document')
		else var lyr = document.layers[id].document;
		lyr.open();
		lyr.write(text);
		lyr.close();
	}
	else if (ie4) document.all[id].innerHTML = text
}
//------------------------------------------------
function Ocultar(obj) {
	if (ns4) objr = eval ("document."+obj)
	if (ie4) objr = eval (obj+".style")

	if (ns4) objr.visibility = "hide"
	else if (ie4) objr.visibility = "hidden"
}
function Mostrar(obj) {
	if (ns4) objr = eval ("document."+obj)
	if (ie4) objr = eval (obj+".style")

	if (ns4) objr.visibility = "show"
	else if (ie4) objr.visibility = "visible"
}