This shows you the differences between two versions of the page.
graphicsimagejkjagdep [2016/01/12 09:54] renejm |
graphicsimagejkjagdep [2020/02/28 10:46] |
||
---|---|---|---|
Line 1: | Line 1: | ||
- | {{: | ||
- | Jagged Depths by Joel Kahn (July 2010) with minor updates. | ||
- | < | ||
- | 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, | ||
- | s1=0.9101 | ||
- | ss1=0.000347 | ||
- | s2=0.9103 | ||
- | ss2=0.000353 | ||
- | q1=pi | ||
- | qq1=1.631*pi | ||
- | q2=q1 | ||
- | qq2=qq1+s2 | ||
- | cc=137.0 | ||
- | c1=cc | ||
- | c2=-cc | ||
- | do | ||
- | color c1 | ||
- | stamp x,y,s1,q1,a | ||
- | color c2 | ||
- | stamp x,y,s2,q2,a | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | until s1 <= 0 or s2 <= 0 | ||
- | </ | ||