tweak the rendered range and rate of change

dgtized · Aug 14, 2023 · 535db39 · 535db39
1 parent 9ed3f1e
commit 535db39
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/shimmers/sketches/spiral_distance.cljs b/src/shimmers/sketches/spiral_distance.cljs
@@ -35,17 +35,17 @@
   (q/translate (cq/rel-vec 0.66 0.33))
   (let [t (/ (q/frame-count) 200)
         offset (- (/ 1 tm/PHI))
-        dt (* Math/PI (tm/fract (/ t 3)))
-        points (for [theta (range Math/PI (* Math/PI 13) 0.2)]
-                 (log-spiral 0.1 0.25 (+ theta dt)))
+        dt (* 2 Math/PI (tm/fract (/ t 5)))
+        points (for [theta (range (* 2.5 Math/PI) (* Math/PI 17) 0.2)]
+                 (log-spiral 0.1 0.175 (+ theta dt)))
         points (mapv (partial noise-displace (/ 1 400) 12 t) points)]
     (doseq [[[ia pa] [ib pb]] (partition 2 1 (map-indexed vector points))]
       (when-let [qa (nth points (- ia 28) nil)]
         (when-let [qb (nth points (- ib 22) nil)]
           (let [polygon (gp/polygon2 [pa qa qb pb])
                 center (g/centroid polygon)
                 mag (tm/mag center)
-                c (+ offset (* 0.001 mag tm/PHI))]
+                c (+ offset (* 0.003 mag tm/PHI))]
             (q/fill (mod c 1.0) 0.6 (/ 1.1 tm/PHI) 1.0)
             (cq/draw-curve-shape (g/vertices polygon))))))))