//las clases dentro de un A que lleven este sufijo en el nombre parpadearán cuando se les pase el ratón por encima
var sufijoparpadeo="super";

function VCLVCD(){if(typeof(VCD)=="undefined") return false;else return true;} //dice si está cargada vcdesc.js

function creaArray(n) 
{
this.length = n;
for(var i = 1; i <= n; i++)
this[i] = 0;
return this;
}

//inicializa, solo explorer

if (document.all)
{
hexa = new creaArray(16);
	for(var i = 0; i < 10; i++) hexa[i] = i;
	hexa[10]="a"; hexa[11]="b"; hexa[12]="c"; hexa[13]="d"; hexa[14]="e"; hexa[15]="f";

var VCLem=new Array();
var VCdir=new Array();

colorini = VCdesHex("#000033");
colorfin = VCdesHex("#ff6600");
ratearriba=30;
rateabajo=30;
retraso=25;
}

function VChex(i) 
{
	if (i < 0) return "00";
	else if (i > 255) return "ff";
	else return "" + hexa[Math.floor(i/16)] + hexa[i%16];
}

function VCdesHex(Color)
{
var colorArr = new creaArray(3);
for (i=1; i<7; i++)
	{
	for (j=0; j<16; j++)
		{
		if (Color.charAt(i) == hexa[j])
			{
			if (i%2 !=0)
			colorArr[Math.floor((i-1)/2)]=eval(j)*16;
			else
			colorArr[Math.floor((i-1)/2)]+=eval(j);
			}
		}
	}
return colorArr;
}

function VCLponColor(rgb, elemento) 
{
elemento.style.color = "#"+rgb;
}

function VCLquitaLem(elemen,dir)
{
for (var i=0;i<VCLem.length ;i++)
	if (VCLem[i]==elemen && VCdir[i]==dir) {VCLem[i]=null;VCdir[i]=null}
}

function VCLbrillo(s,e, elemento,dir,incre)
{

for (var i=0;i<VCLem.length;i++)
	if (VCLem[i]==elemento && VCdir[i]==dir) {return}

for (var i=0;i<VCLem.length;i++)
	if (VCLem[i]==null) {VCLem[i]=elemento;VCdir[i]=dir}

var sr = s[0];
var sg = s[1];
var sb = s[2];

var er = e[0];
var eg = e[1];
var eb = e[2];


for(var i=0; i<=incre;i++)
	{	
	var	rojo=Math.floor(sr*((incre-i)/incre)+er*(i/incre));
	var	verde=Math.floor(sg*((incre-i)/incre)+eg*(i/incre));
	var	azul=Math.floor(sb*((incre-i)/incre)+eb*(i/incre));
	setTimeout("VCLponColor('"+VChex(rojo)+VChex(verde)+VChex(azul)+"',"+elemento+")",i*retraso);
	}
setTimeout("VCLquitaLem("+elemento+",'"+dir+"')",(incre+1)*retraso);
}	

function VCLdimequees(st)
{var pst="";
		if (st.indexOf("http://")!=-1){pst="<span class=vclink>LINK</span><span class=vclink2> "+st+" </span>";}
		if (st.indexOf("javascript")!=-1){pst="<span class=vclink>JAVASCRIPT</span>";}
		if (st.indexOf("mailto:")!=-1){pst="<span class=vclink>CORREO</span><span class=vclink2> "+st.substring(7,st.length)+" </span>";}
		if (st.indexOf("ed2k://")!=-1)
			{
			st=st.substring(13,st.length);st=st.substring(0,st.indexOf("|"));
			pst="<span class=vclink>ELECTROBURRO: <span class=vclink2>"+st+" </span>";
			}
if(VCLVCD())if(pst!="")VCDponDesc(pst);
}

function VCLcambiatrans(ele2,i)
{
var num=Math.ceil(60+Math.cos(i*0.31415927)*40);
if (document.all)
	{document.getElementById(ele2).style.filter="alpha(opacity="+num+")"}
	else if (document.getElementById(ele2))
			{num--;document.getElementById(ele2).style.MozOpacity=num/100;}
}

function VCLdisparatrans(ele){for (i=0;i<20 ;i++)setTimeout("VCLcambiatrans('"+ele+"',"+i+")",i*25);}


//activa tipo de link para explorer
function VCLenciende() 
{var elemento = event.srcElement;
//si la clase del elemento tiene sufijo para parpadear, lo hará
	if (elemento.className.indexOf(sufijoparpadeo)!=-1) {VCLbrillo(colorini,colorfin,elemento.uniqueID,"arr",ratearriba);return};
//si no, dirá a donde apunta el objeto siempre que no tenga un nombre especial, en este caso "menucel"
	if (elemento.tagName=="A") if(elemento.className!="menucel") VCLdimequees(elemento.href);
//si es una imagen contenida en un anchor, cambiará la transparencia, a no ser que la clase de la imagen sea "b"
	if (elemento.tagName=="IMG") if (elemento.parentNode.tagName=="A")  if(elemento.className!="b")
				{VCLdimequees(elemento.parentNode.href);VCLdisparatrans(elemento.uniqueID);}
}

//esta variable suple la ausencia de uniqueID en firefox... cuidado si le has puesto id a tus imágenes
var VCLnetid=0;
//activa tipo de link para firefox
function VCLenciendeFirefox(e)
{
var st=e.target.parentNode;
//¡en firefox el evento disparador es el texto, no el tag! dirá a donde apunta la URL
if (st.nodeName=="A" && st.className=="" && e.target.tagName==undefined) VCLdimequees(st.href);
//si es una imagen contenida en un anchor, cambiará la transparencia, a no ser que la clase de la imagen sea "b"
if (e.target.tagName=="IMG") 
	if (st.tagName=="A") 
		if (e.target.className!="b")
			{
			e.target.id="VCLsoy"+VCLnetid;
			VCLdimequees(st.href)
			VCLdisparatrans(e.target.id);
			VCLnetid++;
			}
}

//apagalink explorer
function VCLapaga() 
{
var elemento = event.srcElement;
//si la clase del elemento tiene sufijo para parpadear, se le detendrá
	if (elemento.className.indexOf(sufijoparpadeo)!=-1)	{VCLbrillo(colorfin,colorini,elemento.uniqueID,"aba",rateabajo);return}
//si es un enlace o una imagen con enlace, se le quitará la descripción
	if (elemento.tagName=="A" || (elemento.tagName=="IMG" && elemento.parentNode.tagName=="A"))
		if(VCLVCD()){VCDquitaDesc();return;}
}

//apaga link firefox
function VCLapagaFirefox(e)
{	//alert(typeof(VCD));
	if (e.target.parentNode.nodeName=="A") //quita descripción
	if(VCLVCD())VCDquitaDesc();}


//inicializa eventos
if (!document.all)
{
document.addEventListener('mouseover', VCLenciendeFirefox, false);
document.addEventListener('mouseout', VCLapagaFirefox, false);
}
else
{
document.attachEvent('onmouseover', VCLenciende);
document.attachEvent('onmouseout', VCLapaga);
}

//añade estilos
document.write("<style>.vclink,.vclink2{font-family:verdana;font-size:10px;color:#ff9900}.vclink{font-weight:bolder}.vclink2{color:#ffffff}</style>");