From 88bc73cdbed9f1de3104368f87bd0acee5cae9e2 Mon Sep 17 00:00:00 2001
From: Matt Nish-Lapidus <matt@emenel.ca>
Date: Tue, 18 Jun 2024 22:15:09 -0400
Subject: [PATCH] updating ld scripts

---
 mattspingon.ld | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 mattspingon.ld

diff --git a/mattspingon.ld b/mattspingon.ld
new file mode 100644
index 0000000..877c477
--- /dev/null
+++ b/mattspingon.ld
@@ -0,0 +1,28 @@
+let numgons = 10
+
+fn ngon! (sides, size) -> repeat sides { fd!(size); lt!(inv(sides)) }
+
+let cpal = [(100,255,100,100),(80,100,200,170),(80,100,200,70),(250,80,100,170)]
+
+fn spingon! (sides, size, count, pw, alpha, turn, move) -> {
+  if eq? (count, 0) then {
+    "enough!"
+  } else {
+    rt!(inv(sides))
+    pencolor!((100,180,100,alpha))
+    pw!(pw)
+    ngon! (sides, size)
+    rt!(turn)
+    fd!(move)
+    spingon! (
+          add(sides, 3),
+          inc(size),
+          dec(count),
+          add(pw, 0.0005),
+          add(alpha, div(255, numgons)),
+          turn,
+          move)
+  }
+}
+
+spingon!(3, 1, numgons, 1, 1, 0.3, 70)