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

Remove reflection calls

Browse Source
This commit is contained in:
oakes
2014-01-18 12:33:21 -05:00
parent 4d3a79ea74
commit 2db20471e9
2 changed files with 23 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/play_clj/core_graphics.clj
View File

@@ -96,8 +96,8 @@
(defmacro orthogonal-tiled-map!
[screen k & options]
`(u/call! ^OrthogonalTiledMapRenderer (or (:renderer ~screen) ~screen)
~k ~@options))
`(let [^OrthogonalTiledMapRenderer object# (or (:renderer ~screen) ~screen)]
(u/call! object# ~k ~@options)))
(defn isometric-tiled-map*
[path unit]
@@ -110,8 +110,8 @@
(defmacro isometric-tiled-map!
[screen k & options]
`(u/call! ^IsometricTiledMapRenderer (or (:renderer ~screen) ~screen)
~k ~@options))
`(let [^IsometricTiledMapRenderer object# (or (:renderer ~screen) ~screen)]
(u/call! object# ~k ~@options)))
(defn isometric-staggered-tiled-map*
[path unit]
@@ -126,8 +126,9 @@
(defmacro isometric-staggered-tiled-map!
[screen k & options]
`(u/call! ^IsometricStaggeredTiledMapRenderer (or (:renderer ~screen) ~screen)
~k ~@options))
`(let [^IsometricStaggeredTiledMapRenderer object#
(or (:renderer ~screen) ~screen)]
(u/call! object# ~k ~@options)))
(defn hexagonal-tiled-map*
[path unit]
@@ -140,8 +141,8 @@
(defmacro hexagonal-tiled-map!
[screen k & options]
`(u/call! ^HexagonalTiledMapRenderer (or (:renderer ~screen) ~screen)
~k ~@options))
`(let [^HexagonalTiledMapRenderer object# (or (:renderer ~screen) ~screen)]
(u/call! object# ~k ~@options)))
(defn stage*
[]
@@ -153,7 +154,8 @@
(defmacro stage!
[screen k & options]
`(u/call! ^Stage (or (:renderer ~screen) ~screen) ~k ~@options))
`(let [^Stage object# (or (:renderer ~screen) ~screen)]
(u/call! object# ~k ~@options)))
; batch
@@ -254,7 +256,8 @@
(defmacro orthographic!
[screen k & options]
`(u/call! ^OrthographicCamera (or (:camera ~screen) ~screen) ~k ~@options))
`(let [^OrthographicCamera object# (or (:camera ~screen) ~screen)]
(u/call! object# ~k ~@options)))
(defn perspective
[]
@@ -266,7 +269,8 @@
(defmacro perspective!
[screen k & options]
`(u/call! ^PerspectiveCamera (or (:camera ~screen) ~screen) ~k ~@options))
`(let [^PerspectiveCamera object# (or (:camera ~screen) ~screen)]
(u/call! object# ~k ~@options)))
(defn size!
[screen width height]