From 87b8688820fbc5de75a789279cb7dcd9ac3390ee Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 27 Aug 2018 17:10:23 -0400
Subject: Add sprite batch node.

---
 starling/node-2d.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 7867fe1..d0be0a2 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -76,6 +76,8 @@
             start-time
             change-animation
 
+            <sprite-batch>
+
             <filled-rect>
             region
             color
@@ -379,6 +381,16 @@
   (set! (current-animation sprite) name)
   (set! (start-time sprite) (elapsed-time)))
 
+
+;;;
+;;; Sprite Batch
+;;;
+
+(define-class <sprite-batch> (<node-2d>))
+
+(define-method (render* (batch <sprite-batch>) alpha)
+  (with-batched-sprites (next-method)))
+
 
 ;;;
 ;;; Filled Rectangle
-- 
cgit v1.2.3