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

Remove origin-x and origin-y from shape

Browse Source
This commit is contained in:
oakes
2014-05-23 02:53:03 -04:00
parent bfd9f71b47
commit 5e89e9fead
1 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/play_clj/entities.clj
View File

@@ -86,29 +86,27 @@
(.render renderer object attributes))) (.render renderer object attributes)))
(defrecord ShapeEntity [object] Entity (defrecord ShapeEntity [object] Entity
(draw-entity! [{:keys [^ShapeRenderer object type draw! x y width height (draw-entity! [{:keys [^ShapeRenderer object type draw! x y
angle origin-x origin-y]} scale-x scale-y angle]}
{:keys [^Camera camera]} {:keys [^Camera camera]}
batch] batch]
(when batch
(.end ^SpriteBatch batch))
(when (or x y) (when (or x y)
(let [^Matrix4 m (.getTransformMatrix object) (let [^Matrix4 m (.getTransformMatrix object)
x (float (or x 0)) x (float (or x 0))
y (float (or y 0))] y (float (or y 0))]
(.setTranslation m x y 0) (.setTranslation m x y 0)
(.setTransformMatrix object m))) (.setTransformMatrix object m)))
(when batch
(.end ^SpriteBatch batch))
(when camera (when camera
(.setProjectionMatrix object (. camera combined))) (.setProjectionMatrix object (. camera combined)))
(.begin object type) (.begin object type)
(when angle (when (or scale-x scale-y angle)
(let [x (float (or x 0)) (let [scale-x (float (or scale-x 1))
y (float (or y 0)) scale-y (float (or scale-y 1))
origin-x (float (or origin-x (/ (or width 0) 2)))
origin-y (float (or origin-y (/ (or height 0) 2)))
angle (float (or angle 0))] angle (float (or angle 0))]
(.identity object) (.identity object)
(.translate object (+ x origin-x) (+ y origin-y) 0) (.scale object scale-x scale-y 1)
(.rotate object 0 0 1 angle))) (.rotate object 0 0 1 angle)))
(draw!) (draw!)
(.end object) (.end object)