a=new Array
T=new Array
e=new Array
inc=new Array
OM=new Array
om=new Array
peri=new Array
mese=new Array(0,31,28,31,30,31,30,31,31,30,31,30,31)
adesso=new Date()


function sto() {
stoppe=1
document.sistema.time.readOnly=false;
if (IE4) document.sistema.time.style.backgroundColor='#eeeeee'
if (IE4) document.sistema.time.style.color='#444444'
document.sistema.time.focus()
document.sistema.F.src=f0.src
document.sistema.B.src=r0.src
}

function sta() {
stoppe=0
document.sistema.time.readOnly=true;
if (IE4) document.sistema.time.style.backgroundColor='#000000'
if (IE4) document.sistema.time.style.color='#eeeeee'
if (IE4) document.sistema.time.blur()
}

function rota() {
if (stoppe==1) return
stepk(1)
rsz=0
setTimeout('rota()',40)
}

function rotai() {
if (stoppe==1) return
stepk(-1)
rsz=0
setTimeout('rotai()',40)
}

function stepk(pa)
{
pas=Math.ceil(pa)
t+=pas;
gg+=pas;
ellik('mercurio','mergif',a[0],T[0],e[0],inc[0],OM[0],om[0],peri[0],med)
ellik('venere','venusgif',a[1],T[1],e[1],inc[1],OM[1],om[1],peri[1],ved)
ellik('terra','earthgif',a[2],T[2],e[2],inc[2],OM[2],om[2],peri[2],ted)
ellik('marte','marsgif',a[3],T[3],e[3],inc[3],OM[3],om[3],peri[3],mad)
ellik('giove','giogif',a[4],T[4],e[4],inc[4],OM[4],om[4],peri[4],gid)
ellik('saturno','satugif',a[5],T[5],e[5],inc[5],OM[5],om[5],peri[5],sad)
ellik('urano','uragif',a[6],T[6],e[6],inc[6],OM[6],om[6],peri[6],urd)
ellik('nettuno','netgif',a[7],T[7],e[7],inc[7],OM[7],om[7],peri[7],ned)
ellik('plutone','plugif',a[8],T[8],e[8],inc[8],OM[8],om[8],peri[8],pld)
ellik('luna','moongif',a[2],T[2],e[2],inc[2],OM[2],om[2],peri[2],lud)
trovadat(gg,mm,aaaa,mese)
}


function ellik(obj,im,rag,tperc,eccp,incli,omega,lppia,peri,di)
{
if (obj=="luna")  {
fluna()
satx=ted*cos(lam-lpter)
saty=-ted*sin(lam-lpter)
}
else {
satx=0
saty=0
}
tau=t-peri
tperc=tperc*anno
per=tperc/(pig*2)
tsp=tau/per
semia=rag*ua
omega=omega*ar
lppia=lppia*ar
incli=incli*ar
teta=tempano(eccp,tsp)
p=semia*(1-eccp*eccp)
r=p/(1+eccp*cos(teta))
xecl=cos(lppia+teta)*cos(omega)-sin(lppia+teta)*sin(omega)*cos(incli)
yecl=cos(incli)*sin(lppia+teta)*cos(omega)+cos(lppia+teta)*sin(omega)
slp=sin(lpter)
clp=cos(lpter)
xecl=r*xecl
yecl=r*yecl
xabs=clp*xecl+slp*yecl
yabs=clp*yecl-slp*xecl
csi=cx+xabs*scala
eta=cy-yabs*scala
norma=Math.max(Math.abs(xabs),Math.abs(yabs))*scala
if (IE4 && (t==tstart || rsz==1)) eval(obj+".innerHTML="+im)
if (NS4 && (t==tstart || rsz==1)) {
eval("document."+obj+".visibility='hide'")
eval("document."+obj+".document."+obj+".document.write("+im+")")
eval("document."+obj+".document."+obj+".document.close()")
eval("document."+obj+".left=csi+satx-di/2")
eval("document."+obj+".top=eta+saty-di/2")
eval("document."+obj+".visibility='show'")
}

if (isNN) ogge=document.getElementById(obj)
if (isNN && (t==tstart || rsz==1)) {
eval("ogge.innerHTML="+im)
}

if (NS4) oggetto=eval("document."+obj)
if (IE4) oggetto=eval(obj + ".style")
if (isNN) oggetto=ogge.style

if (semia*scala<sod/2 || semia*scala>W/2) {
oggetto.visibility="hidden"
}
else {
if (semia*scala<2*sod) satx=0,saty=0
oggetto.visibility="visible"
oggetto.left=csi+satx-di/2
oggetto.top=eta+saty-di/2
}
return
}