From 78bea2fae49b2175f74d5c672af0c45089e77295 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 8 Aug 2018 18:53:14 +0200
Subject: Add intro background as asset.

---
 scenes/intro.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'scenes')

diff --git a/scenes/intro.scm b/scenes/intro.scm
index 4fb4b69..30ea844 100644
--- a/scenes/intro.scm
+++ b/scenes/intro.scm
@@ -38,6 +38,8 @@
 (define-asset game-font
   (load-font "assets/fonts/good_neighbors_starling.xml"))
 
+(define-asset intro-bg (load-image "assets/images/intro-bg.png"))
+
 (define texts
   '("\
 The void has been suspended for
@@ -101,7 +103,7 @@ to dry."))
                      (list
                       (make <sprite>
                         #:name 'bg
-                        #:texture (load-image "assets/images/intro-bg.png"))
+                        #:texture (asset-ref intro-bg))
                       (make <intro>)
                       (make <filled-rect>
                         #:name 'fade-all
-- 
cgit v1.2.3