s
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user