BASSMOD
BASSMOD - версия BASS, только для трекерной музыки (XM, IT, S3M, MOD, MTM, UMX)
, полезна для демонстраций, или чего-нибудь другого, где вы хотите проиграть
трекерную музыку.
Вебсайт: http://www.un4seen.com/bassmod.html
Поддерживаемые платформы: Win32, Linux
Заголовок: bassmod.bi
Версия заголовков: 2.0
Примеры: в examples/sound/BASS/
Вебсайт: http://www.un4seen.com/bassmod.html
Поддерживаемые платформы: Win32, Linux
Заголовок: bassmod.bi
Версия заголовков: 2.0
Примеры: в examples/sound/BASS/
Пример
#include once "bassmod.bi"
Const SOUND_FILE = "test.mod"
If (BASSMOD_GetVersion() < 2) Then
Print "BASSMOD version 2 or above required!"
End 1
End If
If (BASSMOD_Init(-1, 44100, 0) = 0) Then
Print "Could not initialize BASSMOD"
End 1
End If
If (BASSMOD_MusicLoad(FALSE, SOUND_FILE, 0, 0, BASS_MUSIC_LOOP) = 0) Then
Print "BASSMOD could not load '" & SOUND_FILE & "'"
BASSMOD_Free()
End 1
End If
BASSMOD_MusicPlay()
Print "Sound playing; waiting for keypress to stop and exit..."
Sleep
BASSMOD_MusicStop()
BASSMOD_MusicFree()
BASSMOD_Free()
Const SOUND_FILE = "test.mod"
If (BASSMOD_GetVersion() < 2) Then
Print "BASSMOD version 2 or above required!"
End 1
End If
If (BASSMOD_Init(-1, 44100, 0) = 0) Then
Print "Could not initialize BASSMOD"
End 1
End If
If (BASSMOD_MusicLoad(FALSE, SOUND_FILE, 0, 0, BASS_MUSIC_LOOP) = 0) Then
Print "BASSMOD could not load '" & SOUND_FILE & "'"
BASSMOD_Free()
End 1
End If
BASSMOD_MusicPlay()
Print "Sound playing; waiting for keypress to stop and exit..."
Sleep
BASSMOD_MusicStop()
BASSMOD_MusicFree()
BASSMOD_Free()