' -------------------------------
' script by ~Shar~
' sharander@core.com
' 10 December 2001
' circular motion
' figure eight
' -------------------------------
' 'evolve'd by Phil Richards
' added image flip
' 12 December 2001
' -------------------------------

x=0
y=0

Dim p1, p1w, p1h, scw, sch, A, R, ccw, cch, messw, messh, intervalHandle1,intervalHandle2

Sub Window_Onload()
window.status="     Feliz Natal!    MeuSonhoHomePage    ; )     "

scw=document.body.clientWidth
sch=document.body.clientHeight
A=3.14
R=200
ccw=150
cch=(sch-315)

REM set skater image height in the line below
p1h=281
REM set skater image width in the line below
p1w=172
mess.style.posLeft=(scw*.12)
mess.style.posTop=20
mess.style.width=350
mess.style.height=120
tab1.style.backgroundImage="URL("&tabback1.src&")" 
ClearInterval(intervalHandle1)
ClearInterval(intervalHandle2)
intervalHandle1=SetInterval("circle",25)
intervalHandle2=SetInterval("scrollback",64)
End Sub

Sub circle()
A=A+0.07
if A>6.28318 then A=A-6.28318
w=abs(p1w*sin(2*A))
ppicw=R*cos(A)+ccw
ppich=R/6*sin(2*A)+cch
pic.style.pixelLeft=ppicw+p1w/2
pic.style.pixelTop=ppich
if (A>0 and A<3.14159) then
 pic.filters.fliph.enabled="true"
else
 pic.filters.fliph.enabled="false"
end if
End Sub

Sub scrollback()
x=x+1
y=y+3
tab1.style.backgroundPosition=x&" "&y
end sub

Sub Window_onResize
window_onLoad
End Sub