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

Improve body-def

Browse Source
This commit is contained in:
oakes
2014-04-21 13:19:00 -04:00
parent 1175fda252
commit 6f89bec8b8
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/play_clj/g2d_physics.clj
View File

@@ -39,7 +39,7 @@
; bodies ; bodies
(defn ^:private body-type (defn body-type
[k] [k]
(u/gdx-class :physics :box2d :BodyDef (u/gdx-class :physics :box2d :BodyDef
(str "BodyType/" (u/key->pascal k) "Body"))) (str "BodyType/" (u/key->pascal k) "Body")))
@@ -50,8 +50,7 @@
(body-def :dynamic)" (body-def :dynamic)"
[k & options] [k & options]
`(let [^BodyDef object# (BodyDef.)] `(let [^BodyDef object# (BodyDef.)]
(set! (. object# type) ~(body-type k)) (u/fields! object# :type ~(body-type k) ~@options)))
(u/fields! object# ~@options)))
(defmacro body! (defmacro body!
"Calls a single method on a body." "Calls a single method on a body."

1
src/play_clj/physics.clj
View File

@@ -124,6 +124,7 @@
(def box-2d* p2d/box-2d*) (def box-2d* p2d/box-2d*)
(defmacro box-2d [& body] `(p2d/box-2d ~@body)) (defmacro box-2d [& body] `(p2d/box-2d ~@body))
(defmacro box-2d! [& body] `(p2d/box-2d! ~@body)) (defmacro box-2d! [& body] `(p2d/box-2d! ~@body))
(def body-type p2d/body-type)
(defmacro body-def [& body] `(p2d/body-def ~@body)) (defmacro body-def [& body] `(p2d/body-def ~@body))
(defmacro body! [& body] `(p2d/body! ~@body)) (defmacro body! [& body] `(p2d/body! ~@body))
(defmacro joint-def [& body] `(p2d/joint-def ~@body)) (defmacro joint-def [& body] `(p2d/joint-def ~@body))