// Calendario Tolteca - JavaScript Document
var d=new Date();
var mm=d.getMonth();
var dd=d.getDate();
var yy=d.getFullYear();
var dia=1;
var startYear=6;
var tini=2;
var vini=9;
var diaBisTol=16;

var efemerides = new Array();
efemerides[0] = "<ul><li>6 de enero, comienzo de la veintena de Titil, <em>terminado</em>.</li><li>26 de enero, comienzo de la veintena de Iskalli, <em>resucitado</em>.</li></ul>";
efemerides[1] = "<ul><li>15 de febrero, comienzo de los d&iacute;as Nemontemi, <em>faltantes para completar</em>.</li><li>16 de febrero, d&iacute;a Mowechiwa, <em>reduplicado</em>.</li><li>21 de febrero, comienzo de la veintena de Atlkawallo, <em>aguas suspendidas.</em></li></ul>";
efemerides[2] = "<ul><li>13 de marzo, comienzo de la veintena de Tlakashipewalistli, <em>desollamiento humano</em>. </li><li>20 de marzo, equinoccio de primavera.</li></ul>";
efemerides[3] = "<ul><li>2 de abril, comienzo de la veintena de Tosostontli, <em>pequeña vigilia</em>. </li><li>22 de abril, comienzo de la veintena de Weitosostli, gran vigilia.</li><li>24 de abril, día Se Sipaktli, <em>uno dragón</em>, comienzo del año sagrado. </li></ul>";
efemerides[4] = "<ul><li>10 de mayo, día Nawi Ollin, <em>cuatro movimiento</em>, la renovación universal. </li><li>12 de mayo, comienzo de la veintena de Toshkatl, <em>guirlanda</em>, y cargador actual del año. </li><li>13 de mayo, paso cenital del Sol en la latitud epónima. </li><li>16 de mayo, cargador postclásico o &quot;mexica&quot; del año.</li></ul>";
efemerides[5] = "<ul><li>1ro. de junio, comienzo de la veintena de Etsakualistli, <em>comuni&oacute;n</em>. </li><li>15 de junio, aniversario de Se Akatl Topiltsin Ketsalkoatl. </li><li>20 de junio, solsticio de verano. </li><li>21 de junio, comienzo de la veintena de Tekuilwitontli, <em>peque&ntilde;a fiesta de los se&ntilde;ores</em>.</li></ul>";
efemerides[6] = "<ul><li>11 de julio, comienzo de la veintena de Weitekuilwitl, <em>gran fiesta de los se&ntilde;ores</em>. </li><li>31 de julio, comienzo de la veintena de Tlashochimako,<em> ofrenda de flores</em>.</li></ul>";
efemerides[7] = "<ul><li>20 de agosto, comienzo de la veintena de Shokotwetsi, ca&iacute;da de los frutos.</li></ul>";
efemerides[8] = "<ul><li>9 de septiembre, comienzo de la veintena de Ochpanisti, <em>caminos limpios</em>. </li><li>21 de septiembre, equinoccio de oto&ntilde;o. </li><li>29 de septiembre, comienzo de la veintena de Teotle'ko, <em>descenso divino</em>.</li></ul>";
efemerides[9] = "<ul><li>19 de octubre, comienzo de la veintena de Tepeilwitl, <em>fiesta de los montes</em>.</li></ul>";
efemerides[10] = "<ul><li>8 de noviembre, comienzo de la veintena de Kecholli, <em>plum&oacute;n</em>. </li><li>19 de noviembre, ascenso de las Pl&eacute;yades y fiesta del Fuego Nuevo.</li><li>28 de noviembre, comienzo de la veintena de Panketsalistli, <em>fiesta de las banderas</em>.</li></ul>";
efemerides[11] = "<ul><li>18 de diciembre, comienzo de la veintena de Atemostli, <em>ca&iacute;da de las aguas</em>. </li><li>25 de diciembre, solsticio de invierno.</li></ul>";

