Comunidad Gambas-es

Simpático efecto caleidoscópico de una imagen PNG con el Componente gb.media

vuott 15-09-2020, 17:14

Para obtener un efecto caleidoscópico de una imagen de formato PNG con los recursos del Componente gb.media, es necesario utilizar el elemento "kaleidoscope" de la libreria de Gstreamer.

Ejemplo práctico muy sencillo:

Código:
Private tb As ToggleButton

Private dr As DrawingArea

Private imm As String

Private pl As MediaPipeline

Public Sub _new()

  Dim w As Integer

  Dim h As Integer

   imm = "/ruta/del/archivo/imagen.png"

   w = ImageStat(imm).Width

   h = ImageStat(imm).Height

   With Me

     .W = w + 200

     .H = w + 100

   End With

   With tb = New ToggleButton(Me) As "Tasto"

     .X = Me.w - 30

     .Y = 10

     .W = 30

     .H = 40

     .Text = "Start"

   End With

   With dr = New DrawingArea(Me)

     .X = 0

     .Y = 0

     .W = w

     .H = h

   End With

End

Public Sub Form_Open()

  Dim src, pdc, kal, con1, frz, con2, snk As MediaControl

   pl = New MediaPipeline

   src = New MediaControl(pl, "filesrc")

   src["location"] = imm

   pdc = New MediaControl(pl, "pngdec")

   kal = New MediaControl(pl, "kaleidoscope")

   kal["angle"] = Rad(45)

   kal["angle2"] = Rad(140)

   kal["sides"] = 10

   con1 = New MediaControl(pl, "videoconvert")

   frz = New MediaControl(pl, "imagefreeze")

   con2 = New MediaControl(pl, "videoconvert")

   snk = New MediaControl(pl, "xvimagesink")

   src.LinkTo(pdc)

   pdc.LinkTo(kal)

   kal.LinkTo(con1)

   con1.LinkTo(frz)

   frz.LinkTo(con2)

   con2.LinkTo(snk)

   snk.SetWindow(dr)

End

Public Sub Tasto_Click()          ' _

 If tb.Value Then

   pl.Play()

   tb.Text = "Stop"

 Else

   pl.Stop()

   pl.Close()

   Me.Close

 Endif

End

Aplicaciones/Fragmentos de Código Respuestas 2

GAMBAS - ARDUINO Grabador de EEPROM

seta43 15-09-2020, 09:34

He desempolvado el viejo ZX Spectrum y he visto algún artículo sobre como realizar cartuchos ROM para instalar en el Interface 2.
http://trastero.speccy.org/cosas/droy/ca...chos_s.htm
Yo poseo muchas memorias EEPROM procedentes de BIOS de placas base estropeadas.
En este caso voy a utilizar unas EEPROM de 256 Kytes (49F002 o 39SF020), por lo cual se conseguirán 16 páginas de 16 Kbytes, que serán las que sustituyan a la ROM original del Spectrum.
[Imagen: ardrom9.png]