Remove breakage exceptions and make (game :x) and (game :y) equivalent to (game :point-x) and (game :point-y)

This commit is contained in:
oakes
2014-11-04 16:58:58 -05:00
parent 624ece68fa
commit 06a28157f5
2 changed files with 4 additions and 6 deletions

View File

@@ -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

View File

@@ -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!