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

Allow input->screen and screen->input to work without a camera

Browse Source
This commit is contained in:
oakes
2014-04-22 14:06:55 -04:00
parent b1df0d0ee7
commit f0f33fe2d9
1 changed files with 22 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/play_clj/core_graphics.clj
View File

@@ -258,13 +258,17 @@ coordinates.
(screen->input screen 10 10)
(screen->input screen 10 10 0)"
([screen {:keys [x y z] :or {x 0 y 0 z 0} :as entity}]
(let [^Camera camera (u/get-obj screen :camera)
coords (m/vector-3 x y z)]
(.project camera coords)
(assoc entity
:x (. coords x)
:y (. coords y)
:z (. coords z))))
(try
(let [^Camera camera (u/get-obj screen :camera)
coords (m/vector-3 x y z)]
(.project camera coords)
(assoc entity
:x (. coords x)
:y (. coords y)
:z (. coords z)))
; if there's no camera, just flip the y axis
(catch Exception _
(assoc entity :y (- (game :height) y)))))
([screen x y]
(screen->input screen {:x x :y y}))
([screen x y z]
@@ -278,13 +282,17 @@ coordinates.
(input->screen screen 10 10)
(input->screen screen 10 10 0)"
([screen {:keys [x y z] :or {x 0 y 0 z 0} :as entity}]
(let [^Camera camera (u/get-obj screen :camera)
coords (m/vector-3 x y z)]
(.unproject camera coords)
(assoc entity
:x (. coords x)
:y (. coords y)
:z (. coords z))))
(try
(let [^Camera camera (u/get-obj screen :camera)
coords (m/vector-3 x y z)]
(.unproject camera coords)
(assoc entity
:x (. coords x)
:y (. coords y)
:z (. coords z)))
; if there's no camera, just flip the y axis
(catch Exception _
(assoc entity :y (- (game :height) y)))))
([screen x y]
(input->screen screen {:x x :y y}))
([screen x y z]