From 7935d911cfbdac775cc307973907091a3d7d1cf9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Wed, 16 Dec 2020 20:18:54 -0500
Subject: node-2d: Add first-camera convenience method.

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

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 9a18284..cdf8af1 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -53,6 +53,7 @@
 
             <canvas>
             cameras
+            first-camera
 
             <scene-2d>
 
@@ -196,6 +197,11 @@
                                  canvas)))
             (cameras canvas)))
 
+(define-method (first-camera (canvas <canvas>))
+  (match (cameras canvas)
+    ((camera . _) camera)
+    (() #f)))
+
 
 ;;;
 ;;; 2D Scene
-- 
cgit v1.2.3