From e0371d4d288941a6e2c481feca9446d826f01715 Mon Sep 17 00:00:00 2001 From: oakes Date: Fri, 17 Jan 2014 22:50:06 -0500 Subject: [PATCH] Initialize circles with a radius --- src/play_clj/g2d_physics.clj | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/play_clj/g2d_physics.clj b/src/play_clj/g2d_physics.clj index 0524762..49be215 100644 --- 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]