// Función dia_titulo, se puede sustituir por escritura directa, pero se deja como ejemplo de parámetros

function dia_titulo(dia_nombre){
	document.write("<TD class=navegador7>"+dia_nombre+"</TD>")
}

// Función rellena_tabla, recibe dos parámetros. Además se ha establecido previamente dia_comienzo y mes_romano

	
function rellena_tabla(mes,mes_longitud) {
  // Se inicializa la variable dia a nivel 1
	dia=1
	
	// Cálculo del año en fecha romana, cuatro posibilidades:
	
	//1 Periodo de ejecución marzo-diciembre, invocada para crear un mes marzo-diciembre
	// El año que llega es el natural	
	 
  //2 Periodo de ejecución marzo-diciembre, invocada para crear un mes enero-febrero
	// El año que llega es uno más del natural	
	
	//3 Periodo de ejecución enero-febrero, invocada para crear un mes marzo-diciembre
	// El año llega es uno menor al natural
	
	//4 Periodo de ejecución enero-febrero, invocada para crear un mes enero-febrero
	// El año que llega es el natural
	
	// Se desea imprimir el año que ha empezado en marzo inmediatamente anterior al momento de ejecución, por tanto:
	
	// En el caso 1, el año se convierte directamente
	// En el caso 2, hay que restar un año antes de convertir
	// En el caso 3, el año se convierte directamente
	// En el caso 4, hay que restar un año antes de convertir
	
  // Los casos 2 y 4 se identifican por "invocada para crear un mes enero-febrero, por tanto:

// Parche para corregir el año obtenido cuando la página se abra con un navegador tipo firefox o googlechrome
if (any < 1000) {
   any = any + 1900
}
// Fin Parche

any = any + 753 	

if (mes == "IANVARIVS") {
	any = any - 1;
}	

if (mes == "FEBRVARIVS") {
	any = any - 1;
}	
	
switch (any) {
case (any = 2760):
  any = "MMDCCLX";
	break
case (any = 2761):
  any = "MMDCCLXI";
	break
case (any = 2762):
  any = "MMDCCLXII";
  break
case (any = 2763):
  any = "MMDCCLXIII";
  break
case (any = 2764):
  any = "MMDCCLXIIII";
  break
case (any = 2765):
  any = "MMDCCLXV";
  break
case (any = 2766):
  any = "MMDCCLXVI";
  break
case (any = 2767):
  any = "MMDCCLXVII";
  break
case (any = 2768):
  any = "MMDCCLXVIII";
  break
case (any = 2769):
  any = "MMDCCLXVIIII";
  break
} 
	
			
	// Título de la página	
	document.write("<p class=grantitulo>"+mes+"·"+any+"</p>")
	// Crea tabla	
	document.write("<TABLE class=anchura100 cellpadding=5 cellspacing=0>")
	// Crea fila de nombres de días
	document.write("<TR>")

  // Ejecuta función dia_titulo	
	dia_titulo("SOLIS")
	dia_titulo("LVNAE")
	dia_titulo("MARTIS")
	dia_titulo("MERCVRII")
	dia_titulo("IOVIS")
	dia_titulo("VENERIS")
	dia_titulo("SATVRNI")
	
  // Cierra fila de nombres de días y abre primera fila de fechas
	document.write("</TR><TR>")

  // Desde 1 hasta dia_comienzo: se dejan tantas celdas en blanco como días hay desde el primer Helios hasta  el día de la semana en que cae el primero de mes
	for (var i=1; i < dia_comienzo; i++) {
		document.write("<TD></TD>")
	}

	// Se termina de rellenar la primera fila de fechas, desde el primero de mes, hasta el primer Saturno
	
	for (var i=dia_comienzo; i < 8; i++) {

		// Para calcular enlaces y personaje del día es necesario pasar la fecha a formato alfanumérico
		switch (dia)
		{
			case (dia = 1):
		  dia_alfa = "01";
  		break
			case (dia = 2):
		  dia_alfa = "02";
	  	break
			case (dia = 3):
	  	dia_alfa = "03";
	  	break
			case (dia = 4):
		  dia_alfa = "04";
		  break
			case (dia = 5):
		  dia_alfa = "05";
		  break
			case (dia = 6):
		  dia_alfa = "06";
		  break
			case (dia = 7):
		  dia_alfa = "07";
		  break
			case (dia = 8):
		  dia_alfa = "08";
		  break
			case (dia = 9):
		  dia_alfa = "09";
		  break
		}
	
	  // Se define la variable indice como el orden de mes romano más la fecha alfanumérica 
		
		var indice = mes_romano+dia_alfa
		
		// Se crea la celda correspondiente al dia en proceso con fecha alfanumérica, el personaje de tabla2 correspondiente al indice calculado. El enlace se construye tambien con el indice.

		// Se toma el formato de celda de la tabla de cada mes en cabecera
		
document.write("<TD class=mes"+clase[indice]+"><a href=hum"+indice+".htm>"+dia+" "+personaje[indice]+"</a></TD>")

		// Procesa el día siguiente
		dia++
	}

// Escribe resto de filas hasta el último de mes con el mismo proceso anterior, máximo de 7 celdas por fila
	
	document.write("<TR>")
	
	while (dia <= mes_longitud) {
		for (var i=1; i<=7 && dia<=mes_longitud; i++) {
		
			var dia_alfa = dia
		
			if (dia < 10){
				switch (dia)
				{
					case (dia = 1):
				  dia_alfa = "01";
				  break
					case (dia = 2):
				  dia_alfa = "02";
				  break
					case (dia = 3):
				  dia_alfa = "03";
				  break
					case (dia = 4):
				  dia_alfa = "04";
				  break
					case (dia = 5):
				  dia_alfa = "05";
				  break
					case (dia = 6):
				  dia_alfa = "06";
				  break
					case (dia = 7):
				  dia_alfa = "07";
				  break
					case (dia = 8):
				  dia_alfa = "08";
				  break
					case (dia = 9):
				  dia_alfa = "09";
				  break
				}
			}
	
		var indice = mes_romano+dia_alfa
	
document.write("<TD class=mes"+clase[indice]+"><a href=hum"+indice+".htm>"+dia+" "+personaje[indice]+"</a></TD>")
	
		dia++
	}

	// Cierra fila y abre siguiente
	document.write("</TR><TR>")
	
	// Creo que esto no hace nada
	dia_comienzo=i
}

// Cierra última fila y tabla
document.write("</TR></TABLE><BR>")
}