Trasformare un'immagine in ascii art mediante il Componente gb.media

Da Gambas-it.org - Wikipedia.

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