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/main.scm | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

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

diff --git a/super-bloom/main.scm b/super-bloom/main.scm
index 390003b..72f4254 100644
--- a/super-bloom/main.scm
+++ b/super-bloom/main.scm
@@ -24,7 +24,7 @@
   #:use-module (chickadee math rect)
   #:use-module (oop goops)
   #:use-module (super-bloom common)
-  #:use-module (super-bloom game)
+  #:use-module (super-bloom splash)
   #:export (launch-game))
 
 (define-class <upscaled-centered-region> (<region>)
@@ -67,21 +67,13 @@
     (add-region (current-kernel) region)
     region))
 
-(define-class <game-scene> (<scene>))
-
-(define-method (width (scene <game-scene>))
-  %game-width:float)
-
-(define-method (height (scene <game-scene>))
-  %game-height:float)
-
 (define (init)
   (let ((region (create-upscaled-centered-region %game-width %game-height #:name 'main))
-        (scene (make <game-scene> #:name 'super-bloom))
+        (scene (make <game-scene> #:name 'splash-screen))
         (camera (make <camera-2d> #:width %game-width #:height %game-height)))
     (replace-scene region scene)
     (set-camera region camera)
-    (replace-major-mode scene (make <super-bloom-mode>))))
+    (replace-major-mode scene (make <splash-screen-mode>))))
 
 (define (launch-game)
   (run-catbird init
-- 
cgit v1.2.3