clg

radius =5

angle = 1

do

gosub polarcoordinates

radius = radius+0.05

angle = angle+2

circle 150+x,150+y,2

color rgb(int(rand*2)*255,int(rand*2)*255,int(rand*2)*255)

until radius>150

end

polarcoordinates:

rad = (angle/180)*pi

y=(sin (rad))*radius

x=(cos (rad))*radius

return

## No comments:

## Post a Comment