From 3bc54d585792f7cdcb2686623286d32cfba15e26 Mon Sep 17 00:00:00 2001
From: David Thompson <davet@gnu.org>
Date: Tue, 7 May 2019 16:52:58 -0400
Subject: Add <scene-2d> convenience class.

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

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 7ae9a30..edb8f46 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -42,6 +42,7 @@
   #:use-module (starling asset)
   #:use-module (starling kernel)
   #:use-module (starling node)
+  #:use-module (starling scene)
   #:export (<camera-2d>
             target
             offset
@@ -56,6 +57,8 @@
             <canvas>
             views
 
+            <scene-2d>
+
             <node-2d>
             origin
             position
@@ -218,6 +221,13 @@
 (define-method (render (canvas <canvas>) alpha)
   (for-each render (views canvas)))
 
+
+;;;
+;;; 2D Scene
+;;;
+
+(define-class <scene-2d> (<scene> <canvas>))
+
 
 ;;;
 ;;; 2D Game Node
-- 
cgit v1.2.3