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

Rename functions that are LibGDX-specific

Browse Source
This commit is contained in:
oakes
2013-12-31 14:01:25 -05:00
parent 673e324d48
commit 161e8b0333
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
common/src/play_clj/core_2d.clj
View File

@@ -41,9 +41,9 @@
(defmacro animation (defmacro animation
[duration images & args] [duration images & args]
`(Animation. ~duration `(Animation. ~duration
(utils/into-gdx-array ~images) (utils/gdx-into-array ~images)
(utils/static-field :graphics :g2d :Animation (utils/gdx-static-field :graphics :g2d :Animation
~(or (first args) :normal)))) ~(or (first args) :normal))))
(defn get-key-frame (defn get-key-frame
([screen ^Animation animation] ([screen ^Animation animation]

8
common/src/play_clj/utils.clj
View File

@@ -10,7 +10,7 @@
[keys] [keys]
(->> keys (map name) (s/join ".") (str "com.badlogic.gdx."))) (->> keys (map name) (s/join ".") (str "com.badlogic.gdx.")))
(defn static-field* (defn gdx-static-field*
[args] [args]
(->> (last args) (->> (last args)
split-keys split-keys
@@ -19,10 +19,10 @@
(str (join-keys (butlast args)) "/") (str (join-keys (butlast args)) "/")
symbol)) symbol))
(defmacro static-field (defmacro gdx-static-field
[& args] [& args]
`~(static-field* args)) `~(gdx-static-field* args))
(defn into-gdx-array (defn gdx-into-array
[a] [a]
(-> a into-array Array.)) (-> a into-array Array.))