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

Make function work in multithreaded code

Browse Source
This commit is contained in:
oakes
2014-01-09 23:41:19 -05:00
parent f631626060
commit 4c4b5a4dc2
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/play_clj/core_render.clj
View File

@@ -13,13 +13,6 @@
(isa? (type renderer) Stage) (isa? (type renderer) Stage)
(.draw ^Stage renderer))) (.draw ^Stage renderer)))
(defn tiled-map-layer
[{:keys [^BatchTiledMapRenderer renderer]} layer]
(assert renderer)
(if (isa? (type layer) MapLayer)
layer
(-> renderer .getMap .getLayers (.get ^String layer))))
(defn tiled-map-layers (defn tiled-map-layers
[{:keys [^BatchTiledMapRenderer renderer]}] [{:keys [^BatchTiledMapRenderer renderer]}]
(assert renderer) (assert renderer)
@@ -27,6 +20,14 @@
(for [^long i (range (.getCount layers))] (for [^long i (range (.getCount layers))]
(.get layers i)))) (.get layers i))))
(defn tiled-map-layer
[screen layer]
(if (isa? (type layer) MapLayer)
layer
(->> (tiled-map-layers screen)
(filter #(= layer (.getName ^MapLayer %)))
first)))
(defn tiled-map-layer-name (defn tiled-map-layer-name
[screen layer] [screen layer]
(.getName ^MapLayer (tiled-map-layer screen layer))) (.getName ^MapLayer (tiled-map-layer screen layer)))