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

Break up tiled-map-renderer into separate functions

Browse Source
This commit is contained in:
oakes
2014-01-08 14:10:11 -05:00
parent a534d49a90
commit b6bce49d40
3 changed files with 32 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/play_clj/core_render.clj
View File

@@ -48,20 +48,22 @@
(.load (TmxMapLoader.) s)
s))
(defn tiled-map-renderer
[renderer-type path pixels-per-tile]
(let [^TiledMap tmap (tiled-map path)
^double unit-scale (/ 1 pixels-per-tile)]
(case renderer-type
:orthogonal
(OrthogonalTiledMapRenderer. tmap unit-scale)
:isometric
(IsometricTiledMapRenderer. tmap unit-scale)
:isometric-staggered
(IsometricStaggeredTiledMapRenderer. tmap unit-scale)
:hexagonal
(IsometricTiledMapRenderer. tmap unit-scale)
nil)))
(defn orthogonal-tiled-map
[path ppt]
(OrthogonalTiledMapRenderer. ^TiledMap (tiled-map path) ^double (/ 1 ppt)))
(defn isometric-tiled-map
[path ppt]
(IsometricTiledMapRenderer. ^TiledMap (tiled-map path) ^double (/ 1 ppt)))
(defn isometric-staggered-tiled-map
[path ppt]
(IsometricStaggeredTiledMapRenderer. ^TiledMap (tiled-map path)
^double (/ 1 ppt)))
(defn hexagonal-tiled-map
[path ppt]
(HexagonalTiledMapRenderer. ^TiledMap (tiled-map path) ^double (/ 1 ppt)))
(defn stage
[]