graphicsimagejkspirro [BASIC 256 - Language Documentation]

# BASIC 256 - Language Documentation

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: 2013/01/02 22:45 by admin