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

Overhaul the symbol system again

Browse Source
This commit is contained in:
oakes
2014-01-29 15:01:55 -05:00
parent 5ecdf787b7
commit 1cb42d38a6
7 changed files with 46 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/play_clj/g2d_physics.clj
View File

@@ -32,11 +32,11 @@
; bodies
(defmacro ^:private body-type
(defn ^:private body-type
"Internal use only"
[k]
`(symbol (str u/main-package ".physics.box2d.BodyDef$BodyType/"
(u/key->pascal ~k) "Body")))
(u/gdx-class :physics :box2d :BodyDef
(str "BodyType/" (u/key->pascal k) "Body")))
(defmacro body-def
"Returns a [BodyDef](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/BodyDef.html)
@@ -102,11 +102,10 @@
; joints
(defmacro ^:private joint-init
(defn ^:private joint-init
"Internal use only"
[k]
`(symbol (str u/main-package ".physics.box2d.joints."
(u/key->pascal ~k) "JointDef.")))
(u/gdx :physics :box2d :joints (str (u/key->pascal k) "JointDef.")))
(defmacro joint-def
"Returns a subclass of [JointDef](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/JointDef.html)