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

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

8
src/play_clj/core_basics.clj
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