Acceleration

harrykeightley · Oct 3, 2023 · fcdd0c3 · fcdd0c3
1 parent 0d17760
commit fcdd0c3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/examples/snake/snake.cljc b/examples/snake/snake.cljc
@@ -115,8 +115,11 @@
     [[:add [:components :food id] [:food]]
      [:add [:components :position id] [food-position]]]))
 
+(defn update-tick [x]
+  (max 100 (- x 5)))
+
 (defsys accelerate {:events :tick}
-  [[:update [:resource :timer] #(update % :ms dec)]])
+  [[:update [:resources :timer] #(update %1 :ms update-tick)]])
 
 (defsys display-game
   {:resources [:length :bounds]

diff --git a/examples/threejs/src/app.cljs b/examples/threejs/src/app.cljs
@@ -53,7 +53,7 @@
    :events :tick}
   (let [[rows cols] (:bounds resources)]
     (doseq [[cube [row col]] components]
-      (set! (.. cube -position -x) col)
+      (set! (.. cube -position -x) (-> (/ cols 2) - (+ col)))
       (set! (.. cube -position -y) (- rows row)))))
 
 (defsys reset-cubes