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

Allow changing shape position via assoc

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

8
src/play_clj/entities.clj
View File

@@ -5,6 +5,7 @@
TextureRegion] TextureRegion]
[com.badlogic.gdx.graphics.g3d Environment ModelBatch ModelInstance] [com.badlogic.gdx.graphics.g3d Environment ModelBatch ModelInstance]
[com.badlogic.gdx.graphics.glutils ShapeRenderer] [com.badlogic.gdx.graphics.glutils ShapeRenderer]
[com.badlogic.gdx.math Matrix4]
[com.badlogic.gdx.scenes.scene2d Actor])) [com.badlogic.gdx.scenes.scene2d Actor]))
(defprotocol Entity (defprotocol Entity
@@ -59,9 +60,14 @@
(.render renderer object attributes))) (.render renderer object attributes)))
(defrecord ShapeEntity [object] Entity (defrecord ShapeEntity [object] Entity
(draw-entity! [{:keys [^ShapeRenderer object type draw!]} (draw-entity! [{:keys [^ShapeRenderer object type draw! x y z]}
{:keys [^Camera camera]} {:keys [^Camera camera]}
_] _]
(let [^Matrix4 m (.getTransformMatrix object)
x (float (or x 0))
y (float (or y 0))
z (float (or z 0))]
(.setTranslation m x y z))
(when camera (when camera
(.setProjectionMatrix object (. camera combined))) (.setProjectionMatrix object (. camera combined)))
(.begin object type) (.begin object type)