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

2
README.md
View File

@@ -37,7 +37,7 @@ For now, check out the [example projects](https://github.com/oakes/play-clj-exam
; update the screen map to hold a tiled map renderer and a camera ; update the screen map to hold a tiled map renderer and a camera
(update! screen (update! screen
:renderer (orthogonal-tiled-map "level1.tmx" (/ 1 8)) :renderer (orthogonal-tiled-map "level1.tmx" (/ 1 8))
:camera (orthographic-camera)) :camera (orthographic))
(let [; load a sprite sheet from your resources dir (let [; load a sprite sheet from your resources dir
sheet (texture "tiles.png") sheet (texture "tiles.png")
; split the sheet into 16x16 tiles ; split the sheet into 16x16 tiles

16
src/play_clj/core_graphics.clj
View File

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

12
src/play_clj/g2d_physics.clj
View File

@@ -3,20 +3,20 @@
[play-clj.utils :as u]) [play-clj.utils :as u])
(:import [com.badlogic.gdx.physics.box2d World])) (:import [com.badlogic.gdx.physics.box2d World]))
(defn world* (defn box2d*
([] ([]
(world* 0 0 true)) (box2d* 0 0 true))
([gravity-x gravity-y] ([gravity-x gravity-y]
(world* gravity-x gravity-y true)) (box2d* gravity-x gravity-y true))
([gravity-x gravity-y sleep?] ([gravity-x gravity-y sleep?]
(World. (m/vector-2 gravity-x gravity-y) sleep?))) (World. (m/vector-2 gravity-x gravity-y) sleep?)))
(defmacro world (defmacro box2d
[gravity-x gravity-y & options] [gravity-x gravity-y & options]
`(let [object# (world* ~gravity-x ~gravity-y)] `(let [object# (box2d* ~gravity-x ~gravity-y)]
(u/calls! ^World object# ~@options) (u/calls! ^World object# ~@options)
object#)) object#))
(defmacro world! (defmacro box2d!
[{:keys [^World world]} k & options] [{:keys [^World world]} k & options]
`(u/call! ^World ~world ~k ~@options)) `(u/call! ^World ~world ~k ~@options))