Remove breakage exceptions and make (game :x) and (game :y) equivalent to (game :point-x) and (game :point-y)
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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!
|
||||
|
||||
Reference in New Issue
Block a user