Turn macro into function

This commit is contained in:
oakes
2014-01-08 03:33:38 -05:00
parent fa07f45c3d
commit b693578c83

View File

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