diff options
| -rw-r--r-- | starling/node-2d.scm | 5 |
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)))) |