diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-09-11 21:40:01 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-09-11 21:40:01 -0400 |
| commit | 8649aa9717ed2fdcdf69a1cfd6e435b981d8dc5d (patch) | |
| tree | b8328c2e4f956f43befa551146d94f04f61d81eb /2d | |
| parent | e248d78e875fa41db317b50817e30ec3ca778f78 (diff) | |
Open SDL audio when window is opened.
Diffstat (limited to '2d')
| -rw-r--r-- | 2d/window.scm | 3 |
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)) |