Visualizza wikitesto di Ottenere con il Componente gb.media un file audio dai dati Midi grezzi intercettati da un dispositivo Midi esterno

E' possibile intercettare i dati Midi grezzi inviati da un dispositivo Midi esterno (ad esempio una tastiera Midi) usando le risorse delle Classi "''MediaPipeline''" e "''MediaControl''" del Componente ''gb.media'', <SUP>&#091;[[#Note|Nota 1]]&#093;</sup> e successivamente generare con essi un file audio.

Va detto preliminarmente che si è riscontrato che il tempo metronomico del brano registrato nel file audio risulta essere - incomprensibilmente - più lento rispetto all'esecuzione originale fatta con il dispositivo Midi esterno.

Sarà necessario assegnare alla proprietà "''ports''" dell'elemento "''fluiddec''" il numero identificativo, quale Client ALSA, e il numero della porta del dispotivo Midi esterno che invia i dati Midi grezzi.


===Generare un file audio WAV dai dati Midi grezzi registrati===
Mostriamo un semplice esempio pratico, nel quale si genererà un file audio WAV dai dati Midi grezzi intercettati da un dispositivo Midi esterno:
 '''Public''' Sub Main()
  
  Dim pl As MediaPipeline
  Dim src, flu, res, con, enc, snk As MediaControl 
  Dim flt As MediaFilter
  Dim porta, primofile, s As String
  
   primofile = "/tmp/primofile"
   
 <FONT Color=gray>' ''Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0) :''</font>
   porta = "24:0"
   
   pl = New MediaPipeline
   
   src = New MediaControl(pl, "alsamidisrc")
   <FONT Color=#B22222>src["ports"]</font> = porta 
   flu = New MediaControl(pl, "fluiddec")
   flu["synth-gain"] = 0.5
   res = New MediaControl(pl, "audioresample")
   con = New MediaControl(pl, "audioconvert")
   flt = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
   enc = New MediaControl(pl, "<FONT Color=#B22222>wavenc</font>")
   snk = New MediaControl(pl, "filesink")
   snk["location"] = primofile
   
   src.LinkTo(flu)
   flu.LinkTo(res)
   res.LinkTo(con)
   con.LinkTo(flt)
   flt.LinkTo(enc)
   enc.LinkTo(snk)
   
   pl.play()
   
 <FONT Color=gray>' ''Consente di tenere funzionante il programma. Basterà premere "Invio" per terminare.''</font>
   Input s
   
   Copy primofile To "/tmp/audio.wav"
   pl.Stop
   pl.Close
   Print "Termine programma !"
   
 '''End'''


===Generare un file audio MP3 dai dati Midi grezzi registrati===
Mostriamo un semplice esempio pratico, nel quale si genererà un file audio MP3 dai dati Midi grezzi intercettati da un dispositivo Midi esterno:
 '''Public''' Sub Main()
  
  Dim pl As MediaPipeline
  Dim src, flu, res, con, enc, snk As MediaControl 
  Dim flt As MediaFilter
  Dim porta, primofile, s As String
  
   primofile = "/tmp/primofile"
   
 <FONT Color=gray>' ''Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0) :''</font>
   porta = "24:0"
   
   pl = New MediaPipeline
   
   src = New MediaControl(pl, "alsamidisrc")
   <FONT Color=#B22222>src["ports"]</font> = porta 
   flu = New MediaControl(pl, "fluiddec")
   flu["synth-gain"] = 0.5
   res = New MediaControl(pl, "audioresample")
   con = New MediaControl(pl, "audioconvert")
   flt = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
   enc = New MediaControl(pl, "<FONT Color=#B22222>lamemp3enc</font>")
   snk = New MediaControl(pl, "filesink")
   snk["location"] = primofile
   
   src.LinkTo(flu)
   flu.LinkTo(res)
   res.LinkTo(con)
   con.LinkTo(flt)
   flt.LinkTo(enc)
   enc.LinkTo(snk)
   
   pl.play()
   
 <FONT Color=gray>' ''Consente di tenere funzionante il programma. Basterà premere "Invio" per terminare.''</font>
   Input s
   
   Copy primofile To "/tmp/audio.mp3"
   pl.Stop
   pl.Close
   Print "Termine programma !"
   
 '''End'''


