node-2d: Fix sprite batch rendering.

1 files changed, 3 insertions, 2 deletions

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 7385c98..35739ed 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -572,11 +572,12 @@
               #:init-form 'alpha)
   (clear-after-draw? #:accessor clear-after-draw?
                      #:init-keyword #:clear-after-draw?
-                     #:init-form #t))
+                     #:init-form #t)
+  (batch-matrix #:accessor batch-matrix #:init-thunk make-identity-matrix4))
 
 (define-method (render (sprite-batch <sprite-batch>) alpha)
   (let ((batch (batch sprite-batch)))
-    (draw-sprite-batch* batch (world-matrix sprite-batch)
+    (draw-sprite-batch* batch (batch-matrix sprite-batch)
                         #:blend-mode (blend-mode sprite-batch))
     (when (clear-after-draw? sprite-batch)
       (sprite-batch-clear! batch))))