12-13-2005, 11:56 AM
I made mine into a function. The actual functional code is only the 3 lines in the loop:
(FB)
Code:
screen 12
declare sub psetcircle(x, y, r, c)
for r = 1 to 200 step 1
psetcircle 320, 240, r, (r mod 15) + 1
next r
sleep
sub psetcircle(x,y,r,c)
dim o as double
for o = 0 to 360 step 30/r
pset(cos(o*3.141592/180)*r+x, sin(o*3.141592/180)*r+y), c
next o
end sub
url=http://www.lggaming.com/user/xerol/songs/recycled]Recycled CompoST[/url] - Best of 2005 Album by Xerol.