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