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

Initialize circles with a radius

Browse Source
This commit is contained in:
oakes
2014-01-17 22:50:06 -05:00
parent 5a4d4735ea
commit e0371d4d28
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/play_clj/g2d_physics.clj
View File

@@ -110,12 +110,16 @@
`(u/call! ^ChainShape ~object ~k ~@options)) `(u/call! ^ChainShape ~object ~k ~@options))
(defn circle* (defn circle*
[] ([]
(CircleShape.)) (CircleShape.))
([radius]
(doto (circle*)
(.setRadius radius)
(.setPosition (m/vector-2 radius radius)))))
(defmacro circle (defmacro circle
[& options] [radius & options]
`(u/calls! ^CircleShape (circle*) ~@options)) `(u/calls! ^CircleShape (circle* ~radius) ~@options))
(defmacro circle! (defmacro circle!
[object k & options] [object k & options]