diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-10-23 07:41:32 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-10-23 07:41:32 -0400 |
| commit | 808ea4175a2d91c1f21c2d0bf2c423da56172d25 (patch) | |
| tree | 2e2b4519ae5c5c50210e96c2793410b3269b8ad9 /sdl2/bindings.scm | |
| parent | 34ec6b54f26445ff4a5d0740d477a06f55521f53 (diff) | |
Add beginnings of audio API bindings.
Just a first baby step. Nothing usable yet.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 14 |
1 files changed, 14 insertions, 0 deletions
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 |