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

Shorten the camera function names

Browse Source
This commit is contained in:
oakes
2014-01-17 12:27:33 -05:00
parent 23bbcfb698
commit 33a14ef1dd
3 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/play_clj/core_graphics.clj
View File

@@ -212,27 +212,27 @@
; cameras
(defn orthographic-camera*
(defn orthographic*
[]
(OrthographicCamera.))
(defmacro orthographic-camera
(defmacro orthographic
[& options]
`(u/calls! ^OrthographicCamera (orthographic-camera*) ~@options))
`(u/calls! ^OrthographicCamera (orthographic*) ~@options))
(defmacro orthographic-camera!
(defmacro orthographic!
[screen k & options]
`(u/call! ^OrthographicCamera (:camera ~screen) ~k ~@options))
(defn perspective-camera
(defn perspective
[]
(PerspectiveCamera.))
(defmacro perspective-camera
(defmacro perspective
[& options]
`(u/calls! ^PerspectiveCamera (perspective-camera*) ~@options))
`(u/calls! ^PerspectiveCamera (perspective*) ~@options))
(defmacro perspective-camera!
(defmacro perspective!
[screen k & options]
`(u/call! ^PerspectiveCamera (:camera ~screen) ~k ~@options))