15 lines
227 B
Text
15 lines
227 B
Text
bgcolor 0, 0, 0
|
|
cls graphics
|
|
fgcolor 255, 255, 0
|
|
|
|
define pi = 3.14, size = 80
|
|
define x = 250, y = 200
|
|
define a = 1.5, b = .7
|
|
|
|
for t = 0 to size * pi step .1
|
|
|
|
let r = a + b * t
|
|
dot r * cos(t) + x, r * sin(t) + y
|
|
wait
|
|
|
|
next t
|