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

Rename symbols to avoid conflicts

Browse Source
This commit is contained in:
oakes
2014-03-05 18:16:35 -05:00
parent c8d20ced6c
commit da9d9ce767
1 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
src/play_clj/g2d_physics.clj
View File

@@ -147,67 +147,67 @@
; shapes ; shapes
(defn chain* (defn chain-shape*
"The function version of `chain`" "The function version of `chain-shape`"
[] []
(ChainShape.)) (ChainShape.))
(defmacro chain (defmacro chain-shape
"Returns a [ChainShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/ChainShape.html)" "Returns a [ChainShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/ChainShape.html)"
[& options] [& options]
`(u/calls! ^ChainShape (chain*) ~@options)) `(u/calls! ^ChainShape (chain-shape*) ~@options))
(defmacro chain! (defmacro chain-shape!
"Calls a single method on a `chain`" "Calls a single method on a `chain-shape`"
[object k & options] [object k & options]
`(u/call! ^ChainShape ~object ~k ~@options)) `(u/call! ^ChainShape ~object ~k ~@options))
(defn circle* (defn circle-shape*
"The function version of `circle`" "The function version of `circle-shape`"
([] ([]
(CircleShape.)) (CircleShape.))
([radius] ([radius]
(doto ^CircleShape (circle*) (doto ^CircleShape (circle-shape*)
(.setRadius radius) (.setRadius radius)
(.setPosition (m/vector-2 radius radius))))) (.setPosition (m/vector-2 radius radius)))))
(defmacro circle (defmacro circle-shape
"Returns a [CircleShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/CircleShape.html)" "Returns a [CircleShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/CircleShape.html)"
[radius & options] [radius & options]
`(u/calls! ^CircleShape (circle* ~radius) ~@options)) `(u/calls! ^CircleShape (circle-shape* ~radius) ~@options))
(defmacro circle! (defmacro circle-shape!
"Calls a single method on a `circle`" "Calls a single method on a `circle-shape`"
[object k & options] [object k & options]
`(u/call! ^CircleShape ~object ~k ~@options)) `(u/call! ^CircleShape ~object ~k ~@options))
(defn edge* (defn edge-shape*
"The function version of `edge`" "The function version of `edge-shape`"
[] []
(EdgeShape.)) (EdgeShape.))
(defmacro edge (defmacro edge-shape
"Returns an [EdgeShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/EdgeShape.html)" "Returns an [EdgeShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/EdgeShape.html)"
[& options] [& options]
`(u/calls! ^EdgeShape (edge*) ~@options)) `(u/calls! ^EdgeShape (edge-shape*) ~@options))
(defmacro edge! (defmacro edge-shape!
"Calls a single method on an `edge`" "Calls a single method on an `edge-shape`"
[object k & options] [object k & options]
`(u/call! ^EdgeShape ~object ~k ~@options)) `(u/call! ^EdgeShape ~object ~k ~@options))
(defn polygon* (defn polygon-shape*
"The function version of `polygon`" "The function version of `polygon-shape`"
[] []
(PolygonShape.)) (PolygonShape.))
(defmacro polygon (defmacro polygon-shape
"Returns a [PolygonShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/PolygonShape.html)" "Returns a [PolygonShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/PolygonShape.html)"
[& options] [& options]
`(u/calls! ^PolygonShape (polygon*) ~@options)) `(u/calls! ^PolygonShape (polygon-shape*) ~@options))
(defmacro polygon! (defmacro polygon-shape!
"Calls a single method on a `polygon`" "Calls a single method on a `polygon-shape`"
[object k & options] [object k & options]
`(u/call! ^PolygonShape ~object ~k ~@options)) `(u/call! ^PolygonShape ~object ~k ~@options))