fixup a couple more redundant calls

dgtized · Nov 29, 2024 · 38c6e85 · 38c6e85
1 parent b945413
commit 38c6e85
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/shimmers/sketches/waystation.cljs b/src/shimmers/sketches/waystation.cljs
@@ -70,7 +70,7 @@
   (let [acc (if target
               (let [control 0.1
                     delta (- target pos)
-                    acc (- (* control delta) (* (* 2 (math/sqrt control)) vel))]
+                    acc (- (* control delta) (* 2 (math/sqrt control) vel))]
                 (tm/clamp acc (- max-accel) (/ max-accel cars)))
               0)]
     (-> train

diff --git a/src/shimmers/sketches/woven.cljs b/src/shimmers/sketches/woven.cljs
@@ -85,7 +85,7 @@
 (defn update-pos [rate t dt {:keys [dir] :as inst}]
   (-> inst
       (update :pos tm/+ (tm/* dir (* 0.075 dt)))
-      (update :rot + (* (* 0.005 (math/sin (* rate t))) dt))))
+      (update :rot + (* 0.005 (math/sin (* rate t)) dt))))
 
 (defn update-state [{:keys [mono triangles rate screen pass t] :as state}]
   (let [dt (- (q/millis) t)]