// 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>")

	
	// Esta tabla contiene los índices con fotografía de grupo
  var fotos_grupo = new Array ("0131","0423","0605","0623","0805","1127","1116")
	
	
  // 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. El formato de celda se toma de la tabla de cada mes en  cabecera. 

   // Se definen las propiedades de la fotografía: general, vacía y de grupo
    anchura_foto = 60
    altura_foto = 80
    if (personaje[indice] == "Día no asignado") {
       anchura_foto = 0
       altura_foto = 0;
    }	
		for (y=0;y<=10;y++){
         if (fotos_grupo[y] == indice)
				 { anchura_foto = 80
				   altura_foto = 60
				 }	 
  	     }
		
document.write("<TD class=dia"+clase[indice]+"><a href=hum"+indice+".htm><div class=centro> <img src=ftc/hum"+indice+".jpg width="+anchura_foto+" height="+altura_foto+" > </div> "+ 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

    anchura_foto = 60
    altura_foto = 80
    if (personaje[indice] == "Día no asignado") {
       anchura_foto = 0
       altura_foto = 0;
    }	
		for (y=0;y<=10;y++){
         if (fotos_grupo[y] == indice)
				 { anchura_foto = 80
				   altura_foto = 60
				 }	 
    }

document.write("<TD class=dia"+clase[indice]+"><a href=hum"+indice+".htm> <div class=centro> <img src=ftc/hum"+indice+".jpg width="+anchura_foto+" height="+altura_foto+" > </div> "+ 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>")
}