diff --git a/src/play_clj/core_basics.clj b/src/play_clj/core_basics.clj index fc91398..e9d2cfb 100644 --- a/src/play_clj/core_basics.clj +++ b/src/play_clj/core_basics.clj @@ -101,10 +101,10 @@ :fps (graphics! :get-frames-per-second) :fullscreen? (graphics! :is-fullscreen) :touched? (input! :is-touched) - :x (throw (Exception. "Replace (game :x) with (input! :get-x)")) - :y (throw (Exception. "Replace (game :y) with (input! :get-y)")) - :point-x (input! :get-x (or arg 0)) - :point-y (- (graphics! :get-height) (input! :get-y (or arg 0))) + :x (input! :get-x (or arg 0)) + :y (- (graphics! :get-height) (input! :get-y (or arg 0))) + :point-x (game :x arg) + :point-y (game :y arg) (u/throw-key-not-found k))) (defmacro key-code diff --git a/src/play_clj/g2d_physics.clj b/src/play_clj/g2d_physics.clj index e27b69d..16a534d 100644 --- a/src/play_clj/g2d_physics.clj +++ b/src/play_clj/g2d_physics.clj @@ -184,8 +184,6 @@ such as :on-begin-contact." (defmacro circle-shape "Returns a [CircleShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/CircleShape.html)." [& options] - (when (some-> (first options) keyword? not) - (throw (Exception. "Replace (circle-shape radius) with (circle-shape :set-radius radius :set-position (vector-2 radius radius))"))) `(u/calls! ^CircleShape (circle-shape*) ~@options)) (defmacro circle-shape!