Differenze tra le versioni di "Convertire un file soundfont bank sf2 in un file WAV con le sole risorse di Gambas"

Da Gambas-it.org - Wikipedia.
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
Riga 5: Riga 5:
 
Il file .sf2 è costituito, oltre che dai blocchi contenenti specifiche informazioni di carattere generale sul file stesso, anche dal blocco denominato "''sdtasmpl'' " contenente in sequenza i dati audio grezzi dei suoni campionati. Dopo l'identificativo "''sdtasmpl''" di tale blocco di dati vi sono quattro byte che in ordine ''Little-Endian'' specificano la dimensione in byte del blocco medesimo.
 
Il file .sf2 è costituito, oltre che dai blocchi contenenti specifiche informazioni di carattere generale sul file stesso, anche dal blocco denominato "''sdtasmpl'' " contenente in sequenza i dati audio grezzi dei suoni campionati. Dopo l'identificativo "''sdtasmpl''" di tale blocco di dati vi sono quattro byte che in ordine ''Little-Endian'' specificano la dimensione in byte del blocco medesimo.
  
−
Mostriamo un semplice codice per estrapolare i dati audio grezzi dei suoni campionati, contenuti dal predetto blocco "''sdtasmpl''", con i quali sarà creato un file WAV, eseguendo il quale, consentirà di udire uno dopo l'altro tutti i suoni campionati presenti nell'originario file sf2.
+
Mostriamo un semplice codice per estrapolare i dati audio grezzi dei suoni campionati, contenuti dal predetto blocco "''sdtasmpl'' ", con i quali sarà creato un file WAV, eseguendo il quale, consentirà di udire uno dopo l'altro tutti i suoni campionati presenti nell'originario file sf2.
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
−
   Dim sf2 As String
+
   Dim s As String
−
  Dim bb As Byte[]
 
 
   Dim fl, wav As File
 
   Dim fl, wav As File
−
   Dim i, durata As Integer
+
   Dim i As Integer
 
    
 
    
−
   sf2 = "<FONT Color=gray>''/percorso/del/file.sf2''</font>"
+
   s = "<FONT Color=gray>''/percorso/del/file.sf2''</font>"
−
 
 
−
  fl = Open sf2 For Read
 
−
   
 
−
  wav = Open "/tmp/test.wav" For Create
 
−
   
 
−
<FONT Color=gray>' ''Comincia a scrivere il blocco d'intestazione del futuro file wav:''</font>
 
−
  Write #wav, "RIFF"
 
 
    
 
    
 +
  fl = Open s For Read
 +
 
  <FONT Color=gray>' ''Individua la posizione del file .sf2 dell'identificativo "sdtasmpl" dell'omonimo blocco:''</font>
 
  <FONT Color=gray>' ''Individua la posizione del file .sf2 dell'identificativo "sdtasmpl" dell'omonimo blocco:''</font>
−
   i = InStr(File.Load(sf2), "sdtasmpl")
+
   i = InStr(File.Load(s), "sdtasmpl")
 
   
 
   
 
  <FONT Color=gray>' ''Legge la dimensione in byte del blocco "sdtasmpl", ossia la quantità di dati audio grezzi dei suoni campionati di cui il blocco è costituito:''</font>
 
  <FONT Color=gray>' ''Legge la dimensione in byte del blocco "sdtasmpl", ossia la quantità di dati audio grezzi dei suoni campionati di cui il blocco è costituito:''</font>
Riga 29: Riga 23:
 
   i = Read #fl As Integer
 
   i = Read #fl As Integer
 
   
 
   
−
  <FONT Color=gray>' ''Continua ad aggiungere altri elementi costituenti il blocco d'intestazione del futuro file wav:''</font>
+
  <FONT Color=gray>' ''Crea il futuro file wav:''</font>
 +
  wav = Open "/tmp/test.wav" For Create
 +
 +
<FONT Color=gray>' ''Scrive il blocco d'intestazione del futuro file wav:''</font>
 +
  Write #wav, "RIFF"
 
   Write #wav, i + 36 As Integer
 
   Write #wav, i + 36 As Integer
−
   bb = New Byte[]
+
   Write #wav, "WAVEfmt "
−
   bb = [&57, &41, &56, &45, &66, &6D, &74, &20, 16, 0, 0, 0, 1, 0, 1, 0, &44, &AC, 0, 0, &88, &58, 1, 0, 2, 0, 16, 0, &64, &61, &74, &61]
+
   Write #wav, 16 As Integer
−
   bb.Write(wav, 0, bb.Count)
+
  Write #wav, 1 As Short
