Initialize circles with a radius

2014-01-17 22:50:06 -05:00
parent 5a4d4735ea
commit e0371d4d28
1 changed files with 8 additions and 4 deletions
--- a/src/play_clj/g2d_physics.clj
+++ b/src/play_clj/g2d_physics.clj
@@ -110,12 +110,16 @@
  `(u/call! ^ChainShape ~object ~k ~@options))

 (defn circle*
-  []
-  (CircleShape.))
+  ([]
+    (CircleShape.))
+  ([radius]
+    (doto (circle*)
+      (.setRadius radius)
+      (.setPosition (m/vector-2 radius radius)))))

 (defmacro circle
-  [& options]
-  `(u/calls! ^CircleShape (circle*) ~@options))
+  [radius & options]
+  `(u/calls! ^CircleShape (circle* ~radius) ~@options))

 (defmacro circle!
  [object k & options]