51 lines
1.0 KiB
Clojure
51 lines
1.0 KiB
Clojure
(in-ns 'play-clj.core)
|
|
|
|
; graphics
|
|
|
|
(defn clear!
|
|
([]
|
|
(clear! 0 0 0 0))
|
|
([r g b a]
|
|
(doto (Gdx/gl)
|
|
(.glClearColor (float r) (float g) (float b) (float a))
|
|
(.glClear GL20/GL_COLOR_BUFFER_BIT))))
|
|
|
|
(defmacro color
|
|
[& args]
|
|
`~(if (keyword? (first args))
|
|
`(Color. ^Color (utils/gdx-static-field :graphics :Color ~(first args)))
|
|
`(Color. ~@args)))
|
|
|
|
(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))
|
|
nil))
|
|
|
|
(defmacro game
|
|
[key]
|
|
`~(game* key))
|
|
|
|
; input
|
|
|
|
(defn resolve-key
|
|
[key]
|
|
(if (keyword? key)
|
|
(case key
|
|
:up Input$Keys/DPAD_UP
|
|
:down Input$Keys/DPAD_DOWN
|
|
:left Input$Keys/DPAD_LEFT
|
|
:right Input$Keys/DPAD_RIGHT
|
|
nil)
|
|
key))
|
|
|
|
(defmacro is-pressed?
|
|
[key]
|
|
`(.isKeyPressed (Gdx/input) ~(resolve-key key)))
|