User Tools

Site Tools


graphicsimagejkspirro

Round Spiral by Joel Kahn (June 2010)

# Contributed by Joel Kahn
fastgraphics
cls
clg
r=0:g=0:b=0
x=250.0:y=250.0
m=1.0
graphsize 500, 500
while x>0.0 and x<500.0 and y>0.0 and y<500.0
   m=m+4.0/m
   x=x+cos(m)
   y=y+sin(m)
   r=r+1
   if r>255 then
      r=1
      g=g+1
   end if
   if g>255 then
      g=1
      b=b+1
   end if
   color r, g, b
   plot x,y
end while
refresh
graphicsimagejkspirro.txt · Last modified: 2016/01/01 22:37 (external edit)