This shows you the differences between two versions of the page.
— |
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> | ||