Add splash screen.

1 files changed, 11 insertions, 0 deletions

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)