From 46269dcb2fa3ddcddaef81d8769784705613500c Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 4 Jun 2023 12:32:03 -0400
Subject: Add splash screen.

---
 super-bloom/common.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'super-bloom/common.scm')

diff --git a/super-bloom/common.scm b/super-bloom/common.scm
index 08d4eae..0e55b90 100644
--- a/super-bloom/common.scm
+++ b/super-bloom/common.scm
@@ -14,6 +14,8 @@
 
 (define-module (super-bloom common)
   #:use-module (catbird asset)
+  #:use-module (catbird mixins)
+  #:use-module (catbird scene)
   #:use-module (chickadee)
   #:use-module (chickadee audio)
   #:use-module (chickadee graphics text)
@@ -32,6 +34,7 @@
             spray-sound
             random:float
             steps
+            <game-scene>
             water))
 
 (define %default-width 640)
@@ -66,4 +69,12 @@
 (define (steps n)
   (* n (current-timestep)))
 
+(define-class <game-scene> (<scene>))
+
+(define-method (width (scene <game-scene>))
+  %game-width:float)
+
+(define-method (height (scene <game-scene>))
+  %game-height:float)
+
 (define-accessor water)
-- 
cgit v1.2.3