Refactor and fix interop bugs

2014-01-11 01:58:08 -05:00
parent ee3fdab2fd
commit d623c580fb
5 changed files with 78 additions and 46 deletions
--- a/src/play_clj/core_render.clj
+++ b/src/play_clj/core_render.clj
@@ -3,7 +3,7 @@
 ; rendering

 (defn render!
-  [{:keys [renderer ^Camera camera]}]
+  [{:keys [renderer ^Camera camera delta-time]}]
  (assert renderer)
  (cond
    (isa? (type renderer) BatchTiledMapRenderer)
@@ -11,7 +11,9 @@
      (.setView camera)
      .render)
    (isa? (type renderer) Stage)
-    (.draw ^Stage renderer)))
+    (doto ^Stage renderer
+      (.act delta-time)
+      .draw)))

 (defn tiled-map-layers
  [{:keys [^BatchTiledMapRenderer renderer]}]