From 234e2e23b0e977ff9fed415846e9796332cb0759 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Tue, 4 May 2021 08:26:53 -0400
Subject: Factor out splash screen and credits sequence into their own scenes.

---
 test-subject/splash.scm | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 test-subject/splash.scm

(limited to 'test-subject/splash.scm')

diff --git a/test-subject/splash.scm b/test-subject/splash.scm
new file mode 100644
index 0000000..f014807
--- /dev/null
+++ b/test-subject/splash.scm
@@ -0,0 +1,49 @@
+(define-module (test-subject splash)
+  #:use-module (chickadee graphics color)
+  #:use-module (chickadee math vector)
+  #:use-module (chickadee scripting)
+  #:use-module (oop goops)
+  #:use-module (starling kernel)
+  #:use-module (starling node)
+  #:use-module (starling node-2d)
+  #:use-module (starling scene)
+  #:use-module (test-subject assets)
+  #:use-module (test-subject common)
+  #:use-module (test-subject game)
+  #:export (launch-game))
+
+(define-class <splash> (<scene-2d>))
+
+(define-method (on-boot (splash <splash>))
+  (set-cameras! splash)
+  (attach-to splash
+             (make <sprite>
+               #:name 'background
+               #:texture lightness)
+             (make <label>
+               #:name 'label
+               #:font monogram-font
+               #:color black
+               #:align 'center
+               #:vertical-align 'center
+               #:position (vec2 (/ %game-width 2.0) (/ %game-height 2.0)))))
+
+(define-method (on-enter (splash <splash>))
+  (run-script splash
+    (set! (text (& splash label)) "Nonexistent Game Studio sheepishly presents")
+    (sleep 120)
+    (set! (text (& splash label)) "The Test Subject - A Spring Lisp Game Jam 2021 submission")
+    (sleep 120)
+    (tween 120 white black
+           (lambda (color)
+             (set! (tint (& splash background)) color))
+           #:interpolate color-lerp)
+    (replace-scene (current-kernel) (make <game>))))
+
+(define (launch-game)
+  (boot-kernel (make <kernel>
+                 #:window-config (make <window-config>
+                                   #:title "The Test Subject - Spring Lisp Game Jam 2021"
+                                   #:width %window-width
+                                   #:height %window-height))
+               (lambda () (make <splash>))))
-- 
cgit v1.2.3