making alpha work.

2014-09-17 12:29:20 -07:00
parent 66eae07ca0
commit 1d413a12a8
1 changed files with 3 additions and 1 deletions
--- a/src/play_clj/core_graphics.clj
+++ b/src/play_clj/core_graphics.clj
@@ -475,7 +475,9 @@ with the tiled map file at `path` and `unit` scale.
  (let [^Batch batch (.getBatch renderer)]
    (.begin batch)
    (doseq [entity entities]
-      (e/draw-entity! entity screen batch))
+      (.setColor batch (color 1 1 1 (or (:opacity entity) 1.0)))
+      (e/draw-entity! entity screen batch)
+      (.setColor batch (color 1 1 1 1)))
    (.end batch))
  entities)