slow down the tangent term

dgtized · Nov 21, 2024 · 4f71458 · 4f71458
1 parent 95cb14c
commit 4f71458
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/shimmers/sketches/envelope_collapse.cljs b/src/shimmers/sketches/envelope_collapse.cljs
@@ -56,8 +56,8 @@
   (q/color 0.0)
   (q/stroke-weight 1.0)
   (q/no-fill)
-  (let [tan-term (+ (* 0.007 t)
-                    (* 2.1 (math/sin (+ (* eq/TAU 0.003 t) 0.75))))
+  (let [tan-term (+ (* 0.004 t)
+                    (* 1.37 (tsin 0.003 t 0.5)))
         offset (* 0.15 (tm/clamp (math/tan (* eq/TAU tan-term)) -100 100))]
     (doseq [v (range -2 3 1)]
       (plot (graph (+ t (* v offset)))