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

Merge branch 'kamn-master'

Browse Source
This commit is contained in:
oakes
2015-02-18 19:34:48 -05:00
parent 486cdae382 99402624a1
commit d679b9968c
1 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/play_clj/core_cameras.clj
View File

@@ -169,9 +169,9 @@ camera will be set."
([object x-val y-val]
(position! object x-val y-val nil))
([object x-val y-val z-val]
(when x-val (x! object x-val))
(when y-val (y! object y-val))
(when z-val (z! object z-val))))
(some->> x-val (x! object))
(some->> y-val (y! object))
(some->> z-val (z! object))))
(defn direction
"Returns the direction of the camera in `screen`."
@@ -181,9 +181,24 @@ camera will be set."
(defn direction!
"Sets the direction of the camera in `screen`."
[screen x y z]
[screen x-val y-val z-val]
(let [^Camera camera (u/get-obj screen :camera)]
(.lookAt camera x y z)
(.lookAt camera x-val y-val z-val)
(.update camera)))
(defn up [screen]
"Returns the up vector of the camera in `screen`."
(let [^Camera camera (u/get-obj screen :camera)]
(. camera up)))
(defn up!
"Sets the up vector of the camera in `screen`."
[screen x-val y-val z-val]
(let [^Camera camera (u/get-obj screen :camera)
^Vector3 up-vec (up screen)]
(some->> x-val (x! up-vec))
(some->> y-val (y! up-vec))
(some->> z-val (z! up-vec))
(.update camera)))
(defn near