graphicsimagejkspirro
Differences
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> | ||
graphicsimagejkspirro.txt ยท Last modified: 2016/01/01 22:37 (external edit)
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
