Differenze tra le versioni di "Ottenere con il Componente gb.media un file audio dai dati Midi grezzi intercettati da un dispositivo Midi esterno"

Da Gambas-it.org - Wikipedia.
 
(6 versioni intermedie di uno stesso utente non sono mostrate)
Riga 3: Riga 3:
 
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.
 
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.
+
Sarà necessario assegnare alla proprietà "''ports''" dell'elemento "''fluiddec''" il numero identificativo (quale Client di ALSA) e il numero della porta del dispotivo Midi esterno che invia i dati Midi grezzi. Non v'è bisogno ovviamente di effettuare alcuna connessione mediante il comando "''aconnect''" di AlSA fra i Client ALSA interessati.
 +
 
 +
Per garantire la sincronicità fra quanto eseguito e dati salvati, evitando così ogni eventuale ritardo di memorizzazione/riproduzione audio nel file finale, è necessario impostare a "true", cioè al valore intero 1, la proprietà "''sync''" dell'elemento "''filesink''".
  
  
 
===Generare un file audio WAV dai dati Midi grezzi registrati===
 
===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:
 
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()
+
  Public Sub Main()
 
    
 
    
 
   Dim pl As MediaPipeline
 
   Dim pl As MediaPipeline
−
   Dim src, flu, res, con, enc, snk As MediaControl  
+
   Dim src, flu, con, enc, snk As MediaControl  
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
−
   Dim porta, primofile, s As String
+
   Dim porta, 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>
 
  <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"
+
  porta = "24:0"
 
    
 
    
−
  pl = New MediaPipeline
+
  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
 +
  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"] = "/tmp/audio.wav"
 +
  <FONT Color=#B22222>snk["sync"] = True</font>
 
    
 
    
−
  src = New MediaControl(pl, "alsamidisrc")
+
  src.LinkTo(flu)
−
  <FONT Color=#B22222>src["ports"]</font> = porta
+
  flu.LinkTo(con)
−
  flu = New MediaControl(pl, "fluiddec")
+
  con.LinkTo(flt)
−
  flu["synth-gain"] = 0.5
+
  flt.LinkTo(enc)
−
  res = New MediaControl(pl, "audioresample")
+
  enc.LinkTo(snk)
−
  con = New MediaControl(pl, "audioconvert")
+
 
−
  flt = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
+
  pl.play()
−
  enc = New MediaControl(pl, "<FONT Color=#B22222>wavenc</font>")
+
 
−
  snk = New MediaControl(pl, "filesink")
+
<FONT color=gray>' ''Utilizziamo la funzione "Input" per consentire il processo di conversione.''
−
  snk["location"] = primofile
+
' ''L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."''</font>
 +
  Input s
 
    
 
    
−
  src.LinkTo(flu)
+
  pl.Stop
−
  flu.LinkTo(res)
+
  pl.Close
−
  res.LinkTo(con)
+
  Print "Termine programma !"
−
  con.LinkTo(flt)
 
−
  flt.LinkTo(enc)
 
−
  enc.LinkTo(snk)
 
 
    
 
    
−
  pl.play()
+
  End
−
 
 
−
  <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===
 
===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:
 
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()
+
  Public Sub Main()
 
    
 
    
 
   Dim pl As MediaPipeline
 
   Dim pl As MediaPipeline
−
   Dim src, flu, res, con, enc, snk As MediaControl  
+
   Dim src, flu, con, enc, snk As MediaControl  
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
−
   Dim porta, primofile, s As String
+
   Dim porta, 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>
 
  <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"
+
  porta = "24:0"
−
 
+
 
−
  pl = New MediaPipeline
+
  pl = New MediaPipeline
−
 
+
 
−
  src = New MediaControl(pl, "alsamidisrc")
+
  src = New MediaControl(pl, "alsamidisrc")
−
  <FONT Color=#B22222>src["ports"]</font> = porta  
+
  <FONT Color=#B22222>src["ports"]</font> = porta  
