Versione delle 09:31, 9 mag 2015

Per l'uso delle risorse della libreria libao bisognerà richiamare nel proprio applicativo Gambas la libreria attualmente alla versione: "libao.so.4.0.0" .

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

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
 

Library "libao:4.0.0"

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")

  deviceWav = ao_open_file(driver, "/tmp/file.wav", 1, ao_sf, Null)
  If IsNull(deviceWav) 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/file.wav") & s)
 
End

Riferimenti

[1] L'API di LibAo