From d1974d506898932defe40b32f8f08e6db4f2f87e Mon Sep 17 00:00:00 2001 From: oakes Date: Thu, 18 Sep 2014 12:22:40 -0400 Subject: [PATCH] Remove radius arg from circle-shape --- src/play_clj/g2d_physics.clj | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/src/play_clj/g2d_physics.clj b/src/play_clj/g2d_physics.clj index acb8af3..16a534d 100644 --- a/src/play_clj/g2d_physics.clj +++ b/src/play_clj/g2d_physics.clj @@ -178,17 +178,13 @@ such as :on-begin-contact." `(u/call! ^ChainShape ~object ~k ~@options)) (defn circle-shape* - ([] - (CircleShape.)) - ([radius] - (doto ^CircleShape (circle-shape*) - (.setRadius radius) - (.setPosition (m/vector-2 radius radius))))) + [] + (CircleShape.)) (defmacro circle-shape "Returns a [CircleShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/CircleShape.html)." - [radius & options] - `(u/calls! ^CircleShape (circle-shape* ~radius) ~@options)) + [& options] + `(u/calls! ^CircleShape (circle-shape*) ~@options)) (defmacro circle-shape! "Calls a single method on a `circle-shape`."