var img13 = new Array();
img13[0] = "<img src=\"../images/calendario/trecena/01.gif\" width=\"30\" height=\"37\" />";
img13[1] = "<img src=\"../images/calendario/trecena/02.gif\" width=\"30\" height=\"37\" />";
img13[2] = "<img src=\"../images/calendario/trecena/03.gif\" width=\"30\" height=\"37\" />";
img13[3] = "<img src=\"../images/calendario/trecena/04.gif\" width=\"30\" height=\"37\" />";
img13[4] = "<img src=\"../images/calendario/trecena/05.gif\" width=\"30\" height=\"37\" />";
img13[5] = "<img src=\"../images/calendario/trecena/06.gif\" width=\"30\" height=\"37\" />";
img13[6] = "<img src=\"../images/calendario/trecena/07.gif\" width=\"30\" height=\"37\" />";
img13[7] = "<img src=\"../images/calendario/trecena/08.gif\" width=\"30\" height=\"37\" />";
img13[8] = "<img src=\"../images/calendario/trecena/09.gif\" width=\"30\" height=\"37\" />";
img13[9] = "<img src=\"../images/calendario/trecena/10.gif\" width=\"30\" height=\"37\" />";
img13[10] = "<img src=\"../images/calendario/trecena/11.gif\" width=\"30\" height=\"37\" />";
img13[11] = "<img src=\"../images/calendario/trecena/12.gif\" width=\"30\" height=\"37\" />";
img13[12] = "<img src=\"../images/calendario/trecena/13.gif\" width=\"30\" height=\"37\" />";

var img20 = new Array();
img20[0] = "<img src=\"../images/calendario/veintena/01.gif\" width=\"50\" height=\"37\" />";
img20[1] = "<img src=\"../images/calendario/veintena/02.gif\" width=\"50\" height=\"37\" />";
img20[2] = "<img src=\"../images/calendario/veintena/03.gif\" width=\"50\" height=\"37\" />";
img20[3] = "<img src=\"../images/calendario/veintena/04.gif\" width=\"50\" height=\"37\" />";
img20[4] = "<img src=\"../images/calendario/veintena/05.gif\" width=\"50\" height=\"37\" />";
img20[5] = "<img src=\"../images/calendario/veintena/06.gif\" width=\"50\" height=\"37\" />";
img20[6] = "<img src=\"../images/calendario/veintena/07.gif\" width=\"50\" height=\"37\" />";
img20[7] = "<img src=\"../images/calendario/veintena/08.gif\" width=\"50\" height=\"37\" />";
img20[8] = "<img src=\"../images/calendario/veintena/09.gif\" width=\"50\" height=\"37\" />";
img20[9] = "<img src=\"../images/calendario/veintena/10.gif\" width=\"50\" height=\"37\" />";
img20[10] = "<img src=\"../images/calendario/veintena/11.gif\" width=\"50\" height=\"37\" />";
img20[11] = "<img src=\"../images/calendario/veintena/12.gif\" width=\"50\" height=\"37\" />";
img20[12] = "<img src=\"../images/calendario/veintena/13.gif\" width=\"50\" height=\"37\" />";
img20[13] = "<img src=\"../images/calendario/veintena/14.gif\" width=\"50\" height=\"37\" />";
img20[14] = "<img src=\"../images/calendario/veintena/15.gif\" width=\"50\" height=\"37\" />";
img20[15] = "<img src=\"../images/calendario/veintena/16.gif\" width=\"50\" height=\"37\" />";
img20[16] = "<img src=\"../images/calendario/veintena/17.gif\" width=\"50\" height=\"37\" />";
img20[17] = "<img src=\"../images/calendario/veintena/18.gif\" width=\"50\" height=\"37\" />";
img20[18] = "<img src=\"../images/calendario/veintena/19.gif\" width=\"50\" height=\"37\" />";
img20[19] = "<img src=\"../images/calendario/veintena/20.gif\" width=\"50\" height=\"37\" />";

var nom13 = new Array();
nom13[0] = "Se ";
nom13[1] = "Ome ";
nom13[2] = "Yei ";
nom13[3] = "Nawi ";
nom13[4] = "Makuilli ";
nom13[5] = "Chikuase ";
nom13[6] = "Chikome ";
nom13[7] = "Chikuei ";
nom13[8] = "Chiknawi ";
nom13[9] = "Matlaktli ";
nom13[10] = "Onse ";
nom13[11] = "Omome ";
nom13[12] = "Omei ";

