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

Fix tiled map interop macros

Browse Source
This commit is contained in:
oakes
2014-01-13 02:58:45 -05:00
parent 6d2a651484
commit cf61fcde2f
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/play_clj/core_render.clj
View File

@@ -28,18 +28,16 @@
first))) first)))
(defmacro tiled-map-layer! (defmacro tiled-map-layer!
[screen layer-name k & options] [layer k & options]
`(u/call! ^TiledMapTileLayer (tiled-map-layer ~screen ~layer-name) `(u/call! ^TiledMapTileLayer ~layer ~k ~@options))
~k ~@options))
(defn tiled-map-cell (defn tiled-map-cell
[screen layer x y] [screen layer x y]
(.getCell ^TiledMapTileLayer (tiled-map-layer screen layer) x y)) (.getCell ^TiledMapTileLayer (tiled-map-layer screen layer) x y))
(defmacro tiled-map-cell! (defmacro tiled-map-cell!
[screen layer x y k & options] [cell k & options]
`(u/call! ^TiledMapTileLayer$Cell (tiled-map-cell ~screen ~layer ~x ~y) `(u/call! ^TiledMapTileLayer$Cell ~cell ~k ~@options))
~k ~@options))
(defn ^:private refresh-renderer! (defn ^:private refresh-renderer!
[{:keys [renderer ui-listeners]} entities] [{:keys [renderer ui-listeners]} entities]