From 2e70a730854197b66992b70075fa8235b767a45b Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 20 Dec 2015 12:15:44 -0500
Subject: Add SDL2_mixer bindings.

* sdl2/bindings.scm: Add "AUDIO_*" constants.
* sdl2/bindings/mixer.scm: New file.
* sdl2/mixer.scm: New file.
* Makefile.am (SOURCES): Add new files.
---
 sdl2/bindings.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'sdl2/bindings.scm')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index 7edd7b2..1672b0d 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -855,3 +855,23 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 
 (define-foreign sdl-load-bmp-rw
   '* "SDL_LoadBMP_RW" (list '* int))
+
+
+;;;
+;;; Audio
+;;;
+
+(define-public AUDIO_U8     #x0008)
+(define-public AUDIO_S8     #x8008)
+(define-public AUDIO_U16LSB #x0010)
+(define-public AUDIO_S16LSB #x8010)
+(define-public AUDIO_U16MSB #x1010)
+(define-public AUDIO_S16MSB #x9010)
+(define-public AUDIO_U16    AUDIO_U16LSB)
+(define-public AUDIO_S16    AUDIO_S16LSB)
+(define-public AUDIO_S32LSB #x8020)
+(define-public AUDIO_S32MSB #x9020)
+(define-public AUDIO_S32    AUDIO_S32LSB)
+(define-public AUDIO_F32LSB #x8120)
+(define-public AUDIO_F32MSB #x9120)
+(define-public AUDIO_F32    AUDIO_F32LSB)
-- 
cgit v1.2.3