−
  flu = New MediaControl(pl, "fluiddec")
+
  flu = New MediaControl(pl, "fluiddec")
−
  flu["synth-gain"] = 0.5
+
  flu["synth-gain"] = 0.5
−
  res = New MediaControl(pl, "audioresample")
+
  res = New MediaControl(pl, "audioresample")
−
  con = New MediaControl(pl, "audioconvert")
+
  con = New MediaControl(pl, "audioconvert")
−
  flt = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
+
  flt = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
−
  enc = New MediaControl(pl, "<FONT Color=#B22222>lamemp3enc</font>")
+
  enc = New MediaControl(pl, "<FONT Color=#B22222>lamemp3enc</font>")
−
  snk = New MediaControl(pl, "filesink")
+
  snk = New MediaControl(pl, "filesink")
−
  snk["location"] = primofile
+
  snk["location"] = "/tmp/audio.mp3"
−
 
+
  <FONT Color=#B22222>snk["sync"] = True</font>
−
  src.LinkTo(flu)
+
 
−
  flu.LinkTo(res)
+
  src.LinkTo(flu)
−
  res.LinkTo(con)
+
  flu.LinkTo(con)
−
  con.LinkTo(flt)
+
  con.LinkTo(flt)
−
  flt.LinkTo(enc)
+
  flt.LinkTo(enc)
−
  enc.LinkTo(snk)
+
  enc.LinkTo(snk)
−
 
+
 
−
  pl.play()
+
  pl.play()
−
 
+
 
−
  <FONT Color=gray>' ''Consente di tenere funzionante il programma. Basterà premere "Invio" per terminare.''</font>
+
  <FONT color=gray>' ''Utilizziamo la funzione "Input" per consentire il processo di conversione.''
−
  Input s
+
' ''L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."''</font>
−
 
+
  Input s
−
  Copy primofile To "/tmp/audio.mp3"
+
−
  pl.Stop
+
  pl.Stop
−
  pl.Close
+
  pl.Close
−
  Print "Termine programma !"
+
  Print "Termine programma !"
−
 
+
−
  '''End'''
+
  End
  
  
 
===Generare un file audio OGG-Vorbis dai dati Midi grezzi registrati===
 
===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:
 
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()
+
  Public Sub Main()
 
    
 
    
 
   Dim pl As MediaPipeline
 
   Dim pl As MediaPipeline
−
   Dim src, flu, res, con, enc, mux, snk As MediaControl  
+
   Dim src, flu, con, enc, mux, snk As MediaControl  
 
   Dim flt As MediaFilter
 
   Dim flt As MediaFilter
−
   Dim porta, primofile, s As String
+
   Dim porta, s As String
 +
 +
<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
 +
  con = New MediaControl(pl, "audioconvert")
 +
  flt = New MediaFilter(pl, "audio/x-raw,channels=2")
 +
  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"] = "/tmp/audio.ogg"
 +
  <FONT Color=#B22222>snk["sync"] = True</font>
 +
 +
  src.LinkTo(flu)
 +
  flu.LinkTo(con)
 +
  con.LinkTo(flt)
 +
  flt.LinkTo(enc)
 +
  enc.LinkTo(mux)
 +
  mux.LinkTo(snk)
 +
 +
  pl.play()
 +
 +
<FONT color=gray>' ''Utilizziamo la funzione "Input" per consentire il processo di conversione.''
 +
' ''L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."''</font>
 +
  Input s
 +
 +
  pl.Stop
 +
  pl.Close
 +
  Print "Termine programma !"
 +
 +
End
 +
 
 +
 
 +
===Generare un file audio AAC dai dati Midi grezzi registrati===
 +
Mostriamo un semplice esempio pratico, nel quale si genererà un file audio AAC dai dati Midi grezzi intercettati da un dispositivo Midi esterno:
 +
Private bo As Boolean
 +
 +
 +
Public Sub Main()
 
    
 
    
−
  primofile = "/tmp/primofile"
+
  Dim pl As MediaPipeline
−
 
