less amplitude modulation

dgtized · Nov 21, 2024 · c2f6032 · c2f6032
1 parent 24a7932
commit c2f6032
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/shimmers/sketches/envelope_collapse.cljs b/src/shimmers/sketches/envelope_collapse.cljs
@@ -39,7 +39,9 @@
 (defn graph [t]
   (let [t (* 0.1 t)]
     (fn [x]
-      (let [tx (+ (* t 0.2 (eq/unit-sin (* 2 eq/TAU (+ x (* 0.9 t))))) x)
+      (let [tx (+ (tsin 0.05 t -0.1)
+                  (eq/unit-sin (* 2 eq/TAU (+ x (* 0.9 t))))
+                  x)
             dtx (* 1.5 (math/sin (* eq/TAU (+ (* 0.23 t)
                                          (* 1.75 x (math/sin (+ (* 0.1 x) (* 2 t))))))))]
         (+ (* (math/sin (* 1.5 eq/TAU (+ tx dtx)))