setscreen ("graphics:max;max")
View.Set ("offscreenonly")
var x0, y0 : int := 500
var x1, x2, x3, y1, y2, y3 : int := 100
var r1 : int := 300
var r2 : int := 100
var r3 : int := 60
loop
for i : 1 .. 360
cls
y1 := round (y0 + r1 * sind (i))
x1 := round (x0 + r1 * cosd (i))
y2 := round (y1 + r2 * sind (i * sqrt (r2)))
x2 := round (x1 + r2 * cosd (i * sqrt (r2)))
y3 := round (y2 + r3 * sind (i * sqrt (r3 * 5)))
x3 := round (x2 + r3 * cosd (i * sqrt (r3 * 5)))
Draw.FillOval (x0, y0, 100, 100, yellow)
Draw.FillOval (x1, y1, 25, 25, blue)
Draw.FillOval (x2, y2, 10, 10, darkgrey)
Draw.FillOval (x3, y3, 5, 5, grey)
View.Update
delay (10)
end for
end loop
|