diff options
author | David Thompson <dthompson2@worcester.edu> | 2023-06-04 12:32:03 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2023-06-04 12:32:03 -0400 |
commit | 46269dcb2fa3ddcddaef81d8769784705613500c (patch) | |
tree | 1190f5a2fe1fcf14226d326953ca7216ac73f1ee /super-bloom/main.scm | |
parent | a4a20724562a17762b6e7a44097800243d0be5f7 (diff) |
Add splash screen.
Diffstat (limited to 'super-bloom/main.scm')
-rw-r--r-- | super-bloom/main.scm | 14 |
1 files changed, 3 insertions, 11 deletions
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 |