diff --git a/src/shimmers/sketches/envelope_collapse.cljs b/src/shimmers/sketches/envelope_collapse.cljs index 626d96a7..63af6163 100644 --- 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)))