ivan/il
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

s

Browse Source
This commit is contained in:
rawley
2026-07-10 00:25:16 -06:00
parent 5302ef49fd
commit 1836dffb3d
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/frontend/il/app.cljs
View File

@@ -72,8 +72,7 @@
(defn ticker [app state layers t] (defn ticker [app state layers t]
(let [dt (.-deltaTime t) (let [dt (.-deltaTime t)
{world-layer :world-layer} layers {world-layer :world-layer} layers
{:keys [player entities] {:keys [player entities]} (-> @state
:as latest-state} (-> @state
(update/update-entities dt layers) (update/update-entities dt layers)
(update/update-player dt layers) (update/update-player dt layers)
(->> (swap! state merge))) (->> (swap! state merge)))
@@ -85,10 +84,8 @@
world-renderables (vector {:renderable world-layer :x sx :y sy}) world-renderables (vector {:renderable world-layer :x sx :y sy})
player-renderables (vector player player-renderables (vector player
(assoc player :renderable (:shootbox player))) (assoc player :renderable (:shootbox player)))
things-to-update (conj player-renderable entity-renderables world-renderables)] things-to-update (concat player-renderables entity-renderables world-renderables)]
(println latest-state) (println player-renderables (count player-renderables) (count things-to-update))
(println @state)
(println (count things-to-update))
(doseq [thing things-to-update] (doseq [thing things-to-update]
(let [{renderable :renderable (let [{renderable :renderable
x :x x :x