blob: 6f7432bfb749fa98e5d7b33263ca35e98521169b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
;;; Copyright 2023 David Thompson
;;;
;;; Licensed under the Apache License, Version 2.0 (the "License");
;;; you may not use this file except in compliance with the License.
;;; You may obtain a copy of the License at
;;;
;;; http://www.apache.org/licenses/LICENSE-2.0
;;;
;;; Unless required by applicable law or agreed to in writing, software
;;; distributed under the License is distributed on an "AS IS" BASIS,
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;;; See the License for the specific language governing permissions and
;;; limitations under the License.
(define-module (super-bloom splash)
#:use-module (catbird)
#:use-module (catbird asset)
#:use-module (catbird camera)
#:use-module (catbird kernel)
#:use-module (catbird mixins)
#:use-module (catbird mode)
#:use-module (catbird node)
#:use-module (catbird node-2d)
#:use-module (catbird region)
#:use-module (catbird scene)
#:use-module (chickadee data quadtree)
#:use-module (chickadee graphics color)
#:use-module (chickadee graphics path)
#:use-module (chickadee graphics texture)
#:use-module (chickadee math rect)
#:use-module (chickadee math vector)
#:use-module (chickadee scripting)
#:use-module (oop goops)
#:use-module (super-bloom common)
#:use-module (super-bloom game)
#:export (<splash-screen-mode>))
(define-asset (chickadee-texture (file (scope-datadir "assets/images/chickadee.png")))
(load-image file))
(define-class <splash-screen-mode> (<major-mode>))
(define-method (go-to-game (mode <splash-screen-mode>))
(let ((region (find-region-by-name 'main))
(scene (make <game-scene> #:name 'super-bloom)))
(replace-scene region scene)
(replace-major-mode scene (make <super-bloom-mode>))))
(define-method (on-enter (mode <splash-screen-mode>))
(define (full-rect color)
(with-style ((fill-color color))
(fill (rectangle (vec2 0.0 0.0)
%game-width:float
%game-height:float))))
(let ((scene (parent mode))
(bg (make <canvas>
#:name 'background
#:rank 0
#:painter (full-rect white)))
(fader (make <canvas>
#:name 'fader
#:rank 999
#:width %game-width:float
#:height %game-height:float))
(sprite (make <sprite>
#:name 'sprite
#:rank 1
#:texture chickadee-texture
#:origin (vec2 8.0 8.0)
#:scale 0.5))
(label1 (make <label>
#:name 'built-with-label
#:rank 1
#:font monogram-font
#:color black
#:text "Built with Chickadee"))
(label2 (make <label>
#:name 'url-label
#:rank 1
#:font monogram-font
#:color black
#:text "https://dthompson.us/projects/chickadee.html")))
(run-script scene
(attach-to scene bg fader sprite label1 label2)
(center-in-parent sprite)
(center-horizontal-in-parent label1)
(center-horizontal-in-parent label2)
(place-below sprite label1 #:padding 16.0)
(place-below label1 label2 #:padding 16.0)
(sleep 2.0)
(tween 1.0 (make-color 0.0 0.0 0.0 0.0001) (make-color 0.0 0.0 0.0 1.0)
(lambda (color)
(set! (painter fader) (full-rect color)))
#:interpolate color-lerp)
(go-to-game mode))))
|
