From d5b451b101d6dabf0f317d09f8aab9fa0e77b24f Mon Sep 17 00:00:00 2001
From: Matt Nish-Lapidus <matt@emenel.ca>
Date: Fri, 15 Nov 2024 17:35:52 -0500
Subject: [PATCH] adding my odd peano curve thing

---
 peanomod.ld | 89 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 89 insertions(+)
 create mode 100644 peanomod.ld

diff --git a/peanomod.ld b/peanomod.ld
new file mode 100644
index 0000000..03fcd6f
--- /dev/null
+++ b/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)