===Generare un file audio OGG-Vorbis dai dati Midi grezzi registrati===
Mostriamo un semplice esempio pratico, nel quale si genererà un file audio OGG-Vorbis dai dati Midi grezzi intercettati da un dispositivo Midi esterno:
 '''Public''' Sub Main()
  
  Dim pl As MediaPipeline
  Dim src, flu, res, con, enc, mux, snk As MediaControl 
  Dim flt As MediaFilter
  Dim porta, primofile, s As String
  
   primofile = "/tmp/primofile"
   
 <FONT Color=gray>' ''Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0) :''</font>
   porta = "24:0"
   
   pl = New MediaPipeline
   
   src = New MediaControl(pl, "alsamidisrc")
   <FONT Color=#B22222>src["ports"]</font> = porta 
   flu = New MediaControl(pl, "fluiddec")
   flu["synth-gain"] = 0.5
   res = New MediaControl(pl, "audioresample")
   con = New MediaControl(pl, "audioconvert")
   flt = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
   enc = New MediaControl(pl, "<FONT Color=#B22222>vorbisenc</font>")
   mux = New MediaControl(pl, "<FONT Color=#B22222>oggmux</font>")
   snk = New MediaControl(pl, "filesink")
   snk["location"] = primofile
   
   src.LinkTo(flu)
   flu.LinkTo(res)
   res.LinkTo(con)
   con.LinkTo(flt)
   flt.LinkTo(enc)
   enc.LinkTo(mux)
   mux.LinkTo(snk)
   
   pl.play()
   
 <FONT Color=gray>' ''Consente di tenere funzionante il programma. Basterà premere "Invio" per terminare.''</font>
   Input s
   
   Copy primofile To "/tmp/audio.ogg"
   pl.Stop
   pl.Close
   Print "Termine programma !"
   
 '''End'''


===Ascoltare quanto eseguito con il dispositivo Midi esterno e generare un file audio===
Negli esempi visti in precedenza l'invio dei dati Midi attraverso il dispositivo Midi esterno non consente via risorse del Componente ''gb.media'' di ascoltare contestualmente i suoni.

Per ottenere questo risultato si potrà adottare un codice come il seguente (resta comunque il problema del risultato audio con tempo metronomico più lento rispetto all'esecuzione originaria):
 '''Public''' Sub Main()
  
  Dim pl As MediaPipeline
  Dim src1, flu1, con1, snk1 As MediaControl 
  Dim src2, flu2, res2, con2, enc2, snk2 As MediaControl 
  Dim flt2 As MediaFilter
  Dim porta, primofile, s As String
   
   primofile = "/tmp/primofile"
    
 <FONT Color=gray>' ''Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0):''</font>
   porta = "24:0"
   
   pl = New MediaPipeline
   
   src1 = New MediaControl(pl, "alsamidisrc")
   src1["ports"] = porta 
   flu1 = New MediaControl(pl, "fluiddec")
   flu1["synth-gain"] = 0.5
   con1 = New MediaControl(pl, "audioconvert")
   snk1 = New MediaControl(pl, "autoaudiosink")
   src1.LinkTo(flu1)
   flu1.LinkTo(con1)
   con1.LinkTo(snk1)
   
   src2 = New MediaControl(pl, "alsamidisrc")
   src2["ports"] = porta 
   flu2 = New MediaControl(pl, "fluiddec")
   flu2["synth-gain"] = 0.5
   res2 = New MediaControl(pl, "audioresample")
   con2 = New MediaControl(pl, "audioconvert")
   flt2 = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
   enc2 = New MediaControl(pl, "wavenc")
   snk2 = New MediaControl(pl, "filesink")
   snk2["location"] = primofile
   src2.LinkTo(flu2)
   flu2.LinkTo(res2)
   res2.LinkTo(con2)
   con2.LinkTo(flt2)
   flt2.LinkTo(enc2)
   enc2.LinkTo(snk2)
   
   pl.play()
   
 <FONT Color=gray>' ''Consente di tenere funzionante il programma. Basterà premere "Invio" per terminare.''</font>
   Input s
   
   Copy primofile To "/tmp/audio.wav"
   pl.Stop
   pl.Close
   Print "Termine programma !"
   
 '''End'''




=Note=
[1] Vedi anche la pagina: [[Intercettare_dati_Midi_grezzi_da_un_dispositivo_Midi_esterno_mediante_il_Componente_gb.media|Intercettare dati Midi grezzi da un dispositivo Midi esterno mediante il Componente gb.media]]



=Riferimenti=
* https://gstreamer.freedesktop.org/data/doc/gstreamer/head/gst-plugins-base-plugins/html/gst-plugins-base-plugins-alsamidisrc.html
* https://thiblahute.github.io/GStreamer-doc/gst-plugins-bad-plugins-1.0/element-fluiddec.html
* https://github.com/GStreamer/gst-plugins-bad/tree/master/ext/fluidsynth