From 1d13e20724aebddbab888d7c893dcfa954075a3a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 18 Jul 2019 07:44:20 -0400 Subject: node-2d: Fix sprite batch rendering. --- starling/node-2d.scm | 5 +++-- 1 file 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 ) 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)))) -- cgit v1.2.3