more tweaks to static

dgtized · Feb 19, 2024 · 4e78087 · 4e78087
1 parent 13b0ed2
commit 4e78087
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/shimmers/sketches/display_tree.cljs b/src/shimmers/sketches/display_tree.cljs
@@ -243,7 +243,7 @@
         center (g/centroid bounds)
         mode (dr/weighted {:static 1.0
                            :sweep 2.0
-                           :radial 2.0})
+                           :radial 10.0})
         dir (dr/rand-nth [-1 1])
         divisions
         (for [div (g/subdivide bounds {:cols cols :rows rows})
@@ -256,10 +256,13 @@
                    (let [v (dr/random)]
                      (fn [t _f] (mod (+ (* dir t) v) 1.0)))
                    :radial
-                   (fn [t f] (eq/unit-sin (+ r (* 2 (* dir t)) f)))
+                   (let [factor (Math/pow 2.0 (dr/weighted {0 10
+                                                            6 4
+                                                            7 3}))]
+                     (fn [t _f] (eq/unit-sin (+ (/ r factor) (* 2 (* dir t))))))
                    :sweep
                    (let [blades (dr/random-int 4)]
-                     (fn [t f] (eq/unit-sin (+ (+ (* Math/PI blades) theta) (* dir t) f)))))))]
+                     (fn [t _f] (eq/unit-sin (+ (+ blades theta) (* dir t))))))))]
     (fn [p rotation t f]
       (doseq [{:keys [value] :as div} divisions]
         (q/fill (value t f))