modulate the size of each circle and use the same dampening factor

dgtized · Jul 30, 2024 · ab8db6a · ab8db6a
1 parent d65ce38
commit ab8db6a
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/shimmers/sketches/designed_imperfections.cljs b/src/shimmers/sketches/designed_imperfections.cljs
@@ -21,11 +21,12 @@
   (let [seed (dr/noise-seed)]
     (for [box (g/subdivide (csvg/screen width height)
                            {:cols (/ width 10) :rows (/ height 10)})]
-      (let [pos (g/centroid box)]
+      (let [pos (g/centroid box)
+            n (dr/noise-at-point seed 0.015 pos)
+            damp (/ 1.0 (Math/pow 1.004 (g/dist pos (rv 0.5 0.5))))]
         (gc/circle (tm/+ pos
-                         (v/polar (* 8.0 (/ 1.0 (Math/pow 1.005 (g/dist pos (rv 0.5 0.5)))))
-                                  (* eq/TAU (dr/noise-at-point seed 0.015 pos))))
-                   2.0)))))
+                         (v/polar (* 8.0 damp) (* eq/TAU n)))
+                   (* 2.0 (+ 1.0 (* 0.5 (Math/sin (* eq/TAU n)) damp))))))))
 
 (defn scene [{:keys [scene-id]}]
   (csvg/svg-timed {:id scene-id