Code: Select all
dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres
dim as double rad=atn(1)/45
dim as ulongint radius =yres/4
dim as ulongint radius1=yres/4
dim as ulongint radius2=yres/4
dim as ulongint radius3=yres/4
dim as ulongint radius4=yres/4
dim as ulongint radius5=yres/4
dim as ulongint radius6=yres/4
dim as integer ball_radius=yres/20
dim as double x1,x2,x3,cx1,cx2,cx3,cx4,cx5,cx6
dim as double y1,y2,y3,cy1,cy2,cy3,cy4,cy5,cy6
dim as double atn1,atn2,atn3
dim as double c1,c2,c3,c4,c5,c6
dim as double s1,s2,s3,s4,s5,s6
dim as ulongint xctr=xres/2
dim as ulongint yctr=yres/2
circle(xctr,yctr),10,10
do
for deg1 as integer = 0 to 120*3 step 1
cls
circle(xctr,yctr),xres/4,15
c1=cos((0+deg1)*rad)
s1=sin((0+deg1)*rad)
x1=radius*c1
y1=radius*s1
atn1=atan2(y1,x1)/rad
if atn1>=-95 and atn1<=-85 then radius1=yres/2:radius4=yres/4
if atn1>=85 and atn1<=95 then radius1=yres/4:radius4=0
cx1=radius1*c1
cy1=radius1*s1
cx4=radius4*cos(380+deg1*rad)
cy4=radius4*sin(380+deg1*rad)
line(xctr,yctr)-(xctr+x1*2,yctr+y1*2),15
circle(xctr+cx1,yctr+cy1),ball_radius,10
circle(xctr+cx4,yctr+cy4),ball_radius,12
line-(xctr,yctr),15
c2=cos((120+deg1)*rad)
s2=sin((120+deg1)*rad)
x2=radius*c2
y2=radius*s2
atn2=atan2(y2,x2)/rad
if atn2>=-95 and atn2<=-85 then radius2=yres/2:radius5=yres/4
if atn2>=85 and atn2<=95 then radius2=yres/4:radius5=0
cx2=radius2*c2
cy2=radius2*s2
cx5=radius5*cos(200+deg1*rad)
cy5=radius5*sin(200+deg1*rad)
line(xctr,yctr)-(xctr+x2*2,yctr+y2*2),15
circle(xctr+cx2,yctr+cy2),ball_radius,10
circle(xctr+cx5,yctr+cy5),ball_radius,12
line-(xctr,yctr),15
c3=cos((240+deg1)*rad)
s3=sin((240+deg1)*rad)
x3=radius*c3
y3=radius*s3
atn3=atan2(y3,x3)/rad
if atn3>=-95 and atn3<=-85 then radius3=yres/2:radius6=yres/4
if atn3>=85 and atn3<=95 then radius3=yres/4:radius6=0
cx3=radius3*c3
cy3=radius3*s3
cx6=radius6*cos(45+deg1*rad)
cy6=radius6*sin(45+deg1*rad)
line(xctr,yctr)-(xctr+x3*2,yctr+y3*2),15
circle(xctr+cx3,yctr+cy3),ball_radius,10
circle(xctr+cx6,yctr+cy6),ball_radius,12
line-(xctr,yctr),15
sleep 30
if inkey<>"" then end
next
loop