User Tools

Site Tools


graphicsimagejkspirro

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

graphicsimagejkspirro [2016/01/01 22:37] (current)
Line 1: Line 1:
 +{{:​en:​kahn_joel_round_spiral.png?​200|}}
 +Round Spiral by Joel Kahn  (June 2010)
 +<​code>​
 +# 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
 +</​code>​
  
graphicsimagejkspirro.txt ยท Last modified: 2016/01/01 22:37 (external edit)