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

Only make a new layer for each row of tiles in isometric maps

Browse Source
This commit is contained in:
oakes
2014-02-24 13:35:38 -05:00
parent f21c6337b7
commit c8d20ced6c
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/play_clj/core_graphics.clj
View File

@@ -391,7 +391,9 @@ specify which layers to render with or without
(let [screen-tile (if (isometric? screen) (let [screen-tile (if (isometric? screen)
(isometric->screen screen map-tile) (isometric->screen screen map-tile)
map-tile) map-tile)
new-layer (or (->> layers (filter #(= y (:y %))) first) new-layer (or (->> layers
(filter #(= (:y screen-tile) (:y %)))
first)
(assoc screen-tile :layer (create-layer l)))] (assoc screen-tile :layer (create-layer l)))]
(->> (tiled-map-layer! l :get-cell x y) (->> (tiled-map-layer! l :get-cell x y)
(tiled-map-layer! (:layer new-layer) :set-cell x y)) (tiled-map-layer! (:layer new-layer) :set-cell x y))