Play little tune during intro.

1 files changed, 7 insertions, 1 deletions

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>))