Data commit

Task/Dragon-curve/PostScript/dragon-curve-1.ps

@@ -0,0 +1,44 @@
+%!PS
+%%BoundingBox: 0 0 550 400
+/ifpendown false def
+/rotation 0 def
+/srootii 2 sqrt def
+/turn {
+         rotation add /rotation exch def
+      } def
+/forward {
+            dup rotation cos mul
+           exch rotation sin mul
+           ifpendown
+                { rlineto }
+                { rmoveto }
+           ifelse
+         } def
+/penup {
+          /ifpendown false def
+       } def
+/pendown {
+             /ifpendown true def
+         } def
+
+/dragon { % [ length, split, d ]
+          dup
+          dup 1 get 0 eq
+              { 0 get forward }
+              { dup 2 get 45 mul turn
+                  dup aload pop pop
+                  1 sub exch srootii div exch
+                  1 3 array astore dragon pop
+                dup 2 get 90 mul neg turn
+                  dup aload pop pop
+                  1 sub exch srootii div exch
+                  -1 3 array astore dragon
+                dup 2 get 45 mul turn
+              }
+          ifelse
+          pop
+        } def
+150 150 moveto pendown [ 300 12 1 ] dragon stroke
+% 0 0 moveto 550 0 rlineto 0 400 rlineto -550 0 rlineto closepath stroke
+showpage
+%%END

Task/Dragon-curve/PostScript/dragon-curve-2.ps

@@ -0,0 +1,22 @@
+%!PS-Adobe-3.0
+%%BoundingBox 0 0 300 300
+
+/+ { 90 rotate } def
+/- {-90 rotate } def
+/!1 { dup 1 sub dup 0 eq not } def
+
+/F { 180 0 rlineto } def
+/X { !1 { X + Y F + } if pop } def
+/Y { !1 { - F X - Y } if pop } def
+
+/dragon {
+        gsave
+        70 180 moveto
+        dup 1 sub { 1 2 div sqrt dup scale -45 rotate } repeat
+        F X stroke
+        grestore
+} def
+
+1 1 20 { dragon showpage } for
+
+%%EOF