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

Turn macro into function

Browse Source
This commit is contained in:
oakes
2014-01-08 03:33:38 -05:00
parent fa07f45c3d
commit b693578c83
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/play_clj/core_global.clj
View File

@@ -16,22 +16,22 @@
`(Color. ^Color (utils/gdx-static-field :graphics :Color ~(first args))) `(Color. ^Color (utils/gdx-static-field :graphics :Color ~(first args)))
`(Color. ~@args))) `(Color. ~@args)))
(defn game* (defmacro bitmap-font
[& options]
`(BitmapFont. ~@options))
(defn game
[key] [key]
(case key (case key
:width `(.getWidth (Gdx/graphics)) :width (.getWidth (Gdx/graphics))
:height `(.getHeight (Gdx/graphics)) :height (.getHeight (Gdx/graphics))
:fps `(.getFramesPerSecond (Gdx/graphics)) :fps (.getFramesPerSecond (Gdx/graphics))
:is-fullscreen? `(.isFullscreen (Gdx/graphics)) :is-fullscreen? (.isFullscreen (Gdx/graphics))
:is-touched? `(.isTouched (Gdx/input)) :is-touched? (.isTouched (Gdx/input))
:x `(.getX (Gdx/input)) :x (.getX (Gdx/input))
:y `(.getY (Gdx/input)) :y (.getY (Gdx/input))
nil)) nil))
(defmacro game
[key]
`~(game* key))
; input ; input
(defn resolve-key (defn resolve-key