notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove joints whose bodies no longer exist

Browse Source
This commit is contained in:
oakes
2014-01-18 18:51:23 -05:00
parent 7497b33eca
commit a1a6066c99
3 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/play_clj/core_graphics.clj
View File

@@ -15,11 +15,18 @@
(defn ^:private update-box-2d!
[{:keys [^World world]} entities]
(when-not (.isLocked world)
(let [bodies (u/gdx-array [])]
(.getBodies world bodies)
(doseq [body bodies]
(let [arr (u/gdx-array [])]
; remove bodies that no longer exist
(.getBodies world arr)
(doseq [body arr]
(when-not (some #(= body (:body %)) entities)
(.destroyBody world body))))))
(.destroyBody world body)))
; remove joints whose bodies no longer exist
(.getJoints world arr)
(doseq [^Joint joint arr]
(when (and (not (some #(= (.getBodyA joint) (:body %)) entities))
(not (some #(= (.getBodyB joint) (:body %)) entities)))
(.destroyJoint world joint))))))
(defn ^:private update-screen!
([{:keys [world g2dp-listener]}]