some more base shapes for stretchy-curves

dgtized · Jul 10, 2024 · 9b917f7 · 9b917f7
1 parent cdbf8a0
commit 9b917f7
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/shimmers/sketches/stretchy_curves.cljs b/src/shimmers/sketches/stretchy_curves.cljs
@@ -26,12 +26,14 @@
   (q/no-fill)
   (q/stroke-weight 0.5)
   {:outline
-   (dr/rand-nth [(gc/circle (cq/rel-vec 0.5 0.5) (cq/rel-h 0.5))
-                 (g/as-polygon (gc/circle (cq/rel-vec 0.5 0.5) (cq/rel-h 0.5)) 6)
+   (dr/weighted {(gc/circle (cq/rel-vec 0.5 0.5) (cq/rel-h 0.5)) 1.0
+                 (g/as-polygon (gc/circle (cq/rel-vec 0.5 0.5) (cq/rel-h 0.5)) 8) 1.0
+                 (g/as-polygon (gc/circle (cq/rel-vec 0.5 0.5) (cq/rel-h 0.5)) 6) 1.0
+                 (g/as-polygon (gc/circle (cq/rel-vec 0.5 0.5) (cq/rel-h 0.5)) 5) 1.0
                  (ellipse/ellipse (cq/rel-vec 0.5 0.5)
                                   (cq/rel-w 0.49)
-                                  (cq/rel-h 0.49))
-                 (cq/screen-rect 0.9)])
+                                  (cq/rel-h 0.49)) 1.0
+                 (cq/screen-rect 0.9) 1.0})
    :weights (repeatedly 2 #(dr/random -0.1 0.1))
    :phase (repeatedly 2 dr/random-tau)
    :time (/ (q/millis) 1000.0)})