diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2022-10-29 21:40:09 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-10-29 21:40:09 -0400 |
commit | a20d05376cb2de636abebd64da3eeb6c7e8c7bac (patch) | |
tree | ea951aa677d07bf90932670cbf252ef98f1e7800 /apple-town-fair/splash.scm | |
parent | a990bd0b24bac57a2051cba505b54238e5485149 (diff) |
Day 1 progress.
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) |