' script by ~Shar~
' sharander@core.com
' nov 29 2001
' circular motion
' half circle / down 
' -------------------------------

Dim ppich, ppicw, picw, pich, scw, sch, A, R, ccw, cch, messw, messh, timeoutHandle

Sub Window_Onload()
window.status="--- Feliz Natal  MeuSonho HomePage ---"
ClearTimeOut(timeoutHandle)
scw=document.body.clientWidth
sch=document.body.clientHeight
A=3.14
R=140
ccw=150
cch=(sch-220)
pich=33
picw=33

mess.style.posLeft=(scw*.66)
mess.style.posTop=20
mess.style.width=(scw*.33)
mess.style.height=(sch/1.1)
circle
End Sub



Sub circle()
ClearTimeOut(timeoutHandle)
A=A+0.09
ppicw=R*cos(A)+ccw
ppich=R*sin(A)+cch
pic.style.Left=ppicw
pic.style.Top=ppich
if A>5.90 then timeoutHandle=SetTimeOut ("down", 5) else timeoutHandle=SetTimeOut ("circle", 10)
End Sub

Sub down()
ClearTimeOut(timeoutHandle)
ppich=ppich+12
ppicw=ppicw+5
pic.style.Left=ppicw
pic.style.Top=ppich
if ppich>(sch-111) then timeoutHandle=SetTimeOut ("repeat", 5000) else timeoutHandle=SetTimeOut ("down", 1)
End Sub

Sub repeat()
A=3.14
circle
End Sub

Sub Window_OnResize
Window_OnLoad
End Sub