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

Only update camera once after changing position

Browse Source
This commit is contained in:
oakes
2014-03-24 00:55:57 -04:00
parent 78e724408a
commit 50d9d9e95b
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/play_clj/core_cameras.clj
View File

@@ -126,12 +126,14 @@ remains in tact
([screen pos]
(let [^Camera camera (u/get-obj screen :camera)]
(set! (. camera position) pos)))
([screen x y]
(position! screen x y nil))
([screen x y z]
(when x (x! screen x))
(when y (y! screen y))
(when z (z! screen z))))
([screen x-val y-val]
(position! screen x-val y-val nil))
([screen x-val y-val z-val]
(let [^Camera camera (u/get-obj screen :camera)]
(when x-val (set! (. (. camera position) x) x-val))
(when y-val (set! (. (. camera position) y) y-val))
(when z-val (set! (. (. camera position) z) z-val))
(.update camera))))
(defn position
"Returns the position of the camera in `screen`"