graphicsimagejkjagdep [BASIC 256 - Language Documentation]

# BASIC 256 - Language Documentation

graphicsimagejkjagdep

Jagged Depths by Joel Kahn (July 2010)

    cls
    clg
    w=600.0
    h=600.0
    graphsize w,h
    x=w/2.0
    y=h/2.0
    dim a(6)
    a={0.0,0.0,0.0,x,y,0.0}
    s1=0.9101
    ss1=0.000347
    s2=0.9103
    ss2=0.000353
    pie=3.1416
    q1=pie
    qq1=1.631*pie
    q2=q1
    qq2=qq1+s2
    cc=137.0
    c1=cc
    c2=-cc
    while s1<>s2
       s1=s1-ss1
       q1=q1+qq1
       c1=c1+cc
       color c1
       stamp x,y,s1,q1,a
       s2=s2-ss2
       q2=q2-qq2
       c2=c2-cc
       color c2
       stamp x,y,s2,q2,a
    end while

graphicsimagejkjagdep.txt · Last modified: 2013/01/02 22:48 by admin