Differenze tra le versioni di "Fondere due immagini in una sola"

Versione delle 14:22, 14 gen 2012

' Gambas class file


Public Sub Button1_Click()

Dim x, c, b As New Image
Dim a As New Picture


' viene caricata la prima immagine:
 c = c.Load("Immagine1.gif")
 
' viene resa manipolabile:
 paint.Begin(c)
' viene ruotata specularmente sull'asse verticale:
 c.Mirror(True, False)
' viene salvata:
 c.Save("/tmp/nuovoFile.png")


' viene caricata la seconda immagine da fondere con la prima.
' Si sceglie il formato .png, se l'immagine aveva lo sfondo “trasparente”,
' poiché questo è l'unico formato disponibile a conservare la trasparenza del fondo:
 x = x.Load("/tmp/nuovoFile.png")
' viene resa manipolabile:
 paint.Begin(x)

' viene caricata la seconda immagine da fondere con la prima.
 b = b.Load("Immagine2.png")
 
' viene inserita (e quindi fusa insieme) la seconda immagine all'interno della prima:
 paint.DrawImage(b, 100, 200, 100, 50)
' ...viene inserito anche del testo:
 paint.DrawText("Testo qualsiasi", 10, 10)
' viene ruotata specularmente sull'asse orizzontale:
 x.Mirror(False, True)
 
 ' la prima immagine (ormai fusa con la seconda) viene trasformata in una Picture...
 a = x.Picture
 
 ' ...e mostrata sul Form in una PictureBox:
 PictureBox1.Picture = a

End