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

Make sure actors have a stage before trying to draw them

Browse Source
This commit is contained in:
oakes
2015-02-28 23:55:44 -05:00
parent f74c5d7820
commit eabdaa3339
1 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
src/play_clj/entities.clj
View File

@@ -58,22 +58,23 @@
(defrecord ActorEntity [object] Entity
(draw! [{:keys [^Actor object x y width height
scale-x scale-y angle origin-x origin-y]} _ batch]
(some->> x (.setX object))
(some->> y (.setY object))
(some->> width (.setWidth object))
(some->> height (.setHeight object))
(when (or scale-x scale-y angle)
(let [scale-x (float (or scale-x 1))
scale-y (float (or scale-y 1))
origin-x (float (or origin-x (/ (.getWidth object) 2)))
origin-y (float (or origin-y (/ (.getHeight object) 2)))
angle (float (or angle 0))]
(.setScaleX object scale-x)
(.setScaleY object scale-y)
(.setOriginX object origin-x)
(.setOriginY object origin-y)
(.setRotation object angle)))
(.draw object ^Batch batch 1)))
(when (.getStage object)
(some->> x (.setX object))
(some->> y (.setY object))
(some->> width (.setWidth object))
(some->> height (.setHeight object))
(when (or scale-x scale-y angle)
(let [scale-x (float (or scale-x 1))
scale-y (float (or scale-y 1))
origin-x (float (or origin-x (/ (.getWidth object) 2)))
origin-y (float (or origin-y (/ (.getHeight object) 2)))
angle (float (or angle 0))]
(.setScaleX object scale-x)
(.setScaleY object scale-y)
(.setOriginX object origin-x)
(.setOriginY object origin-y)
(.setRotation object angle)))
(.draw object ^Batch batch 1))))
(defrecord ModelEntity [object] Entity
(draw! [{:keys [^ModelInstance object x y z]}