var nom20 = new Array();
nom20[0] = "Sipaktli";
nom20[1] = "E'ekatl";
nom20[2] = "Kalli";
nom20[3] = "Kuetspalin";
nom20[4] = "Koatl";
nom20[5] = "Mikistli";
nom20[6] = "Masatl";
nom20[7] = "Tochtli";
nom20[8] = "Atl";
nom20[9] = "Itskuintli";
nom20[10] = "Osomatl";
nom20[11] = "Malinalli";
nom20[12] = "Akatl";
nom20[13] = "Oselotl";
nom20[14] = "Kuau'tli";
nom20[15] = "Koskakuau'";
nom20[16] = "Ollin";
nom20[17] = "Tekpatl";
nom20[18] = "Kiawitl";
nom20[19] = "Shochitl";

var nom20es = new Array();
nom20es[0] = "Drag&oacute;n";
nom20es[1] = "Viento";
nom20es[2] = "Casa";
nom20es[3] = "Lagartija";
nom20es[4] = "Serpiente";
nom20es[5] = "Muerte";
nom20es[6] = "Venado";
nom20es[7] = "Conejo";
nom20es[8] = "Agua";
nom20es[9] = "Perro";
nom20es[10] = "Mono";
nom20es[11] = "Hierba";
nom20es[12] = "Ca&ntilde;a";
nom20es[13] = "Ocelote";
nom20es[14] = "&Aacute;guila";
nom20es[15] = "Buitre";
nom20es[16] = "Movimiento";
nom20es[17] = "Pedernal";
nom20es[18] = "Lluvia";
nom20es[19] = "Flor";

var cargPos = new Array();
cargPos[0] = "Casa";
cargPos[1] = "Conejo";
cargPos[2] = "Ca&ntilde;a";
cargPos[3] = "Pedernal";

var cargCol = new Array();
cargCol[0] = "Lluvia";
cargCol[1] = "Lagartija";
cargCol[2] = "Agua";
cargCol[3] = "Ocelote";

var cargNS = new Array();
cargNS[0] = "&Aacute;guila";
cargNS[1] = "Flor";
cargNS[2] = "Serpiente";
cargNS[3] = "Perro";

// ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ----  
// ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ----  
// ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ---- F U N C I O N E S ----  

function esBis(){		// Determina si el año actual es bisiesto
	if(yy%4==0)
    {
    	return 1;
        if(yy%100==0 && yy%400!=0)
          	return 0;
	}
    else
    	return 0;
}

function bistol(){
	if((yy-1)%4==0)
    {
    	return 1;
        if((yy-1)%100==0 && (yy-1)%400!=0)
          	return 0;
	}
    else
    	return 0;
}

function rect_tv(inct, incv){
	t=tini+inct;
	v=vini+incv;
	if (bistol() && mm>1){
		t++;
		v++;
	}		
	if(t>12)
		t=t%13;
	if(v>19)
		v=v%20;	
}

function tonalIniMes(){
	switch(mm)
	{
		case 0:	rect_tv(0, 0);		// ENERO
		break;	
		case 1:	rect_tv(9, 15);		// FEBRERO
		break;
		case 2:	rect_tv(9, 1); 		// MARZO			
		break;
		case 3:	rect_tv(11, 9);		// ABRIL
		break;
		case 4:	rect_tv(0, 17);		// MAYO
		break;
		case 5:	rect_tv(9, 12);		// JUNIO
		break;
		case 6:	rect_tv(11, 0);		// JULIO
		break;
		case 7:	rect_tv(0, 9);		// AGOSTO
		break;
		case 8:	rect_tv(9, 3);		// SEPTIEMBRE
		break;
		case 9:	rect_tv(11, 11);	// OCTUBRE
		break;
		case 10: rect_tv(7, 6);		// NOVIEMBRE
		break;
		case 11: rect_tv(9, 14);    // DICIEMBRE
		break;
	}
}