−
  bb.Clear
+
  Write #wav, 1 As Short
−
   
+
  Write #wav, 44100 As Integer
 +
  Write #wav, 176400 As Integer
 +
  Write #wav, 2 As Short
 +
  Write #wav, 16 As Short
 +
   Write #wav, "data"
 
   Write #wav, i As Integer
 
   Write #wav, i As Integer
 
   
 
   
−
  <FONT Color=gray>' ''Aggiunge in fine i byte relativi ai dati audio grezzi dei suoni campionati presenti nell'originario file .sf2:''</font>
+
  <FONT Color=gray>' ''Legge i dati audio grezzi dei suoni campionati presenti nel file sf2 e li salva nel futuro file wav:''</font>
−
   With bb = New Byte[i]
+
   Read #fl, s, -i
−
    .Read(fl, 0, .Count)
+
  Write #wav, s
−
    .Write(wav, 0, .Count)
 
−
  End With
 
 
      
 
      
 
   wav.Close
 
   wav.Close
Riga 49: Riga 49:
 
  <FONT Color=gray>' ''Fornisce alcune informazioni generali sul file .sf2:''</font>
 
  <FONT Color=gray>' ''Fornisce alcune informazioni generali sul file .sf2:''</font>
 
   Print "File soundbank: "; sf2
 
   Print "File soundbank: "; sf2
−
   Print "Dimensione totale suoni campionati: "; i;; "byte"
+
   Print "Dimensione totale suoni campionati: "; i; " byte"
−
  durata = (i * 8) \ 705600
+
   Print "Durata totale dei suoni campionati: "; Time(0, 0, 0, (i \ 176400) * 1000)
−
   Print "Durata totale dei suoni campionati: "; Date(0, 0, 0, 0, 0, 0, durata * 1000)
 
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione attuale delle 07:56, 4 ott 2022

Un file banco di suoni di formato sf2 è semplicemente una libreria di suoni per la riproduzione di dati Midi che si basa su tabelle di suoni campionati (wavetable).

Il file contiene, dunque, dati audio di suoni campionati non compressi di formato PCM che possono essere successivamente manipolati dal calcolatore per generare le restanti frequenze sonore appartenenti a quel timbro originario.

Il file .sf2 è costituito, oltre che dai blocchi contenenti specifiche informazioni di carattere generale sul file stesso, anche dal blocco denominato "sdtasmpl " contenente in sequenza i dati audio grezzi dei suoni campionati. Dopo l'identificativo "sdtasmpl" di tale blocco di dati vi sono quattro byte che in ordine Little-Endian specificano la dimensione in byte del blocco medesimo.

Mostriamo un semplice codice per estrapolare i dati audio grezzi dei suoni campionati, contenuti dal predetto blocco "sdtasmpl ", con i quali sarà creato un file WAV, eseguendo il quale, consentirà di udire uno dopo l'altro tutti i suoni campionati presenti nell'originario file sf2. 

Public Sub Main()

 Dim s As String
 Dim fl, wav As File
 Dim i As Integer
  
 s = "/percorso/del/file.sf2"
 
 fl = Open s For Read

' Individua la posizione del file .sf2 dell'identificativo "sdtasmpl" dell'omonimo blocco:
 i = InStr(File.Load(s), "sdtasmpl")

' Legge la dimensione in byte del blocco "sdtasmpl", ossia la quantità di dati audio grezzi dei suoni campionati di cui il blocco è costituito:
 Seek #fl, i + 7
 i = Read #fl As Integer

' Crea il futuro file wav:
 wav = Open "/tmp/test.wav" For Create

' Scrive il blocco d'intestazione del futuro file wav:
 Write #wav, "RIFF"
 Write #wav, i + 36 As Integer
 Write #wav, "WAVEfmt "
 Write #wav, 16 As Integer
 Write #wav, 1 As Short
 Write #wav, 1 As Short
 Write #wav, 44100 As Integer
 Write #wav, 176400 As Integer
 Write #wav, 2 As Short
 Write #wav, 16 As Short
 Write #wav, "data"
 Write #wav, i As Integer

' Legge i dati audio grezzi dei suoni campionati presenti nel file sf2 e li salva nel futuro file wav:
 Read #fl, s, -i
 Write #wav, s
   
 wav.Close
 fl.Close
  
' Fornisce alcune informazioni generali sul file .sf2:
 Print "File soundbank: "; sf2
 Print "Dimensione totale suoni campionati: "; i; " byte"
 Print "Durata totale dei suoni campionati: "; Time(0, 0, 0, (i \ 176400) * 1000)

End


Riferimenti

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