From a20d05376cb2de636abebd64da3eeb6c7e8c7bac Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Sat, 29 Oct 2022 21:40:09 -0400
Subject: Day 1 progress.

---
 apple-town-fair/splash.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'apple-town-fair/splash.scm')

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)
-- 
cgit v1.2.3