function mes(){		// Presenta el nombre del mes corriente para el encabezado de la tabla
	var m="";
	switch(mm)
	{
		case 0: m="E N E R O";
			break;
		case 1: m="F E B R E R O";
			break;
		case 2: m="M A R Z O";
			break;
		case 3: m="A B R I L";
			break;
		case 4: m="M A Y O";
			break;
		case 5: m="J U N I O";
			break;
		case 6:	m="J U L I O";
			break;
		case 7:	m="A G O S T O";
			break;
		case 8: m="S E P T I E M B R E";
			break;
		case 9:	m="O C T U B R E";
			break;
		case 10: m="N O V I E M B R E";
			break;
		case 11: m="D I C I E M B R E";
			break;
	}
	return m;
}

function dias(){	// Muestra la numeración de los días del mes
	var ndd=0;
	if(dia>=iniMes() && dia<=(dem(mm)+iniMes()-1))
		ndd=dia-iniMes()+1;
	else
		ndd=0;
	return ndd;
}

function iniMes(){	// Determina en que día de la semana empieza cada mes
	if(esBis()){
		switch(mm){
			case 0:
			case 3:
			case 6:
				startDay=startYear;
			break;
			case 9:
				startDay=startYear+1;
			break;
			case 4:
				startday=startYear+2;
			break;
			case 1:
			case 7:
				startDay=startYear+3;
			break;
			case 2:
			case 10:
				startDay=startYear+4;
			break;
			case 5:
				startDay=startYear+5;
			break;
			case 8:
			case 11:
				startDay=startYear+6;
			break;
		}
	}
	else{
		switch(mm){
			case 0:
			case 9:
				startDay=startYear;
			break;
			case 4:
				startDay=startYear+1;
			break;
			case 7:
				startday=startYear+2;
			break;
			case 1:
			case 2:
			case 10:
				startDay=startYear+3;
			break;
			case 5:
				startDay=startYear+4;
			break;
			case 8:
			case 11:
				startDay=startYear+5;
			break;
			case 3:
			case 6:
				startDay=startYear+6;
			break;
		}		
	}
	if(startDay>7)
		startDay=startDay-7;
	return startDay;
}

function dem(numM){		// Determina la cantidad de días de cada mes
	var nd;
	switch(numM){
		case 0:
    	case 2:
	    case 4:
   		case 6:
		case 7:
    	case 9:
	    case 11:
    		nd=31;
	    break;
		case 3:
		case 5:
    	case 8:
	    case 10:
			nd=30;
	    break;
		case 1:
			if(esBis())
        		nd=29;
	        else
    	    	nd=28;
       	break;
	}
	return nd;
}

function trecena(t){	// Determina la imagen del numero de la trecena correspondiente
	return img13[t];
}

function veintena(v){	// Determina la imagen del signo de la veintena correspondiente
	return img20[v];
}

function calendar(){	// Llena las celdas de la tabla del calendario con su respectivo contenido
	if(dias())
		document.write("<h3>"+dias()+"</h3>"); 
	else 
		document.write("<h3>&nbsp;</h3>");
	document.write(trecena(t));
	document.write(veintena(v)+"<br />");
	document.write(nom13[t]+" ");
	document.write(nom20[v]+"<br />");
	document.write(t+1+" ");
	document.write(nom20es[v]);
	dia++;
	if(bistol()&& dia==diaBisTol && mm==1){
		t=t;
		v=v;
	}
	else{
		t++;
		v++;
	}
	if(t==13)
		t=0;
	if(v==20)
		v=0;
}

function creatabla(){	// Crea las celdas de la tabla que contendrá el calendario
	var tr;
	var td;
	tonalIniMes();
	for(tr=1;tr<=5;tr++){
		document.write("<tr>");
		for(td=1;td<=7;td++){
			if(dias()==dd){
				document.write("<td bgcolor=\"#FFCC99\" class=\"diasMes\">");
				calendar();
				document.write("</td>");
			}
			else{	
				document.write("<td class=\"diasMes\">");
				calendar();
				document.write("</td>");			
			}
		}
		document.write("</tr>");
	}
}

function efemer(){		// Imprime la tabla de efemerides correspondiente al mes en curso
	document.write(efemerides[mm]);
}