La gestione dei file MIDI mediante le funzioni esterne del API di SDL 2

Da Gambas-it.org - Wikipedia.

La libreria SDL 2 è un API multi-piattaforma contenente funzioni per la gestione multimediale dell'audio e del video.


Per poter utilizzare le funzioni esterne di SDL 2 in Gambas, si richiameranno anche separatamente per lo più le seguenti librerie (con le attuali versioni):

  • libSDL2-2.0.so.0.2.0
  • libSDL2_mixer-2.0.so.0.0.0

Inoltre, per l'ascolto dei file Midi, sarà necessario impostare il file banco di suoni .sf2 nell'apposita funzione Mix_SetSoundFonts().


Mostriamo un semplice esempio per eseguire un file Midi: 

Library "libSDL2-2.0:0.2.0"

Private Const SDL_INIT_AUDIO As Integer = 16
Private Const MIX_DEFAULT_FORMAT As Integer = 32784

' int SDL_Init(Uint32 flags)
' Initialize the SDL library.
Private Extern SDL_Init(flags As Integer) As Integer

' const char* SDL_GetError(void)
' Retrieve a message about the last error that occurred.
Private Extern SDL_GetError() As String

' void SDL_Quit(void)
' Clean up all initialized subsystems.
Private Extern SDL_Quit()


Library "libSDL2_mixer-2.0:0.0.0"

Private Const MIX_DEFAULT_FREQUENCY As Integer = 22050

' int Mix_SetSoundFonts(const char *paths)
' Set SoundFonts paths to use by supported MIDI backends.
Private Extern Mix_SetSoundFonts(paths As String) As Integer
 
' int Mix_OpenAudio(int frequency, Uint16 format, int channels, int chunksize)
' Initialize the mixer API.
Private Extern Mix_OpenAudio(frequency As Integer, format16 As Short, channels As Integer, chunksize As Integer) As Integer

' int Mix_QuerySpec(int *frequency, Uint16 *format, int *channels)
' Get the actual audio format in use by the opened audio device.
Private Extern Mix_QuerySpec(frequencyP As Pointer, formatP As Pointer, channelsP As Pointer) As Integer

' Mix_Music * Mix_LoadMUS(const char *file)
' Load a wave file or a music.
Private Extern Mix_LoadMUS(file As String) As Pointer

' int Mix_PlayMusic(Mix_Music *music, int loops)
' Play an audio chunk on a specific channel.
Private Extern Mix_PlayMusic(music As Pointer, loops As Integer) As Integer

' int Mix_PlayingMusic()
' Check the status of a specific channel.
Private Extern Mix_PlayingMusic() As Integer

' void Mix_FreeChunk(Mix_Chunk *chunk)
' Free an audio chunk previously loaded.
Private Extern Mix_FreeChunk(chunk As Pointer)

' void Mix_CloseAudio(void)
' Close the mixer, halting all playing audio.
Private Extern Mix_CloseAudio()


Public Sub Main()

 Dim err As Integer
 Dim canali As String
 Dim music As Pointer
 Dim tempus As date
' Vengono impostati i valori predefiniti iniziali della frequenza, del formato e del numero dei canali dell'audio:
' E' possibile modificare tali valori:
 Dim audio_rate As Integer = MIX_DEFAULT_FREQUENCY
 Dim audio_format As Short = MIX_DEFAULT_FORMAT
 Dim audio_channels As Integer = 2

' Inizializza la libreria SDL 2:
   err = SDL_Init(SDL_INIT_AUDIO)
   If err < 0 Then Error.Raise("Impossibile inizializzare la libreria SDL2: " & SDL_GetError())

' Imposta il banco di suoni per l'esecuzione del Midi:
   Mix_SetSoundFonts("/percorso/del/file/soundbank.sf2")
   
' Apre il dispositivo audio:
   If Mix_OpenAudio(audio_rate, audio_format, audio_channels, 4096) < 0 Then
     Error.Raise("Impossibile aprire il dispositivo audio: " & SDL_GetError())
   Else
     Mix_QuerySpec(VarPtr(audio_rate), VarPtr(audio_format), VarPtr(audio_channels))
   Endif
   If audio_channels > 2 Then
     canali = "surround"
   Else
     If audio_channels > 1 Then
       canali = "stereo"
     Else
       canali = "mono"
     Endif
   Endif
   Print "Audio aperto a "; audio_rate; " Hz, "; audio_format And 255; " bit, "; canali

' Carica il file Midi:
  music = Mix_LoadMUS("/percorso/del/file.mid")
  If IsNull(music) Then Error.Raise("Impossibile caricare il file Midi: " & SDL_GetError())
  
' Esegue il file Midi. Se il secondo argomento è posto a 0 il file sarà eseguito soltanto una volta.
' Se è posto a -1 il file sarà esguito all'infinito:
  err = Mix_PlayMusic(music, 0)
  If err < 0 Then Error.Raise("Impossibile eseguire il file Midi: " & SDL_GetError())
  
  tempus = Now
  
  While Mix_PlayingMusic() <> 0
' Mostra il tempo trascorso dall'inizio dell'esecuzione del file Midi:
    Write #File.Out, CStr(Date(0, 0, 0, 0, 0, 0, DateDiff(tempus, Now, gb.Millisecond))) & "\r"
  Wend

  
' Va in chiusura:
  Mix_FreeChunk(music)
  Mix_CloseAudio()
  SDL_Quit()

End



Riferimenti

Estratto da "https://www.gambas-it.org/wiki/index.php?title=La_gestione_dei_file_MIDI_mediante_le_funzioni_esterne_del_API_di_SDL_2&oldid=19177"