carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

MP3 works!

Browse Source
This commit is contained in:
Erik Svedäng 2018-03-23 21:41:11 +01:00
parent 6fd6de0983
commit 7fae010bb7
3 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/sounds.carp
View File

@ -38,8 +38,8 @@
(println* "Nr of music decoders: " n)
(for [i 0 n]
(println* " - " &(str (Mixer.get-music-decoder i)))))
(let-do [music (Mixer.load-music (cstr "resources/Quarter.mp3"))]
(println* "Music " (if (null? music) "NULL..." "not null!"))
(let-do [music (Mixer.load-music (cstr "resources/song.mp3"))]
(println* "Music is " (if (null? music) "null." "not null."))
(println* "Play result: " (Mixer.play-music music -1))
)
(SDLApp.run-with-callbacks &app event-handler id SDLApp.default-draw 0)

BIN
resources/song.aif
View File

Binary file not shown.

BIN
resources/song.mp3 Normal file
View File

Binary file not shown.