aboutsummaryrefslogtreecommitdiff
path: root/mixer.scm
diff options
context:
space:
mode:
authorGene Pasquet <dev@etenil.net>2026-04-18 02:47:10 +0100
committerGene Pasquet <dev@etenil.net>2026-04-18 02:47:10 +0100
commit38eee24832fe6da4f135cae455881ab97953b23a (patch)
treecffc2bb3b45ac11d90f4a2de3e207f65862fb6fd /mixer.scm
parenta02b892e2ad1e1605ff942c63afdd618daa48be4 (diff)
Refresh docs and re-indent
Diffstat (limited to 'mixer.scm')
-rw-r--r--mixer.scm60
1 files changed, 30 insertions, 30 deletions
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))
)