diff options
Diffstat (limited to 'apple-town-fair/splash.scm')
-rw-r--r-- | apple-town-fair/splash.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/apple-town-fair/splash.scm b/apple-town-fair/splash.scm index 9fcbd5b..63f90c1 100644 --- a/apple-town-fair/splash.scm +++ b/apple-town-fair/splash.scm @@ -36,16 +36,14 @@ (define-class <splash-mode> (<major-mode>)) (define %text-color (rgb #x181425)) -(define %background-color white) +(define %background-color (rgb #xead4aa)) (define-method (on-enter (mode <splash-mode>)) (let ((scene (parent mode))) (attach-to scene (make <canvas> #:painter - (with-style ((fill-color %background-color)) - (fill - (rectangle (vec2 0.0 0.0) %game-width %game-height)))) + (full-screen-rectangle %background-color)) (make <sprite> #:texture chickadee-image #:position (vec2 (/ %game-width 2.0) |