|
Dim scw,sch,th,ccrw,ccrh,cclw,cclh,R,A1,B1,A2,B2,A3,B3
scw=document.body.clientWidth
sch=document.body.clientHeight
document.body.style.overflowX="hidden"
imgh=44
imgw=43
ccrw=(scw-imgw)/2
ccrh=185
cclw=(scw-imgw)/2
cclh=185
R=0
A1=3
B1=3
A2=5
B2=5
A3=7
B3=7
document.write ""
SetTimeOut "komen",400
Sub komen()
ClearTimeOut
SetTimeOut "cirle1r",4000
SetTimeOut "cirle1l",4000
SetTimeOut "cirle2r",4000
SetTimeOut "cirle2l",4000
SetTimeOut "cirle3r",4000
SetTimeOut "cirle3l",4000
Clearinterval (th)
th=Setinterval ("scroll", 64)
end sub
sub cirle1r()
ClearTimeOut
im1r.style.visibility="visible"
A1=A1+0.08
R=R+.05
ccrw=ccrw+.3
ccw=(R)*cos(A1)+ccrw
cch=R*sin(A1)+ccrh
im1r.style.left=ccw
im1r.style.top=cch
if R>=130 then R=130
if R>=130 then SetTimeOut "cirle1rt",30 else SetTimeOut "cirle1r",30
end sub
sub cirle1rt()
ClearTimeOut
A1=A1-0.08
R=R-.05
ccrw=ccrw-.3
ccw=(R)*cos(A1)+ccrw
cch=R*sin(A1)+ccrh
im1r.style.left=ccw
im1r.style.top=cch
if R<=0 then R=0
if R<=0 then SetTimeOut "verdwijn1",30 else SetTimeOut "cirle1rt",30
end sub
sub verdwijn1()
ClearTimeOut
im1r.style.visibility="hidden"
SetTimeOut "nep",10000
end sub
sub cirle1l()
ClearTimeOut
im1l.style.visibility="visible"
B1=B1-0.08
R=R+.05
cclw=cclw-.3
ccw=(R)*cos(B1)+cclw
cch=R*sin(B1)+cclh
im1l.style.left=ccw
im1l.style.top=cch
if R>=130 then R=130
if R>=130 then SetTimeOut "cirle1lt",30 else SetTimeOut "cirle1l",30
end sub
sub cirle1lt()
ClearTimeOut
B1=B1+0.08
R=R-.05
cclw=cclw+.3
ccw=(R)*cos(B1)+cclw
cch=R*sin(B1)+cclh
im1l.style.left=ccw
im1l.style.top=cch
if R<=0 then R=0
if R<=0 then SetTimeOut "verdwijn3",30 else SetTimeOut "cirle1lt",30
end sub
sub verdwijn3()
ClearTimeOut
im1l.style.visibility="hidden"
SetTimeOut "nep",10000
end sub
sub cirle2r()
ClearTimeOut
im2r.style.visibility="visible"
A2=A2+0.08
R=R+.05
ccrw=ccrw+.3
ccw=(R)*cos(A2)+ccrw
cch=R*sin(A2)+ccrh
im2r.style.left=ccw
im2r.style.top=cch
if R>=130 then R=130
if R>=130 then SetTimeOut "cirle2rt",30 else SetTimeOut "cirle2r",30
end sub
sub cirle2rt()
ClearTimeOut
A2=A2-0.08
R=R-.05
ccrw=ccrw-.3
ccw=(R)*cos(A2)+ccrw
cch=R*sin(A2)+ccrh
im2r.style.left=ccw
im2r.style.top=cch
if R<=0 then R=0
if R<=0 then SetTimeOut "verdwijn2",30 else SetTimeOut "cirle2rt",30
end sub
sub verdwijn2()
ClearTimeOut
im2r.style.visibility="hidden"
SetTimeOut "nep",10000
end sub
sub cirle2l()
ClearTimeOut
im2l.style.visibility="visible"
B2=B2-0.08
R=R+.05
cclw=cclw-.3
ccw=(R)*cos(B2)+cclw
cch=R*sin(B2)+cclh
im2l.style.left=ccw
im2l.style.top=cch
if R>=130 then R=130
if R>=130 then SetTimeOut "cirle2lt",30 else SetTimeOut "cirle2l",30
end sub
sub cirle2lt()
ClearTimeOut
B2=B2+0.08
R=R-.05
cclw=cclw+0.3
ccw=(R)*cos(B2)+cclw
cch=R*sin(B2)+cclh
im2l.style.left=ccw
im2l.style.top=cch
if R<=0 then R=0
if R<=0 then SetTimeOut "verdwijn4",30 else SetTimeOut "cirle2lt",30
end sub
sub verdwijn4()
ClearTimeOut
im2l.style.visibility="hidden"
SetTimeOut "nep",10000
end sub
sub cirle3r()
ClearTimeOut
im3r.style.visibility="visible"
A3=A3+0.08
R=R+.05
ccrw=ccrw+.3
ccw=(R)*cos(A3)+ccrw
cch=R*sin(A3)+ccrh
im3r.style.left=ccw
im3r.style.top=cch
if R>=130 then R=130
if R>=130 then SetTimeOut "cirle3rt",30 else SetTimeOut "cirle3r",30
end sub
sub cirle3rt()
ClearTimeOut
A3=A3-0.08
R=R-.05
ccrw=ccrw-.3
ccw=(R)*cos(A3)+ccrw
cch=R*sin(A3)+ccrh
im3r.style.left=ccw
im3r.style.top=cch
if R<=0 then R=0
if R<=0 then SetTimeOut "verdwijn5",30 else SetTimeOut "cirle3rt",30
end sub
sub verdwijn5()
ClearTimeOut
im3r.style.visibility="hidden"
SetTimeOut "nep",10000
end sub
sub cirle3l()
ClearTimeOut
im3l.style.visibility="visible"
B3=B3-0.08
R=R+.05
cclw=cclw-.3
ccw=(R)*cos(B3)+cclw
cch=R*sin(B3)+cclh
im3l.style.left=ccw
im3l.style.top=cch
if R>=130 then R=130
if R>=130 then SetTimeOut "cirle3lt",30 else SetTimeOut "cirle3l",30
end sub
sub cirle3lt()
ClearTimeOut
B3=B3+0.08
R=R-.05
cclw=cclw+.3
ccw=(R)*cos(B3)+cclw
cch=R*sin(B3)+cclh
im3l.style.left=ccw
im3l.style.top=cch
if R<=0 then R=0
if R<=0 then SetTimeOut "verdwijn6",30 else SetTimeOut "cirle3lt",30
end sub
sub verdwijn6()
ClearTimeOut
im3l.style.visibility="hidden"
SetTimeOut "komen",1000
end sub
|
|