Add sprite batch node.

1 files changed, 12 insertions, 0 deletions

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
@@ -381,6 +383,16 @@
 
 
 ;;;
+;;; Sprite Batch
+;;;
+
+(define-class <sprite-batch> (<node-2d>))
+
+(define-method (render* (batch <sprite-batch>) alpha)
+  (with-batched-sprites (next-method)))
+
+
+;;;
 ;;; Filled Rectangle
 ;;;