+
  Dim src, flu, con, faa, snk As MediaControl
 +
  Dim flt1, flt2 As MediaFilter
 +
  Dim porta, s As String
 +
 
  <FONT Color=gray>' ''Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0) :''</font>
 
  <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"
+
  porta = "24:0"
 
    
 
    
−
  pl = New MediaPipeline
+
  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
 +
  con = New MediaControl(pl, "audioconvert")
 +
  flt1 = New MediaFilter(pl, "audio/x-raw,rate=44100,channels=2,format=S16LE,depth=16")
 +
  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, "filesink")
 +
  snk["location"] = "/tmp/audio.aac"
 +
  <FONT Color=#B22222>snk["sync"] = True</font>
 
    
 
    
−
  src = New MediaControl(pl, "alsamidisrc")
+
  src.LinkTo(flu)
−
  <FONT Color=#B22222>src["ports"]</font> = porta
+
  flu.LinkTo(con)
−
  flu = New MediaControl(pl, "fluiddec")
+
  con.LinkTo(flt)
−
  flu["synth-gain"] = 0.5
+
  flt1.LinkTo(faa)
−
  res = New MediaControl(pl, "audioresample")
+
  faa.LinkTo(flt2)
−
  con = New MediaControl(pl, "audioconvert")
+
  flt2.LinkTo(snk)
−
  flt = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
+
−
  enc = New MediaControl(pl, "<FONT Color=#B22222>vorbisenc</font>")
+
  pl.play()
−
  mux = New MediaControl(pl, "<FONT Color=#B22222>oggmux</font>")
+
−
  snk = New MediaControl(pl, "filesink")
+
  While Not bo
−
  snk["location"] = primofile
+
    Write "\rTempo Trascorso: " & Str(Time(0, 0, 0, pl.Position * 1000))
−
 
+
    Wait 0.01
−
  src.LinkTo(flu)
+
  Wend
−
  flu.LinkTo(res)
+
−
  res.LinkTo(con)
+
  pl.Stop
−
  con.LinkTo(flt)
+
  pl.Close
−
  flt.LinkTo(enc)
+
  Print "Termine programma !"
−
  enc.LinkTo(mux)
+
−
  mux.LinkTo(snk)
+
End
−
 
+
−
  pl.play()
+
−
 
+
  Public Sub Application_Read()  <FONT color=gray>' ''Questo Evento viene sollevato, quando si preme sul tasto "Invio" della tastiera''</font>
−
<FONT Color=gray>' ''Consente di tenere funzionante il programma. Basterà premere "Invio" per terminare.''</font>
+
−
  Input s
+
  bo = True
−
 
+
−
  Copy primofile To "/tmp/audio.ogg"
+
End
−
  pl.Stop
 
−
  pl.Close
 
−
  Print "Termine programma !"
 
−
 
 
−
  '''End'''
 
  
  
Riga 152: Riga 203:
 
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.
 
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):
+
Per ottenere questo risultato si potrà adottare un codice come il seguente:
−
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
 
   Dim pl As MediaPipeline
 
   Dim pl As MediaPipeline
−
   Dim src1, flu1, con1, snk1 As MediaControl  
+
   Dim src, tee, que, flu, con1, snk1 As MediaControl  
−
   Dim src2, flu2, res2, con2, enc2, snk2 As MediaControl  
+
   Dim con2, enc2, snk2 As MediaControl
 
   Dim flt2 As MediaFilter
 
   Dim flt2 As MediaFilter
−
   Dim porta, primofile, s As String
+
   Dim porta, s As String
 +
 +
<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
 +
 
 +
<FONT Color=gray>' ''Parte comune:''</font>
 +
  src = New MediaControl(pl, "alsamidisrc")
 +
  src["ports"] = porta
 +
  flu = New MediaControl(pl, "fluiddec")
 +
  flu["synth-gain"] = 1.0
 +
 +
