summaryrefslogtreecommitdiff
path: root/starling/node-2d.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2019-07-18 07:44:20 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2019-07-18 07:44:20 -0400
commit1d13e20724aebddbab888d7c893dcfa954075a3a (patch)
tree43418e7fd13e4ea08ca1765c66ca8f1f4dda8010 /starling/node-2d.scm
parentae2b4a776f015928392a284adee81bf6aa48eb31 (diff)
node-2d: Fix sprite batch rendering.
Diffstat (limited to 'starling/node-2d.scm')
-rw-r--r--starling/node-2d.scm5
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))))