140 lines
3.5 KiB
Clojure
140 lines
3.5 KiB
Clojure
(in-ns 'play-clj.core)
|
|
|
|
; rendering
|
|
|
|
(defmulti render! #(-> % :renderer type) :default nil)
|
|
|
|
(defmethod render! nil [screen])
|
|
|
|
(defmethod render! BatchTiledMapRenderer
|
|
[{:keys [^BatchTiledMapRenderer renderer ^Camera camera]}]
|
|
(when camera (.setView renderer camera))
|
|
(.render renderer))
|
|
|
|
(defmethod render! Stage
|
|
[{:keys [^Stage renderer ^Camera camera]}]
|
|
(when camera (.setCamera renderer camera))
|
|
(.draw renderer))
|
|
|
|
(defn tiled-map-layers
|
|
[{:keys [^BatchTiledMapRenderer renderer]}]
|
|
(assert renderer)
|
|
(let [layers (-> renderer .getMap .getLayers)]
|
|
(for [^long i (range (.getCount layers))]
|
|
(.get layers i))))
|
|
|
|
(defn tiled-map-layer
|
|
[screen layer]
|
|
(if (isa? (type layer) MapLayer)
|
|
layer
|
|
(->> (tiled-map-layers screen)
|
|
(drop-while #(not= layer (.getName ^MapLayer %)))
|
|
first)))
|
|
|
|
(defn tiled-map-layer-name
|
|
[screen layer]
|
|
(.getName ^MapLayer (tiled-map-layer screen layer)))
|
|
|
|
(defn tiled-map-layer-names
|
|
[screen]
|
|
(for [layer (tiled-map-layers screen)]
|
|
(tiled-map-layer-name screen layer)))
|
|
|
|
(defn tiled-map-cell
|
|
[screen layer x y]
|
|
(.getCell ^TiledMapTileLayer (tiled-map-layer screen layer) x y))
|
|
|
|
(defn ^:private refresh-renderer!
|
|
[{:keys [renderer ui-listeners]} entities]
|
|
(when (isa? (type renderer) Stage)
|
|
(doseq [^Actor a (.getActors ^Stage renderer)]
|
|
(.remove a))
|
|
(doseq [{:keys [object]} entities]
|
|
(when (isa? (type object) Actor)
|
|
(.addActor ^Stage renderer object)
|
|
(doseq [listener ui-listeners]
|
|
(.addListener ^Actor object listener))))
|
|
(remove-input! renderer)
|
|
(add-input! renderer)))
|
|
|
|
; renderers
|
|
|
|
(defn tiled-map
|
|
[s]
|
|
(if (string? s)
|
|
(.load (TmxMapLoader.) s)
|
|
s))
|
|
|
|
(defn orthogonal-tiled-map
|
|
[path unit]
|
|
(OrthogonalTiledMapRenderer. ^TiledMap (tiled-map path) ^double unit))
|
|
|
|
(defn isometric-tiled-map
|
|
[path unit]
|
|
(IsometricTiledMapRenderer. ^TiledMap (tiled-map path) ^double unit))
|
|
|
|
(defn isometric-staggered-tiled-map
|
|
[path unit]
|
|
(IsometricStaggeredTiledMapRenderer. ^TiledMap (tiled-map path) ^double unit))
|
|
|
|
(defn hexagonal-tiled-map
|
|
[path unit]
|
|
(HexagonalTiledMapRenderer. ^TiledMap (tiled-map path) ^double unit))
|
|
|
|
(defn stage
|
|
[]
|
|
(Stage.))
|
|
|
|
; cameras
|
|
|
|
(defn orthographic-camera
|
|
[]
|
|
(OrthographicCamera.))
|
|
|
|
(defn perspective-camera
|
|
[]
|
|
(PerspectiveCamera.))
|
|
|
|
(defn resize-camera!
|
|
[{:keys [^OrthographicCamera camera]} width height]
|
|
(assert camera)
|
|
(.setToOrtho camera false width height))
|
|
|
|
(defn move-camera!
|
|
[{:keys [^Camera camera]} x y]
|
|
(assert camera)
|
|
(when x (set! (. (. camera position) x) x))
|
|
(when y (set! (. (. camera position) y) y))
|
|
(.update camera))
|
|
|
|
; interop
|
|
|
|
(defmacro orthogonal-tiled-map!
|
|
[screen k & options]
|
|
`(u/call! ^OrthogonalTiledMapRenderer (:renderer ~screen) ~k ~@options))
|
|
|
|
(defmacro isometric-tiled-map!
|
|
[screen k & options]
|
|
`(u/call! ^IsometricTiledMapRenderer (:renderer ~screen) ~k ~@options))
|
|
|
|
(defmacro isometric-staggered-tiled-map!
|
|
[screen k & options]
|
|
`(u/call! ^IsometricStaggeredTiledMapRenderer (:renderer ~screen)
|
|
~k ~@options))
|
|
|
|
(defmacro hexagonal-tiled-map!
|
|
[screen k & options]
|
|
`(u/call! ^HexagonalTiledMapRenderer (:renderer ~screen) ~k ~@options))
|
|
|
|
(defmacro stage!
|
|
[screen k & options]
|
|
`(u/call! ^Stage (:renderer ~screen) ~k ~@options))
|
|
|
|
(defmacro orthographic-camera!
|
|
[screen k & options]
|
|
`(u/call! ^OrthographicCamera (:camera ~screen) ~k ~@options))
|
|
|
|
(defmacro perspective-camera!
|
|
[screen k & options]
|
|
`(u/call! ^PerspectiveCamera (:camera ~screen) ~k ~@options))
|