Versione delle 09:05, 31 ott 2023

Per l'uso delle risorse della libreria libao bisognerà avere installata nel proprio sistema e richiamare nell'applicativo Gambas la libreria condivisa attualmente alla versione: "libao.so.4.1.1" .

Di seguito un possibile codice per generare con le risorse della libreria libao un file wav, ad esempio, utilizzando i dati audio grezzi ottenuti per creare un'onda sinusoidale:

Library "libao:4.1.1"

Public Struct ao_sample_format
  bits As Integer             ' bits per sample
  rate As Integer             ' samples per second (in a single channel)
  channels As Integer         ' number of audio channels
  byte_format As Integer      ' Byte ordering in sample, see constants below
  matrix As Pointer           ' input channel location/ordering
End Struct
 
 Private Const AO_FMT_LITTLE As Integer = 1

' void ao_initialize(void)
' library setup
Private Extern ao_initialize()

' int ao_driver_id(void)
' driver information
Private Extern ao_driver_id(s As String) As Integer

' int ao_default_driver_id(void)
' driver information
Private Extern ao_default_driver_id() As Integer

' ao_device* ao_open_file(int driver_id, const char *filename, int overwrite,  ao_sample_format *format, ao_option *options)
' Open a file for audio output. The file format is determined by the audio driver used.
' on-NULL pointer inicates success. This pointer must be passed in subsequent calls to ao_play() and ao_close().
Private Extern ao_open_file(driver_id As Integer, filename As String, overwrite As Integer, fmt As Ao_sample_format, options As Pointer) As Pointer
  
' int ao_close(ao_device *device)
' Chiude il dispositivo audio
Private Extern ao_close(device As Pointer) As Integer

' void ao_shutdown(void)
' library teardown
Private Extern ao_shutdown()


Public Sub Main()

 Dim ao_sf As New Ao_sample_format
 Dim deviceWav, device As Pointer
 Dim driver, default_driver, buf_size As Integer
 Dim buffer As Byte[]
 Dim freq As Single = 440.0
 
' Inizializza la libreria 'libao':
 ao_initialize()
   
' Imposta il driver audio come predefinito:
 default_driver = ao_default_driver_id()

' Imposta le caratteristiche dell'audio in uscita:
 With ao_sf
   .bits = 16
   .channels = 2
   .rate = 44100
   .byte_format = AO_FMT_LITTLE
 End With 
 
' Crea il file wav

' Imposta il driver audio per il wav:
 driver = ao_driver_id("wav")

' Imposta il percorso e il nome del file WAV che sarà infine creato:
 deviceWav = ao_open_file(driver, "/tmp/file.wav", 1, ao_sf, Null)
 If deviceWav == 0 Then Error.Raise("Errore nell'apertura del dispositivo audio !")
  
 buffer = ElaboraOnda(ao_sf, freq)

 Crea_File_Wav(buffer)
   
' Va in chiusura:
 buffer.Clear()
 ao_close(device)
 ao_shutdown()

End


Private Function ElaboraOnda(aosf As Ao_sample_format, frequenza As Integer) As Byte[]
 
 Dim buff_dim, i, sample As Integer
 Dim buffer As Byte[]
 
' Elabora il suono:
 buff_dim = aosf.bits / 8 * aosf.channels * aosf.rate

 buffer = New Byte[buff_dim]
   
 For i = 0 To aosf.rate - 1
' Genera l'onda sinusoidale:
   sample = CInt(0.75 * 32768.0 * Sin(2 * Pi * frequenza * CSingle(i / aosf.rate)))
' Imposta il medesimo suono nei canali destro e sinistro:
   buffer[4 * i] = sample And &FF
   buffer[4 * i + 2] = sample And &FF
   buffer[4 * i + 1] = Shr(sample, 8) And &FF
   buffer[4 * i + 3] = Shr(sample, 8) And &FF
 Next
    
 Return buffer
   
End


Private Procedure Crea_File_Wav(buf As Byte[])
 
 Dim s As String
   
 s = buf.ToString(0, buf.Count)
 If IsNull(s) Then Error.Raise("Dati audio grezzi inesistenti !")
   
 File.Save("/tmp/file.wav", File.Load("/tmp/wav") & s)
 
End

Riferimenti

• http://www.xiph.org/ao/doc/
• http://manual.freeshell.org/libao-1.0.0