Differenze tra le versioni di "Trasformare un'immagine in ascii art mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
Riga 11: | Riga 11: | ||
Dim filevideo As String | Dim filevideo As String | ||
Dim tm As Date | Dim tm As Date | ||
− | + | ||
− | filevideo = "<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>" | + | <FONT Color=gray>' ''Sembra funzionare solo con i file JPG !''</font> |
+ | filevideo = "<FONT Color=darkgreen>''/percorso/del/file/immagine.jpg''</font>" | ||
pl = New MediaPipeline AS "PLine" | pl = New MediaPipeline AS "PLine" |
Versione delle 18:42, 12 ago 2024
Usando il plugin "aatv" di GStreamer, i file immagini possono essere trasformati in ascii art.
Mostriamo un semplice esempio con applicazione a riga di comando:
Private bo As Boolean Public Sub Main() Dim pl As MediaPipeline Dim src, dcb, aa, con, png, snk As MediaControl Dim filevideo As String Dim tm As Date ' Sembra funzionare solo con i file JPG ! filevideo = "/percorso/del/file/immagine.jpg" pl = New MediaPipeline AS "PLine" src = New MediaControl(pl, "filesrc") src["location"] = filevideo dcb = New MediaControl(pl, "decodebin") aa = New MediaControl(pl, "aatv") con = New MediaControl(pl, "videoconvert") png = New MediaControl(pl, "pngenc") snk = New MediaControl(pl, "filesink") snk["location"] = "/tmp/asciiart.png" src.LinkTo(dcb) dcb.LinkLaterTo(aa) aa.LinkTo(con) con.LinkTo(png) png.LinkTo(snk) pl.Play While Not bo Wait 0.01 Wend pl.Stop pl.Close End Public Sub PLine_End() bo = True End