Skip to content

Commit

Permalink
add some variation to the dampen parameters and cut back on limit
Browse files Browse the repository at this point in the history
  • Loading branch information
dgtized committed Nov 25, 2024
1 parent 26a1e3e commit 7365152
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/shimmers/sketches/pendulum_sway.cljs
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand All @@ -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]}]
Expand Down

0 comments on commit 7365152

Please sign in to comment.