71 lines
1.8 KiB
Clojure
71 lines
1.8 KiB
Clojure
(in-ns 'play-clj.core)
|
|
|
|
; renderers
|
|
|
|
(defn load-tiled-map
|
|
[{:keys [file]}]
|
|
(assert (string? file))
|
|
(.load (TmxMapLoader.) file))
|
|
|
|
(defn unit-scale
|
|
[{:keys [tile-size]}]
|
|
(assert (number? tile-size))
|
|
(float (/ 1 tile-size)))
|
|
|
|
(defn render-tiled-map
|
|
[{:keys [^BatchTiledMapRenderer renderer ^Camera camera]}]
|
|
(fn []
|
|
(doto renderer
|
|
(.setView camera)
|
|
.render)
|
|
nil))
|
|
|
|
(defn tiled-map-layer
|
|
[{:keys [^BatchTiledMapRenderer renderer]} layer]
|
|
(-> renderer .getMap .getLayers (.get layer)))
|
|
|
|
(defn tiled-map-cell
|
|
[{:keys [^BatchTiledMapRenderer renderer] :as screen} layer x y]
|
|
(-> (if (or (string? layer) (number? layer))
|
|
(tiled-map-layer screen layer)
|
|
layer)
|
|
(.getCell x y)))
|
|
|
|
(defmulti create-renderer :type :default :orthogonal-tiled-map)
|
|
|
|
(defmethod create-renderer :orthogonal-tiled-map [opts]
|
|
(OrthogonalTiledMapRenderer. (load-tiled-map opts) (unit-scale opts)))
|
|
|
|
(defmethod create-renderer :isometric-tiled-map [opts]
|
|
(IsometricTiledMapRenderer. (load-tiled-map opts) (unit-scale opts)))
|
|
|
|
(defmethod create-renderer :isometric-staggered-tiled-map [opts]
|
|
(IsometricStaggeredTiledMapRenderer. (load-tiled-map opts) (unit-scale opts)))
|
|
|
|
(defmethod create-renderer :hexagonal-tiled-map [opts]
|
|
(HexagonalTiledMapRenderer. (load-tiled-map opts) (unit-scale opts)))
|
|
|
|
; cameras
|
|
|
|
(defmulti create-camera identity :default :orthographic)
|
|
|
|
(defmethod create-camera :orthographic [_]
|
|
(OrthographicCamera.))
|
|
|
|
(defmethod create-camera :perspective [_]
|
|
(PerspectiveCamera.))
|
|
|
|
(defn resize-camera
|
|
[{:keys [^Camera camera]} width height]
|
|
(fn []
|
|
(.setToOrtho camera false width height)
|
|
nil))
|
|
|
|
(defn move-camera
|
|
[{:keys [^Camera camera]} x y]
|
|
(fn []
|
|
(when x (set! (. (. camera position) x) x))
|
|
(when y (set! (. (. camera position) y) y))
|
|
(.update camera)
|
|
nil))
|