From 1d413a12a8acd0fcf95c7ef80fda74e9d1a0fd67 Mon Sep 17 00:00:00 2001
From: Remington Covert <bryce@brycecovertoperations.com>
Date: Wed, 17 Sep 2014 12:29:20 -0700
Subject: [PATCH] making alpha work.

---
 src/play_clj/core_graphics.clj | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/play_clj/core_graphics.clj b/src/play_clj/core_graphics.clj
index edb3195..87b531e 100644
--- 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)