vary the smoothness of each glyph for more variations

dgtized · Jul 14, 2023 · 8779886 · 8779886
1 parent db65a06
commit 8779886
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/shimmers/sketches/glyphs.cljs b/src/shimmers/sketches/glyphs.cljs
@@ -17,11 +17,11 @@
 (def height 600)
 
 (defn smooth-line [points]
-  (->> points
-       (gsd/subdivide-closed (:chaikin gsd/schemes))
-       (gsd/subdivide-closed (:chaikin gsd/schemes))
-       cs/midsection
-       (cs/sandwich points)))
+  (as-> points _
+    (iterate (partial gsd/subdivide-closed (:chaikin gsd/schemes)) _)
+    (nth _ (dr/weighted {0 1 1 2 2 4 3 1}))
+    (cs/midsection _)
+    (cs/sandwich points _)))
 
 (defn glyph []
   (let [shapes (dr/weighted {0 6