ensure the envelope slides around a little

dgtized · Nov 18, 2024 · edcc0ff · edcc0ff
1 parent e76f7b7
commit edcc0ff
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/shimmers/sketches/envelope_collapse.cljs b/src/shimmers/sketches/envelope_collapse.cljs
@@ -34,7 +34,8 @@
             dtx (* 1.5 (math/sin (* eq/TAU (+ (* 0.5 t)
                                          (* 2.5 (math/sin (+ (* 0.1 x) (* 2 t))) x)))))]
         (+ (* (math/sin (* 1.5 eq/TAU (+ tx dtx)))
-              (math/sin (* eq/TAU (+ (* 0.17 x) (* 1.1 (math/sin (- x (* 0.25 t))))))))
+              (math/sin (* eq/TAU (+ (* 0.17 x) (* 1.1 (math/sin (- x (* 0.25 t))))
+                                (eq/sqr (math/sin (* eq/TAU (+ (* 0.15 t) (math/sin (* eq/TAU 0.0001 t))))))))))
            (* 0.1 (math/sin (* eq/TAU (+ (* 4 x) (* 0.01 t))))))))))
 
 (defn draw [{:keys [t]}]