Versione attuale delle 19:44, 17 gen 2024

Utilizzando i plugin di GStreamer con le Classi MediaControl e MediaPipeline del Componente gb.media, è possibile ottenere un file audio da un file MIDI.

I plugin specifici da utilizzare per il MIDI sono:

midiparse: interpreta i file MIDI e li converte in eventi MIDI;
fluiddec: effettua il render degli eventi MIDI in campioni audio grezzi.

Mostriamo di seguito un esempio pratico, nel quale si otterrà un file WAV da un file MIDI:

Private bo As Boolean


Public Sub Main()
 
 Dim filemidi As String
 Dim pl As MediaPipeline
 Dim src, par, fdc, con, res, vol, enc, snk As MediaControl
 Dim flt As MediaFilter

 filemidi = "/percorso/del/file.mid"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = filemidi
  
 par = New MediaControl(pl, "midiparse")
 fdc = New MediaControl(pl, "fluiddec")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample")
 flt = New MediaFilter(pl, "audio/x-raw,format=S16LE,rate=44100,channels=2,depth=16")
 vol = New MediaControl(pl, "volume")
 vol["volume"] = 0.5                         ' <1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%
 enc = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".wav"

 src.LinkTo(par)
 par.LinkTo(fdc)
 fdc.LinkTo(con)
 con.LinkTo(res)
 res.LinkTo(flt)
 flt.LinkTo(vol)
 vol.LinkTo(enc)
 enc.LinkTo(snk)

 pl.Play()

 Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 While Not bo
   Write "\r\e[0mTempo di conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End()   ' Questo Evento viene sollevato, quando la conversione è terminata
 
 bo = True
 
End

In quest'altro esempio si otterrà un file OGG-Vorbis da un file MIDI:

Private bo As Boolean


Public Sub Main()

 Dim filemidi As String
 Dim pl As MediaPipeline
 Dim src, par, fdc, con, res, vol, vor, mux, snk As MediaControl

 filemidi = "/percorso/del/file.mid"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = filemidi

 par = New MediaControl(pl, "midiparse")
 fdc = New MediaControl(pl, "fluiddec")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample")
 vol = New MediaControl(pl, "volume")
 vol["volume"] = 0.4                          ' <1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%
 vor = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".ogg"

 src.LinkTo(par)
 par.LinkTo(fdc)
 fdc.LinkTo(res)
 res.LinkTo(cnv)
 cnv.LinkTo(vol)
 vol.LinkTo(vor)
 vor.LinkTo(mux)
 mux.LinkTo(snk)

 pl.Play()

 Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 While Not bo
   Write "\r\e[0mTempo conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End

Public Sub PLine_End()   ' Questo Evento viene sollevato, quando la conversione è terminata
 
 bo = True
 
End

In questo terzo esempio si otterrà un file MP3 da un file MIDI:

Private bo As Boolean


