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

Allow setting the camera z position

Browse Source
This commit is contained in:
oakes
2014-01-17 12:36:51 -05:00
parent 33a14ef1dd
commit 393cb6fa60
1 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/play_clj/core_graphics.clj
View File

@@ -252,16 +252,25 @@
(defn x! (defn x!
[{:keys [^Camera camera]} x] [{:keys [^Camera camera]} x]
(assert camera) (assert camera)
(when x (set! (. (. camera position) x) x)) (set! (. (. camera position) x) x)
(.update camera)) (.update camera))
(defn y! (defn y!
[{:keys [^Camera camera]} y] [{:keys [^Camera camera]} y]
(assert camera) (assert camera)
(when y (set! (. (. camera position) y) y)) (set! (. (. camera position) y) y)
(.update camera))
(defn z!
[{:keys [^Camera camera]} z]
(assert camera)
(set! (. (. camera position) z) z)
(.update camera)) (.update camera))
(defn position! (defn position!
[screen x y] ([screen x y]
(x! screen x) (position! screen x y nil))
(y! screen y)) ([screen x y z]
(when x (x! screen x))
(when y (y! screen y))
(when z (z! screen z))))