Differenze tra le versioni di "Trasformare un'immagine in ascii art mediante il Componente gb.media"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Usando il plugin "aatv" di GStreamer, i file immagini possono essere trasformati in ''[https://it.wikipedia.org/wiki/ASCII_art ascii art]''. Mostriamo un semplice esempio con...")
 
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
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"
Riga 33: Riga 34:
 
   pl.Play
 
   pl.Play
 
   
 
   
−
   Repeat <FONT Color=gray>' ''Finché la durata del video non viene rilevata, il ciclo continua''</font>
+
   While Not bo
 
     Wait 0.01
 
     Wait 0.01
−
   Until pl.Duration > 0.00
+
   Wend
−
  Print "Durata del video: "; Time(0, 0, 0, pl.Duration * 1000)
 
−
  tm = Now
 
−
  Repeat
 
−
    Write "\r\e[0mTempo trascorso:  \e[31m" & Str(Time(0, 0, 0, DateDiff(tm, Now, gb.Millisecond)))
 
−
    Wait 0.01
 
−
  Until DateDiff(tm, Now, gb.Millisecond) >= (pl.Duration * 1000)
 
 
   
 
   
 
   pl.Stop
 
   pl.Stop
 
   pl.Close
 
   pl.Close
 +
 +
End
 +
 +
 +
Public Sub PLine_End()
 +
 +
  bo = True
 
   
 
   
 
  End
 
  End

Versione attuale delle 18:44, 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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Trasformare_un%27immagine_in_ascii_art_mediante_il_Componente_gb.media&oldid=38882"