From 78bea2fae49b2175f74d5c672af0c45089e77295 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Wed, 8 Aug 2018 18:53:14 +0200 Subject: Add intro background as asset. --- assets/images/intro-bg.png | Bin 0 -> 21035 bytes assets/images/src/intro-bg.xcf | Bin 0 -> 42969 bytes scenes/intro.scm | 4 +++- 3 files changed, 3 insertions(+), 1 deletion(-) create mode 100644 assets/images/intro-bg.png create mode 100644 assets/images/src/intro-bg.xcf diff --git a/assets/images/intro-bg.png b/assets/images/intro-bg.png new file mode 100644 index 0000000..8f15af9 Binary files /dev/null and b/assets/images/intro-bg.png differ diff --git a/assets/images/src/intro-bg.xcf b/assets/images/src/intro-bg.xcf new file mode 100644 index 0000000..d12dbbe Binary files /dev/null and b/assets/images/src/intro-bg.xcf differ 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 #:name 'bg - #:texture (load-image "assets/images/intro-bg.png")) + #:texture (asset-ref intro-bg)) (make ) (make #:name 'fade-all -- cgit v1.2.3