This commit is contained in:
2026-07-10 00:25:16 -06:00
parent 5302ef49fd
commit 1836dffb3d

View File

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