From 38eee24832fe6da4f135cae455881ab97953b23a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sat, 18 Apr 2026 02:47:10 +0100 Subject: Refresh docs and re-indent --- mixer.scm | 60 ++++++++++++++++++++++++++++++------------------------------ 1 file changed, 30 insertions(+), 30 deletions(-) (limited to 'mixer.scm') diff --git a/mixer.scm b/mixer.scm index 7491635..1ae4120 100644 --- a/mixer.scm +++ b/mixer.scm @@ -1,46 +1,46 @@ (module downstroke-mixer * - (import scheme - (chicken base) - (chicken foreign)) +(import scheme + (chicken base) + (chicken foreign)) - #> #include "SDL2/SDL_mixer.h" <# +#> #include "SDL2/SDL_mixer.h" <# - (define-foreign-type mix-chunk* (c-pointer "Mix_Chunk")) +(define-foreign-type mix-chunk* (c-pointer "Mix_Chunk")) - (define mix-open-audio! - (foreign-lambda int "Mix_OpenAudio" int unsigned-short int int)) +(define mix-open-audio! + (foreign-lambda int "Mix_OpenAudio" int unsigned-short int int)) - (define mix-close-audio! - (foreign-lambda void "Mix_CloseAudio")) +(define mix-close-audio! + (foreign-lambda void "Mix_CloseAudio")) - (define mix-load-chunk - (foreign-lambda* mix-chunk* ((c-string path)) - "C_return(Mix_LoadWAV(path));")) +(define mix-load-chunk + (foreign-lambda* mix-chunk* ((c-string path)) + "C_return(Mix_LoadWAV(path));")) - (define mix-free-chunk! - (foreign-lambda void "Mix_FreeChunk" mix-chunk*)) +(define mix-free-chunk! + (foreign-lambda void "Mix_FreeChunk" mix-chunk*)) - (define mix-play-channel - (foreign-lambda int "Mix_PlayChannel" int mix-chunk* int)) +(define mix-play-channel + (foreign-lambda int "Mix_PlayChannel" int mix-chunk* int)) - (define mix-default-format - ((foreign-lambda* unsigned-short () - "C_return(MIX_DEFAULT_FORMAT);"))) +(define mix-default-format + ((foreign-lambda* unsigned-short () + "C_return(MIX_DEFAULT_FORMAT);"))) - (define-foreign-type mix-music* (c-pointer "Mix_Music")) +(define-foreign-type mix-music* (c-pointer "Mix_Music")) - (define mix-load-mus - (foreign-lambda mix-music* "Mix_LoadMUS" c-string)) +(define mix-load-mus + (foreign-lambda mix-music* "Mix_LoadMUS" c-string)) - (define mix-play-music - (foreign-lambda int "Mix_PlayMusic" mix-music* int)) +(define mix-play-music + (foreign-lambda int "Mix_PlayMusic" mix-music* int)) - (define mix-free-music! - (foreign-lambda void "Mix_FreeMusic" mix-music*)) +(define mix-free-music! + (foreign-lambda void "Mix_FreeMusic" mix-music*)) - (define mix-halt-music - (foreign-lambda int "Mix_HaltMusic")) +(define mix-halt-music + (foreign-lambda int "Mix_HaltMusic")) - (define mix-volume-music - (foreign-lambda int "Mix_VolumeMusic" int)) +(define mix-volume-music + (foreign-lambda int "Mix_VolumeMusic" int)) ) -- cgit v1.2.3