adding my odd peano curve thing

peanomod.ld

@@ -0,0 +1,89 @@
+let d = 50
+
+pw!(5)
+rt!(0.25)
+
+fn y!
+
+& comment for strange Peano variation
+& uncomment for standard Peano curve
+& fn f! (n) -> fd!(d)
+
+& comment for standard Peano curve
+& uncomment for strange Peano variation
+fn f! {
+  (0) -> fd!(d)
+  (n) -> {
+    f!(dec(n))
+    rt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    f!(dec(n))
+  }
+}
+
+fn x! {
+  (0) -> nil
+  (n) -> {
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    rt!(0.25)
+    f!(dec(n))
+    rt!(0.25)
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+  }
+}
+
+fn y! {
+  (0) -> nil
+  (n) -> {
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    lt!(0.25)
+    f!(dec(n))
+    lt!(0.25)
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    rt!(0.25)
+    f!(dec(n))
+    rt!(0.25)
+    y!(dec(n))
+    f!(dec(n))
+    x!(dec(n))
+    f!(dec(n))
+    y!(dec(n))
+  }
+}
+
+x!(3)