<FONT Color=gray>' ''Parte relativa alla duplicazione dei dati:''</font>
 +
  tee = New MediaControl(pl, "tee")
 +
  que = New MediaControl(pl, "queue")
 
    
 
    
−
  primofile = "/tmp/primofile"
+
<FONT Color=gray>' ''Parte ascolto in tempo reale dell'esecuzione Midi:''</font>
−
   
+
  con1 = New MediaControl(pl, "audioconvert")
 +
  snk1 = New MediaControl(pl, "autoaudiosink")
 +
  src.LinkTo(flu)
 +
  flu.LinkTo(tee)
 +
  tee.LinkTo(que)
 +
  que.LinkTo(con1)
 +
  con1.LinkTo(snk1)
 +
 +
<FONT Color=gray>' ''Parte memorizzazione dei dati su file audio wav:''</font>
 +
  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"] = "/tmp/audio.wav"
 +
  <FONT Color=#B22222>snk2["sync"] = True</font>
 +
  tee.LinkTo(con2)
 +
  con2.LinkTo(flt2)
 +
  flt2.LinkTo(enc2)
 +
  enc2.LinkTo(snk2)
 +
 +
  pl.play()
 +
 +
<FONT color=gray>' ''Utilizziamo la funzione "Input" per consentire il processo di conversione.''
 +
' ''L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."''</font>
 +
  Input s
 +
 +
  pl.Stop
 +
  pl.Close
 +
  Print "Termine programma !"
 +
 
 +
End
 +
 
 +
 
 +
===Ascoltare quanto eseguito con il dispositivo Midi esterno, mostrare un Monoscopio e generare in fine un file audio===
 +
Riprendendo il precednete codice, vi aggiungeremo l'effetto video del plug-in ''Monoscope'' di Gstreamer, che mostra appunto in una finestra un Monoscopio:
 +
Public Sub Main()
 +
 
 +
  Dim pl As MediaPipeline
 +
  Dim src, tee, que, flu, con1, snk1 As MediaControl
 +
  Dim con2, sco2, vid2, snk2 As MediaControl
 +
  Dim que3, con3, enc3, snk3 As MediaControl
 +
  Dim flt3 As MediaFilter
 +
  Dim porta, s As String
 +
 
  <FONT Color=gray>' ''Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0):''</font>
 
  <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"
+
  porta = "24:0"
 +
 
 +
  pl = New MediaPipeline
 
    
 
    
−
  pl = New MediaPipeline
+
<FONT Color=gray>' ''Parte comune:''</font>
 +
  src = New MediaControl(pl, "alsamidisrc")
 +
  src["ports"] = porta
 +
  flu = New MediaControl(pl, "fluiddec")
 +
  flu["synth-gain"] = 0.5
 +
 +
<FONT Color=gray>' ''Parte relativa alla duplicazione dei dati:''</font>
 +
  tee = New MediaControl(pl, "tee")
 +
  que = New MediaControl(pl, "queue")
 
    
 
    
−
  src1 = New MediaControl(pl, "alsamidisrc")
+
<FONT Color=gray>' ''Parte ascolto in tempo reale dell'esecuzione Midi:''</font>
−
  src1["ports"] = porta
+
  con1 = New MediaControl(pl, "audioconvert")
−
  flu1 = New MediaControl(pl, "fluiddec")
+
  snk1 = New MediaControl(pl, "autoaudiosink")
−
  flu1["synth-gain"] = 0.5
+
  src.LinkTo(flu)
−
  con1 = New MediaControl(pl, "audioconvert")
+
  flu.LinkTo(tee)
−
  snk1 = New MediaControl(pl, "autoaudiosink")
+
  tee.LinkTo(que)
−
  src1.LinkTo(flu1)
+
  que.LinkTo(con1)
−
  flu1.LinkTo(con1)
+
  con1.LinkTo(snk1)
−
  con1.LinkTo(snk1)
+
 
−
 
+
<FONT Color=gray>' ''Parte per mostrare il "Monoscopio":''</font>
−
  src2 = New MediaControl(pl, "alsamidisrc")