Public Sub Main()

 Dim filemidi As String
 Dim pl As MediaPipeline
 Dim src, par, fdc, con, res, vol, lam, snk As MediaControl

 filemidi = "/percorso/del/file.mid"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = filemidi

 par = New MediaControl(pl, "midiparse")
 fdc = New MediaControl(pl, "fluiddec")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample")
 vol = New MediaControl(pl, "volume")
 vol["volume"] = 0.4                          ' <1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%
 lam = New MediaControl(pl, "lamemp3enc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".mp3"

 src.LinkTo(par)
 par.LinkTo(fdc)
 fdc.LinkTo(res)
 res.LinkTo(cnv)
 cnv.LinkTo(vol)
 vol.LinkTo(lam)
 lam.LinkTo(snk)

 pl.Play()
 
 Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 While Not bo
   Write "\r\e[0mTempo conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End()   ' Questo Evento viene sollevato, quando la conversione è terminata

 bo = True

End

In questo quarto esempio si otterrà un file AAC da un file MIDI:

Private bo As Boolean


Public Sub Main()
 
 Dim filemidi As String
 Dim pl As MediaPipeline
 Dim src, par, fdc, con, res, vol, faa, snk As MediaControl
 Dim flt1, flt2 As MediaFilter

 filemidi = "/percorso/del/file.mid"

 pl = New MediaPipeline As "PLine"

 src = New MediaControl(pl, "filesrc")
 src["location"] = filemidi
  
 par = New MediaControl(pl, "midiparse")
 fdc = New MediaControl(pl, "fluiddec")
 con = New MediaControl(pl, "audioconvert")
 res = New MediaControl(pl, "audioresample")
 flt1 = New MediaFilter(pl, "audio/x-raw,format=S16LE,rate=44100,channels=2,depth=16")
 vol = New MediaControl(pl, "volume")
 vol["volume"] = 1.0                         ' <1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%
 faa = New MediaControl(pl, "faac")
 flt2 = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".aac"

 src.LinkTo(par)
 par.LinkTo(fdc)
 fdc.LinkTo(con)
 con.LinkTo(res)
 res.LinkTo(flt1)
 flt1.LinkTo(vol)
 vol.LinkTo(faa)
 faa.LinkTo(flt2)
 flt2.LinkTo(snk)

 pl.Play()

 Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
 While Not bo
   Write "\r\e[0mTempo di conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 pl.Stop
 pl.Close

 Print "\n\e[0mConversione terminata !"

End


Public Sub PLine_End()   ' Questo Evento viene sollevato, quando la conversione è terminata
 
 bo = True
 
End

Riferimenti

https://github.com/Xilinx/gstreamer/blob/master/docs/random/uraeus/gstreamer_and_midi.txt

Differenze tra le versioni di "Ottenere un file audio da un file MIDI mediante il Componente gb.media"

Versione attuale delle 19:44, 17 gen 2024

Riferimenti

Menu di navigazione

Strumenti personali

Namespace

Varianti

Visite

Altro

Ricerca

Menu principale

Utilità

@@ Riga 4: / Riga 4: @@
 * ''midiparse'': interpreta i file MIDI e li converte in eventi MIDI;
 * ''fluiddec'': effettua il render degli eventi MIDI in campioni audio grezzi.
 Mostriamo di seguito un esempio pratico, nel quale si otterrà un file WAV da un file MIDI:
@@ Riga 10: / Riga 9: @@
-  '''Public''' Sub Main()
+  Public Sub Main()
-   Dim filemidi, datigrezzi As String
+   Dim filemidi As String
    Dim pl As MediaPipeline
-   Dim src, par, fdc, res, cnv, vol, enc, snk As MediaControl
+   Dim src, par, fdc, con, res, vol, enc, snk As MediaControl
    Dim flt As MediaFilter
-   filemidi = "<FONT color=gray>''/percorso/del/file.mid''</font>"
+   filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>"
-  datigrezzi = Temp
    pl = New MediaPipeline As "PLine"
    src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
    src["location"] = filemidi
@@ Riga 28: / Riga 25: @@
    par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
    fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
+  con = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
    res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
-  cnv = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
    flt = New MediaFilter(pl, "<FONT color=#B22222>audio/x-raw,format=S16LE,rate=44100,channels=2,depth=16</font>")
    vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
-   vol["volume"] = 4.0                          <FONT color=gray>' ''"volume" è una proprietà dell'omonimo plugin "volume"''</font>
+   vol["volume"] = 0.5                         <FONT color=gray>' ''<1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%''</font>
    enc = New MediaControl(pl, "<FONT color=#B22222>wavenc</font>")
    snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
-   snk["location"] = datigrezzi
+   snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".wav"
    src.LinkTo(par)
    par.LinkTo(fdc)
-   fdc.LinkTo(res)
+   fdc.LinkTo(con)
-   res.LinkTo(cnv)
+   con.LinkTo(res)
-   cnv.LinkTo(flt)
+   res.LinkTo(flt)
    flt.LinkTo(vol)
    vol.LinkTo(enc)
    enc.LinkTo(snk)
    pl.Play()
    Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
-   Repeat
+   While Not bo
-     Write "\r\e[0mTempo convertito:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
+     Write "\r\e[0mTempo di conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
      Wait 0.01
-   Until bo
+   Wend
-  Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".wav"
+  pl.Stop
    pl.Close
    Print "\n\e[0mConversione terminata !"
- '''End'''
-  '''Public''' Sub PLine_'''End'''()   <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
+  End
+ Public Sub PLine_'''End'''()   <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
    bo = True
-  '''End'''
+  End
 In quest'altro esempio si otterrà un file OGG-Vorbis da un file MIDI:
   Private bo As Boolean
-  '''Public''' Sub Main()
+  Public Sub Main()
-   Dim filemidi, datigrezzi As String
+   Dim filemidi As String
    Dim pl As MediaPipeline
-   Dim src, par, fdc, res, cnv, vol, vor, mux, snk As MediaControl
+   Dim src, par, fdc, con, res, vol, vor, mux, snk As MediaControl
-  filemidi = "<FONT color=gray>''/percorso/del/file.mid''</font>"
-   datigrezzi = Temp
+   filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>"
    pl = New MediaPipeline As "PLine"
@@ Riga 88: / Riga 83: @@
    par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
    fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
+  con = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
    res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
-  cnv = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
    vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
-   vol["volume"] = 4.0                          <FONT color=gray>' ''"volume" è una proprietà dell'omonimo plugin "volume"''</font>
+   vol["volume"] = 0.4                          <FONT color=gray>' ''<1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%''</font>
    vor = New MediaControl(pl, "<FONT color=#B22222>vorbisenc</font>")
    mux = New MediaControl(pl, "<FONT color=#B22222>oggmux</font>")
    snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
-   snk["location"] = datigrezzi
+   snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".ogg"
    src.LinkTo(par)
@@ Riga 101: / Riga 96: @@
    fdc.LinkTo(res)
    res.LinkTo(cnv)
-   cnv.LinkTo(vor)
+   cnv.LinkTo(vol)
+  vol.LinkTo(vor)
    vor.LinkTo(mux)
    mux.LinkTo(snk)
@@ Riga 108: / Riga 104: @@
    Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
-   Repeat
+   While Not bo
-     Write "\r\e[0mTempo convertito:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
+     Write "\r\e[0mTempo conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
      Wait 0.01
-   Until bo
+   Wend
-  Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".ogg"
+  pl.Stop
    pl.Close
    Print "\n\e[0mConversione terminata !"
-  '''End'''
+  End
-  '''Public''' Sub PLine_End()
+  Public Sub PLine_End()   <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
    bo = True
-  '''End'''
+  End
 In questo terzo esempio si otterrà un file MP3 da un file MIDI:
   Private bo As Boolean
-  '''Public''' Sub Main()
+  Public Sub Main()
-   Dim filemidi, datigrezzi As String
+   Dim filemidi As String
    Dim pl As MediaPipeline
-   Dim src, par, fdc, res, cnv, vol, lam, snk As MediaControl
+   Dim src, par, fdc, con, res, vol, lam, snk As MediaControl
+  filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>"
-   filemidi = "<FONT color=gray>''/percorso/del/file.mid''</font>"
+   pl = New MediaPipeline As "PLine"
-  datigrezzi = Temp
    src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
    src["location"] = filemidi
    par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
    fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
+  con = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
    res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
-  cnv = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
    vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
-   vol["volume"] = 4.0                          <FONT color=gray>' ''"volume" è una proprietà dell'omonimo plugin "volume"''</font>
+   vol["volume"] = 0.4                          <FONT color=gray>' ''<1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%''</font>
    lam = New MediaControl(pl, "<FONT color=#B22222>lamemp3enc</font>")
    snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
-   snk["location"] = datigrezzi
+   snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".mp3"
    src.LinkTo(par)
@@ Riga 157: / Riga 152: @@
    fdc.LinkTo(res)
    res.LinkTo(cnv)
-   cnv.LinkTo(lam)
+   cnv.LinkTo(vol)
+  vol.LinkTo(lam)
    lam.LinkTo(snk)
@@ Riga 163: / Riga 159: @@
    Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
-   Repeat
+   While Not bo
-     Write "\r\e[0mTempo convertito:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
+     Write "\r\e[0mTempo conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
      Wait 0.01
-   Until bo
+   Wend
+  pl.Stop
+  pl.Close
+  Print "\n\e[0mConversione terminata !"
+ End
+ Public Sub PLine_End()   <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
-   Copy datigrezzi To "/tmp" &/ File.BaseName(filemidi) & ".mp3"
+   bo = True
+ End
+In questo quarto esempio si otterrà un file AAC da un file MIDI:
+ Private bo As Boolean
+ Public Sub Main()
+  Dim filemidi As String
+  Dim pl As MediaPipeline
+  Dim src, par, fdc, con, res, vol, faa, snk As MediaControl
+  Dim flt1, flt2 As MediaFilter
+  filemidi = "<FONT color=darkgreen>''/percorso/del/file.mid''</font>"
+  pl = New MediaPipeline As "PLine"
+  src = New MediaControl(pl, "<FONT color=#B22222>filesrc</font>")
+  src["location"] = filemidi
+  par = New MediaControl(pl, "<FONT color=#B22222>midiparse</font>")
+  fdc = New MediaControl(pl, "<FONT color=#B22222>fluiddec</font>")
+  con = New MediaControl(pl, "<FONT color=#B22222>audioconvert</font>")
+  res = New MediaControl(pl, "<FONT color=#B22222>audioresample</font>")
+  flt1 = New MediaFilter(pl, "<FONT color=#B22222>audio/x-raw,format=S16LE,rate=44100,channels=2,depth=16</font>")
+  vol = New MediaControl(pl, "<FONT color=#B22222>volume</font>")
+  vol["volume"] = 1.0                         <FONT color=gray>' ''<1.0 = volume <100% | 1.0 = volume 100% | >1.0 = volume >100%''</font>
+  faa = New MediaControl(pl, "<FONT color=#B22222>faac</font>")
+  flt2 = New MediaFilter(pl, "audio/mpeg,stream-format=adts,channels=2,rate=44100")
+  snk = New MediaControl(pl, "<FONT color=#B22222>filesink</font>")
+  snk["location"] = "/tmp" &/ File.BaseName(filemidi) & ".aac"
+  src.LinkTo(par)
+  par.LinkTo(fdc)
+  fdc.LinkTo(con)
+  con.LinkTo(res)
+  res.LinkTo(flt1)
+  flt1.LinkTo(vol)
+  vol.LinkTo(faa)
+  faa.LinkTo(flt2)
+  flt2.LinkTo(snk)
+  pl.Play()
+  Print "Durata del file Midi: "; Str(Time(0, 0, 0, pl.Duration * 1000))
+  While Not bo
+    Write "\r\e[0mTempo di conversione:     \e[31m" & Str(Time(0, 0, 0, pl.Position * 1000))
+    Wait 0.01
+  Wend
+  pl.Stop
    pl.Close
    Print "\n\e[0mConversione terminata !"
-  '''End'''
+  End
-  '''Public''' Sub PLine_End()
+  Public Sub PLine_End()   <FONT Color=gray>' ''Questo Evento viene sollevato, quando la conversione è terminata''</font>
    bo = True
-  '''End'''
+  End