notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Introduce (game :point-x) and (game :point-y) to preserve backwards compatibility

Browse Source
This commit is contained in:
oakes
2014-08-26 23:42:41 -04:00
parent c3f74d97f7
commit 466a11f408
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/play_clj/core_basics.clj
View File

@@ -94,15 +94,17 @@
"Provides quick access to often-used functions. "Provides quick access to often-used functions.
(game :width)" (game :width)"
[k] [k & [arg]]
(case k (case k
:width (graphics! :get-width) :width (graphics! :get-width)
:height (graphics! :get-height) :height (graphics! :get-height)
:fps (graphics! :get-frames-per-second) :fps (graphics! :get-frames-per-second)
:fullscreen? (graphics! :is-fullscreen) :fullscreen? (graphics! :is-fullscreen)
:touched? (input! :is-touched) :touched? (input! :is-touched)
:x (input! :get-x) :x (input! :get-x) ; deprecated, use :point-x instead
:y (- (graphics! :get-height) (input! :get-y)) :y (input! :get-y) ; deprecated, use :point-y instead (it is flipped)
:point-x (input! :get-x (or arg 0))
:point-y (- (graphics! :get-height) (input! :get-y (or arg 0)))
(u/throw-key-not-found k))) (u/throw-key-not-found k)))
(defmacro key-code (defmacro key-code