From e74fbf491f730d6b15ea6985e75faaf0aae5701c Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Fri, 27 Jul 2018 09:38:14 +0200
Subject: Play little tune during intro.

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

(limited to 'scenes')

diff --git a/scenes/intro.scm b/scenes/intro.scm
index 0592eed..cc6c5a0 100644
--- a/scenes/intro.scm
+++ b/scenes/intro.scm
@@ -16,6 +16,7 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 (define-module (scenes intro)
+  #:use-module (chickadee audio)
   #:use-module (chickadee math rect)
   #:use-module (chickadee math vector)
   #:use-module (chickadee render font)
@@ -27,7 +28,7 @@
   #:use-module (config)
   #:use-module (scenes game)
   #:use-module (oop goops)
-  #:export (<intro>))
+  #:export (intro))
 
 (define-class <intro> (<scene>))
 
@@ -88,3 +89,8 @@ to dry."))
   (when (eq? key 'return)
     (switch-scene (root-node)
                   (game))))
+
+(define (intro)
+  (set-music-volume! 1.0)
+  (play-music (load-music "assets/music/intro.ogg") #:loop? #f)
+  (make <intro>))
-- 
cgit v1.2.3