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

Use a centralized function to determine how to deal with objects used in entity macros

Browse Source
This commit is contained in:
oakes
2014-01-19 03:37:18 -05:00
parent a17d0ceb79
commit 6bac86a94f
5 changed files with 65 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/play_clj/g2d_physics.clj
View File

@@ -22,7 +22,7 @@
(defmacro box-2d!
[screen k & options]
`(let [^World object# (or (:world ~screen) ~screen)]
`(let [^World object# (u/get-obj ~screen :world)]
(u/call! object# ~k ~@options)))
; bodies
@@ -40,7 +40,7 @@
(defmacro body!
[entity k & options]
`(let [^Body object# (or (:body ~entity) ~entity)]
`(let [^Body object# (u/get-obj ~entity :body)]
(u/call! object# ~k ~@options)))
(defn create-body!*
@@ -180,7 +180,7 @@
(defn first-contact
([screen]
(let [^Contact contact (or (:contact screen) screen)]
(let [^Contact contact (u/get-obj screen :contact)]
(assert contact)
(-> contact .getFixtureA .getBody)))
([screen entities]
@@ -188,7 +188,7 @@
(defn second-contact
([screen]
(let [^Contact contact (or (:contact screen) screen)]
(let [^Contact contact (u/get-obj screen :contact)]
(assert contact)
(-> contact .getFixtureB .getBody)))
([screen entities]