From 01825bf8f09f75cbe15eee97300a49fe332b502c Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 8 Nov 2022 21:02:06 -0500 Subject: Add all the stuff I was doing before I quit the jam. --- apple-town-fair/assets.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'apple-town-fair/assets.scm') diff --git a/apple-town-fair/assets.scm b/apple-town-fair/assets.scm index 3d8136d..44283c7 100644 --- a/apple-town-fair/assets.scm +++ b/apple-town-fair/assets.scm @@ -21,7 +21,9 @@ home-background-image common-background-image trail-background-image - farm-stand-background-image)) + farm-stand-background-image + orchard-background-image + burned-town-image)) (define (scope-datadir file-name) (let ((prefix (or (getenv "APPLE_TOWN_FAIR_DATADIR") (getcwd)))) @@ -43,3 +45,5 @@ (define-image common-background-image (image-file "common.png")) (define-image trail-background-image (image-file "trail.png")) (define-image farm-stand-background-image (image-file "farm-stand.png")) +(define-image orchard-background-image (image-file "orchard.png")) +(define-image burned-town-image (image-file "burned-town.png")) -- cgit v1.2.3