From 808ea4175a2d91c1f21c2d0bf2c423da56172d25 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 23 Oct 2022 07:41:32 -0400 Subject: Add beginnings of audio API bindings. Just a first baby step. Nothing usable yet. --- sdl2/bindings.scm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'sdl2/bindings.scm') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 02988ad..cb8dd97 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -1240,6 +1240,20 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-public AUDIO_F32MSB #x9120) (define-public AUDIO_F32 AUDIO_F32LSB) +(define-public SDL_AUDIO_ALLOW_FREQUENCY_CHANGE 1) +(define-public SDL_AUDIO_ALLOW_FORMAT_CHANGE 2) +(define-public SDL_AUDIO_ALLOW_CHANNELS_CHANGE 4) +(define-public SDL_AUDIO_ALLOW_SAMPLES_CHANGE 8) + +(define-foreign sdl-get-num-audio-devices + int "SDL_GetNumAudioDevices" (list int)) + +(define-foreign sdl-get-audio-device-name + '* "SDL_GetAudioDeviceName" (list int int)) + +(define-foreign sdl-open-audio-device + int "SDL_OpenAudioDevice" (list '* int '* '* int)) + ;;; ;;; Joystick -- cgit v1.2.3