This is an old revision of the document!
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