// Fasi Lunari
// Rizzi Renato
// Copyright (c) 2007 Rizzi Renato - 39100 Bolzano
// L'uso di questo script è libero senza alcuna restrizione
// Altri script potete trovarli all' indirizzo http://www.renatoweb.it
// renato@renatoweb.it
// 01/12/2007

var luna
var pastdate
var pastyear=2002
var pastmonth=5
var pastday=11
var nowdate
var c
var pausenormal=50
var pausenowmoon=3000
var moonday
var i_mooncycle=1
var mooncycle=29.530589
var picture = new Array("lune/n1.gif","lune/n2.gif","lune/n3.gif","lune/n4.gif","lune/n5.gif","lune/n6.gif","lune/n7.gif","lune/n8.gif","lune/n9.gif","lune/n10.gif","lune/n11.gif","lune/n12.gif","lune/n13.gif","lune/n14.gif","lune/n15.gif","lune/n16.gif","lune/n17.gif","lune/n18.gif","lune/n19.gif","lune/n20.gif","lune/n21.gif","lune/n22.gif","lune/n23.gif","lune/n24.gif","lune/n25.gif","lune/n26.gif","lune/n27.gif","lune/n28.gif","lune/n29.gif")
var imgpreload=new Array()
for (i=0;i<=picture.length;i++) {
	imgpreload[i]=new Image()
	imgpreload[i].src=picture[i]
}

pastdate=new Date(pastyear,pastmonth,pastday,0,0,0)
nowdate=new Date()
resultdays=(Date.parse(nowdate)-Date.parse(pastdate))/1000/60/60/24
moonday=resultdays/mooncycle
moonday=(resultdays/mooncycle)-(Math.floor(resultdays/mooncycle))
moonday=Math.round(mooncycle*moonday)
c="<img src='lune/n"+moonday+".gif' align='right' alt='Questa è la fase lunare attuale' title='Questa è la fase lunare attuale'/>"