+
  con2 = New MediaControl(pl, "audioconvert")
−
  src2["ports"] = porta
+
  sco2 = New MediaControl(pl, "<FONT Color=#B22222>monoscope</font>")
−
  flu2 = New MediaControl(pl, "fluiddec")
+
  vid2 = New MediaControl(pl, "videoconvert")
−
  flu2["synth-gain"] = 0.5
+
  snk2 = New MediaControl(pl, "autovideosink")
−
  res2 = New MediaControl(pl, "audioresample")
+
  tee.LinkTo(con2)
−
  con2 = New MediaControl(pl, "audioconvert")
+
  con2.LinkTo(sco2)
−
  flt2 = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
+
  sco2.LinkTo(vid2)
−
  enc2 = New MediaControl(pl, "wavenc")
+
  vid2.LinkTo(snk2)
−
  snk2 = New MediaControl(pl, "filesink")
+
 
−
  snk2["location"] = primofile
+
<FONT Color=gray>' ''Parte memorizzazione dei dati su file audio wav:''</font>
−
  src2.LinkTo(flu2)
+
  que3 = New MediaControl(pl, "queue")
−
  flu2.LinkTo(res2)
+
  con3 = New MediaControl(pl, "audioconvert")
−
  res2.LinkTo(con2)
+
  flt3 = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
−
  con2.LinkTo(flt2)
+
  enc3 = New MediaControl(pl, "wavenc")
−
  flt2.LinkTo(enc2)
+
  snk3 = New MediaControl(pl, "filesink")
−
  enc2.LinkTo(snk2)
+
  snk3["location"] = "/tmp/audio.wav"
−
 
+
  <FONT Color=#B22222>snk2["sync"] = True</font>
−
  pl.play()
+
  tee.LinkTo(que3)
−
 
+
  que3.LinkTo(con3)
−
  <FONT Color=gray>' ''Consente di tenere funzionante il programma. Basterà premere "Invio" per terminare.''</font>
+
  con3.LinkTo(flt3)
−
  Input s
+
  flt3.LinkTo(enc3)
−
 
+
  enc3.LinkTo(snk3)
−
  Copy primofile To "/tmp/audio.wav"
+
 
−
  pl.Stop
+
  pl.play()
−
  pl.Close
+
−
  Print "Termine programma !"
+
  <FONT color=gray>' ''Utilizziamo la funzione "Input" per consentire il processo di conversione.''
−
 
+
' ''L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."''</font>
−
  '''End'''
+
  Input s
−
 
+
 +
  pl.Stop
 +
  pl.Close
 +
  Print "Termine programma !"
 +
 +
  End
  
  
  
 
=Note=
 
=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]]
+
[1] Vedi anche la pagina: [[Intercettare dati Midi grezzi da un dispositivo Midi esterno mediante il Componente gb.media]]
  
  

Versione attuale delle 18:53, 17 gen 2024

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, [Nota 1] 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 di ALSA) e il numero della porta del dispotivo Midi esterno che invia i dati Midi grezzi. Non v'è bisogno ovviamente di effettuare alcuna connessione mediante il comando "aconnect" di AlSA fra i Client ALSA interessati.

Per garantire la sincronicità fra quanto eseguito e dati salvati, evitando così ogni eventuale ritardo di memorizzazione/riproduzione audio nel file finale, è necessario impostare a "true", cioè al valore intero 1, la proprietà "sync" dell'elemento "filesink".


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, con, enc, snk As MediaControl 
 Dim flt As MediaFilter
 Dim porta, s As String

' Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0) :
 porta = "24:0"
  
 pl = New MediaPipeline
 
 src = New MediaControl(pl, "alsamidisrc")
 src["ports"] = porta 
 flu = New MediaControl(pl, "fluiddec")
 flu["synth-gain"] = 0.5
 con = New MediaControl(pl, "audioconvert")
 flt = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
 enc = New MediaControl(pl, "wavenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/audio.wav"
 snk["sync"] = True
  
 src.LinkTo(flu)
 flu.LinkTo(con)
 con.LinkTo(flt)
 flt.LinkTo(enc)
 enc.LinkTo(snk)
 
 pl.play()
 
' Utilizziamo la funzione "Input" per consentire il processo di conversione.
' L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."
 Input s
  
 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, con, enc, snk As MediaControl 
 Dim flt As MediaFilter
 Dim porta, s As String
  
' Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0) :
 porta = "24:0"
 
 pl = New MediaPipeline
 
 src = New MediaControl(pl, "alsamidisrc")
 src["ports"] = 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, "lamemp3enc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/audio.mp3"
 snk["sync"] = True
 
 src.LinkTo(flu)
 flu.LinkTo(con)
 con.LinkTo(flt)
 flt.LinkTo(enc)
 enc.LinkTo(snk)
 
 pl.play()
 
' Utilizziamo la funzione "Input" per consentire il processo di conversione.
' L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."
 Input s

 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, con, enc, mux, snk As MediaControl 
 Dim flt As MediaFilter
 Dim porta, s As String

' Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0) :
 porta = "24:0"
  
 pl = New MediaPipeline
 
 src = New MediaControl(pl, "alsamidisrc")
 src["ports"] = porta 
 flu = New MediaControl(pl, "fluiddec")
 flu["synth-gain"] = 0.5
 con = New MediaControl(pl, "audioconvert")
 flt = New MediaFilter(pl, "audio/x-raw,channels=2")
 enc = New MediaControl(pl, "vorbisenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/audio.ogg"
 snk["sync"] = True

 src.LinkTo(flu)
 flu.LinkTo(con)
 con.LinkTo(flt)
 flt.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

 pl.play()

' Utilizziamo la funzione "Input" per consentire il processo di conversione.
' L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."
 Input s

 pl.Stop
 pl.Close
 Print "Termine programma !"

End


Generare un file audio AAC dai dati Midi grezzi registrati

Mostriamo un semplice esempio pratico, nel quale si genererà un file audio AAC dai dati Midi grezzi intercettati da un dispositivo Midi esterno: 

Private bo As Boolean


Public Sub Main()
 
 Dim pl As MediaPipeline
 Dim src, flu, con, faa, snk As MediaControl 
 Dim flt1, flt2 As MediaFilter
 Dim porta, s As String

' Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0) :
 porta = "24:0"
  
 pl = New MediaPipeline
 
 src = New MediaControl(pl, "alsamidisrc")
 src["ports"] = porta 
 flu = New MediaControl(pl, "fluiddec")
 flu["synth-gain"] = 0.5
 con = New MediaControl(pl, "audioconvert")
 flt1 = New MediaFilter(pl, "audio/x-raw,rate=44100,channels=2,format=S16LE,depth=16")
 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/audio.aac"
 snk["sync"] = True
  
 src.LinkTo(flu)
 flu.LinkTo(con)
 con.LinkTo(flt)
 flt1.LinkTo(faa)
 faa.LinkTo(flt2)
 flt2.LinkTo(snk)

 pl.play()

 While Not bo
   Write "\rTempo Trascorso: " & Str(Time(0, 0, 0, pl.Position * 1000))
   Wait 0.01
 Wend

 pl.Stop
 pl.Close
 Print "Termine programma !"

End


Public Sub Application_Read()  ' Questo Evento viene sollevato, quando si preme sul tasto "Invio" della tastiera

 bo = True

End


Ascoltare quanto eseguito con il dispositivo Midi esterno e generare in fine 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: 

Public Sub Main()
 
 Dim pl As MediaPipeline
 Dim src, tee, que, flu, con1, snk1 As MediaControl 
 Dim con2, enc2, snk2 As MediaControl
 Dim flt2 As MediaFilter
 Dim porta, s As String

' Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0):
 porta = "24:0"

 pl = New MediaPipeline
 
' Parte comune:
 src = New MediaControl(pl, "alsamidisrc")
 src["ports"] = porta
 flu = New MediaControl(pl, "fluiddec")
 flu["synth-gain"] = 1.0

' Parte relativa alla duplicazione dei dati:
 tee = New MediaControl(pl, "tee")
 que = New MediaControl(pl, "queue")
  
' Parte ascolto in tempo reale dell'esecuzione Midi:
 con1 = New MediaControl(pl, "audioconvert")
 snk1 = New MediaControl(pl, "autoaudiosink")
 src.LinkTo(flu)
 flu.LinkTo(tee)
 tee.LinkTo(que)
 que.LinkTo(con1)
 con1.LinkTo(snk1)

' Parte memorizzazione dei dati su file audio wav:
 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"] = "/tmp/audio.wav"
 snk2["sync"] = True
 tee.LinkTo(con2)
 con2.LinkTo(flt2)
 flt2.LinkTo(enc2)
 enc2.LinkTo(snk2)

 pl.play()

' Utilizziamo la funzione "Input" per consentire il processo di conversione.
' L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."
 Input s

 pl.Stop
 pl.Close
 Print "Termine programma !"
 
End


Ascoltare quanto eseguito con il dispositivo Midi esterno, mostrare un Monoscopio e generare in fine un file audio

Riprendendo il precednete codice, vi aggiungeremo l'effetto video del plug-in Monoscope di Gstreamer, che mostra appunto in una finestra un Monoscopio: 

Public Sub Main()
 
 Dim pl As MediaPipeline
 Dim src, tee, que, flu, con1, snk1 As MediaControl 
 Dim con2, sco2, vid2, snk2 As MediaControl
 Dim que3, con3, enc3, snk3 As MediaControl
 Dim flt3 As MediaFilter
 Dim porta, s As String

' Imposta il numero identificativo, come Client ALSA, e della porta del dispositivo Midi esterno (ad esempio 24:0):
 porta = "24:0"
 
 pl = New MediaPipeline
  
' Parte comune:
 src = New MediaControl(pl, "alsamidisrc")
 src["ports"] = porta
 flu = New MediaControl(pl, "fluiddec")
 flu["synth-gain"] = 0.5

' Parte relativa alla duplicazione dei dati:
 tee = New MediaControl(pl, "tee")
 que = New MediaControl(pl, "queue")
  
' Parte ascolto in tempo reale dell'esecuzione Midi:
 con1 = New MediaControl(pl, "audioconvert")
 snk1 = New MediaControl(pl, "autoaudiosink")
 src.LinkTo(flu)
 flu.LinkTo(tee)
 tee.LinkTo(que)
 que.LinkTo(con1)
 con1.LinkTo(snk1)
 
' Parte per mostrare il "Monoscopio":
 con2 = New MediaControl(pl, "audioconvert")
 sco2 = New MediaControl(pl, "monoscope")
 vid2 = New MediaControl(pl, "videoconvert")
 snk2 = New MediaControl(pl, "autovideosink")
 tee.LinkTo(con2)
 con2.LinkTo(sco2)
 sco2.LinkTo(vid2)
 vid2.LinkTo(snk2)
 
' Parte memorizzazione dei dati su file audio wav:
 que3 = New MediaControl(pl, "queue")
 con3 = New MediaControl(pl, "audioconvert")
 flt3 = New MediaFilter(pl, "audio/x-raw,channels=2,format=S16LE")
 enc3 = New MediaControl(pl, "wavenc")
 snk3 = New MediaControl(pl, "filesink")
 snk3["location"] = "/tmp/audio.wav"
 snk2["sync"] = True
 tee.LinkTo(que3)
 que3.LinkTo(con3)
 con3.LinkTo(flt3)
 flt3.LinkTo(enc3)
 enc3.LinkTo(snk3)
 
 pl.play()

' Utilizziamo la funzione "Input" per consentire il processo di conversione.
' L'esecuzione viene interrotta, inserendo nella Console/Terminale un carattere dalla tastiera e premendo il tasto "Invio"."
 Input s

 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


Riferimenti

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