68 lines
1.8 KiB
Clojure
68 lines
1.8 KiB
Clojure
(in-ns 'play-clj.core)
|
|
|
|
; 2d
|
|
|
|
(defmacro image!
|
|
[entity k & options]
|
|
`(utils/call! ^TextureRegion (:object ~entity) ~k ~@options))
|
|
|
|
; render
|
|
|
|
(defmacro orthogonal-tiled-map!
|
|
[{:keys [renderer]} k & options]
|
|
`(utils/call! ^OrthogonalTiledMapRenderer ~renderer ~k ~@options))
|
|
|
|
(defmacro isometric-tiled-map!
|
|
[{:keys [renderer]} k & options]
|
|
`(utils/call! ^IsometricTiledMapRenderer ~renderer ~k ~@options))
|
|
|
|
(defmacro isometric-staggered-tiled-map!
|
|
[{:keys [renderer]} k & options]
|
|
`(utils/call! ^IsometricStaggeredTiledMapRenderer ~renderer ~k ~@options))
|
|
|
|
(defmacro hexagonal-tiled-map!
|
|
[{:keys [renderer]} k & options]
|
|
`(utils/call! ^HexagonalTiledMapRenderer ~renderer ~k ~@options))
|
|
|
|
(defmacro stage!
|
|
[{:keys [renderer]} k & options]
|
|
`(utils/call! ^Stage ~renderer ~k ~@options))
|
|
|
|
(defmacro orthographic-camera!
|
|
[{:keys [camera]} k & options]
|
|
`(utils/call! ^OrthographicCamera ~camera ~k ~@options))
|
|
|
|
(defmacro perspective-camera!
|
|
[{:keys [camera]} k & options]
|
|
`(utils/call! ^PerspectiveCamera ~camera ~k ~@options))
|
|
|
|
; ui
|
|
|
|
(defmacro check-box!
|
|
[entity k & options]
|
|
`(utils/call! ^Checkbox (:object ~entity) ~k ~@options))
|
|
|
|
(defmacro image-button!
|
|
[entity k & options]
|
|
`(utils/call! ^ImageButton (:object ~entity) ~k ~@options))
|
|
|
|
(defmacro image-text-button!
|
|
[entity k & options]
|
|
`(utils/call! ^ImageTextButton (:object ~entity) ~k ~@options))
|
|
|
|
(defmacro label!
|
|
[entity k & options]
|
|
`(utils/call! ^Label (:object ~entity) ~k ~@options))
|
|
|
|
(defmacro text-button!
|
|
[entity k & options]
|
|
`(utils/call! ^TextButton (:object ~entity) ~k ~@options))
|
|
|
|
(defmacro text-field!
|
|
[entity k & options]
|
|
`(utils/call! ^TextField (:object ~entity) ~k ~@options))
|
|
|
|
(defmacro dialog!
|
|
[entity k & options]
|
|
`(utils/call! ^Dialog (:object ~entity) ~k ~@options))
|