From 942b3ae7f4b4a3fba32872399c42905bc2836497 Mon Sep 17 00:00:00 2001
From: Remington Covert <bryce@brycecovertoperations.com>
Date: Mon, 23 Feb 2015 16:45:31 -0800
Subject: [PATCH] fixes for resizing.

---
 src/play_clj/core_graphics.clj  | 3 ++-
 src/play_clj/core_listeners.clj | 5 ++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/play_clj/core_graphics.clj b/src/play_clj/core_graphics.clj
index c30feb9..1ff0a5b 100644
--- a/src/play_clj/core_graphics.clj
+++ b/src/play_clj/core_graphics.clj
@@ -486,8 +486,9 @@ with the tiled map file at `path` and `unit` scale.
   entities)
 
 (defmethod draw! Stage
-  [{:keys [^Stage renderer] :as screen} entities]
+  [{:keys [^Stage renderer ^Camera camera] :as screen} entities]
   (let [^Batch batch (.getBatch renderer)]
+    (.setProjectionMatrix batch (.combined camera))
     (.begin batch)
     (doseq [entity entities]
       (.setColor batch (color 1 1 1 (or (:opacity entity) 1.0)))
diff --git a/src/play_clj/core_listeners.clj b/src/play_clj/core_listeners.clj
index 321509b..13123e3 100644
--- a/src/play_clj/core_listeners.clj
+++ b/src/play_clj/core_listeners.clj
@@ -186,11 +186,10 @@ in the `screen`."
 
 (defn ^:private update-stage!
   ([{:keys [^Stage renderer ^Camera camera] :as screen}]
-    (when camera
+    #_(when camera
       (doto (.getViewport renderer)
         (.setCamera camera)
-        (.setWorldSize (. camera viewportWidth) (. camera viewportHeight))
-        (.update (game :width) (game :height) true))))
+        (.setWorldSize (. camera viewportWidth) (. camera viewportHeight)))))
   ([{:keys [^Stage renderer ui-listeners]} entities]
     (doseq [^Actor a (.getActors renderer)]
       (.remove a))