summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-09-11 21:40:01 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-09-11 21:40:01 -0400
commit8649aa9717ed2fdcdf69a1cfd6e435b981d8dc5d (patch)
treeb8328c2e4f956f43befa551146d94f04f61d81eb
parente248d78e875fa41db317b50817e30ec3ca778f78 (diff)
Open SDL audio when window is opened.
-rw-r--r--2d/window.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/2d/window.scm b/2d/window.scm
index 5ff41dc..2631d7f 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -24,6 +24,7 @@
(define-module (2d window)
#:use-module (figl gl)
#:use-module ((sdl sdl) #:prefix SDL:)
+ #:use-module ((sdl mixer) #:prefix SDL:)
#:use-module (2d vector2)
#:export (open-window
close-window))
@@ -37,6 +38,7 @@ initializes OpenGL state."
;; Initialize everything
(SDL:enable-unicode #t)
(SDL:init 'everything)
+ (SDL:open-audio)
;; Open SDL window in OpenGL mode.
(SDL:set-video-mode width height 24 flags)
(SDL:set-caption title)
@@ -56,4 +58,5 @@ initializes OpenGL state."
(define (close-window)
"Closes the game window and cleans up. This procedure is typically
called just before calling (quit)."
+ (SDL:close-audio)
(SDL:quit))