From e248d78e875fa41db317b50817e30ec3ca778f78 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 11 Sep 2013 21:39:43 -0400 Subject: Add audio module. This is just a think layer over some basic SDL mixer functions so that users don't need to deal with SDL directly. --- 2d/audio.scm | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 80 insertions(+) create mode 100644 2d/audio.scm diff --git a/2d/audio.scm b/2d/audio.scm new file mode 100644 index 0000000..d67eebe --- /dev/null +++ b/2d/audio.scm @@ -0,0 +1,80 @@ +;;; guile-2d +;;; Copyright (C) 2013 David Thompson +;;; +;;; Guile-2d is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU Lesser General Public License as +;;; published by the Free Software Foundation, either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; Guile-2d is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with this program. If not, see +;;; . + +;;; Commentary: +;; +;; Wrappers over SDL mixer. +;; +;;; Code: + +(define-module (2d audio) + #:use-module (srfi srfi-9) + #:use-module (srfi srfi-2) + #:use-module ((sdl mixer) #:prefix SDL:)) + +;; Wrapper over SDL audio objects. +(define-record-type + (make-sample audio) + sample? + (audio sample-audio)) + +(define (load-sample filename) + "Load audio sample from FILENAME. Return #f on failure." + (let ((audio (SDL:load-wave filename))) + (if audio + (make-sample audio) + #f))) + +(define (sample-play sample) + "Play SAMPLE." + (SDL:play-channel (sample-audio sample))) + +(export make-sample + load-sample + sample? + sample-audio + sample-play) + +;; Wrapper over SDL music objects. +(define-record-type + (make-music audio) + music? + (audio music-audio)) + +(define (load-music filename) + "Load music from FILENAME. Return #f on failure." + (let ((audio (SDL:load-music filename))) + (if audio + (make-music audio) + #f))) + +(define (music-play music) + "Play MUSIC." + (SDL:play-music (music-audio music))) + +(export make-music + load-music + music? + music-audio + music-play) + +(re-export (SDL:pause-music . music-pause) + (SDL:resume-music . music-resume) + (SDL:rewind-music . music-rewind) + (SDL:halt-music . music-stop) + (SDL:paused-music? . music-paused?) + (SDL:playing-music? . music-playing?)) -- cgit v1.2.3