diff options
| author | Gene Pasquet <dev@etenil.net> | 2026-04-18 02:47:10 +0100 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2026-04-18 02:47:10 +0100 |
| commit | 38eee24832fe6da4f135cae455881ab97953b23a (patch) | |
| tree | cffc2bb3b45ac11d90f4a2de3e207f65862fb6fd /mixer.scm | |
| parent | a02b892e2ad1e1605ff942c63afdd618daa48be4 (diff) | |
Refresh docs and re-indent
Diffstat (limited to 'mixer.scm')
| -rw-r--r-- | mixer.scm | 60 |
1 files changed, 30 insertions, 30 deletions
@@ -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)) ) |
