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