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

Remove radius arg from circle-shape

Browse Source
This commit is contained in:
oakes
2014-09-18 12:22:40 -04:00
parent feb8d3484c
commit d1974d5068
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/play_clj/g2d_physics.clj
View File

@@ -178,17 +178,13 @@ such as :on-begin-contact."
`(u/call! ^ChainShape ~object ~k ~@options)) `(u/call! ^ChainShape ~object ~k ~@options))
(defn circle-shape* (defn circle-shape*
([] []
(CircleShape.)) (CircleShape.))
([radius]
(doto ^CircleShape (circle-shape*)
(.setRadius radius)
(.setPosition (m/vector-2 radius radius)))))
(defmacro circle-shape (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] [& options]
`(u/calls! ^CircleShape (circle-shape* ~radius) ~@options)) `(u/calls! ^CircleShape (circle-shape*) ~@options))
(defmacro circle-shape! (defmacro circle-shape!
"Calls a single method on a `circle-shape`." "Calls a single method on a `circle-shape`."