18 lines
287 B
Text
18 lines
287 B
Text
gcolor 944
|
|
glinewidth 0.3
|
|
on animate
|
|
gclear
|
|
incr = (incr + 0.05) mod 360
|
|
x = 50
|
|
y = 50
|
|
glineto x y
|
|
length = 1
|
|
angle = incr
|
|
for i = 1 to 150
|
|
x += cos angle * length
|
|
y += sin angle * length
|
|
glineto x y
|
|
length += 1
|
|
angle += incr
|
|
.
|
|
.
|