From 73651528e2447fef90e2c8345caa1c52c87d5e70 Mon Sep 17 00:00:00 2001 From: Charles Comstock Date: Mon, 25 Nov 2024 16:34:26 -0600 Subject: [PATCH] add some variation to the dampen parameters and cut back on limit --- src/shimmers/sketches/pendulum_sway.cljs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/shimmers/sketches/pendulum_sway.cljs b/src/shimmers/sketches/pendulum_sway.cljs index 29a8aa5c..e1d0a717 100644 --- a/src/shimmers/sketches/pendulum_sway.cljs +++ b/src/shimmers/sketches/pendulum_sway.cljs @@ -63,7 +63,7 @@ :delta delta}) (defn plot [{:keys [p r]} {:keys [select-fn] :as params}] - (let [limit 100 + (let [limit 85 f (functions select-fn)] (for [t (cs/series-limit 0 (* limit eq/TAU) @@ -85,8 +85,8 @@ [:gamma 1.5] [:delta 1.0]]) :dx (+ (dr/random-int 1 6) (dr/random -0.01 0.01)) :dy (+ (dr/random-int 1 6) (dr/random -0.01 0.01)) - :lambda1 0.004 - :lambda2 0.003 + :lambda1 (tm/clamp (dr/gaussian 0.005 0.0015) 0.0001 0.05) + :lambda2 (tm/clamp (dr/gaussian 0.005 0.0015) 0.0001 0.05) :gamma-rate (dr/weighted {0.125 4 0.25 2 0.5 1 0.75 1 1.25 1})}) (defn scene [{:keys [scene-id params]}]