Non è la prima volta che uso questo tipo di meccanismo ma il mio problema è il seguente:
Volovo fare un programma per il 3D in cui ci sono 2 PictureBox
LeftPic (Contiene l'immagine di sinistra)
RightPic (Contiene l'immagine di destra nooo...ma dai)
Il fatto è che quando i filtri rosso e ciano alle due immagini:
codice:
Sub ApplyFilters()
Dim lX As Long, lY As Long
Dim rX As Long, rY As Long
Dim lRed As Integer, lGreen As Integer, lBlue As Integer
Dim rRed As Integer, rGreen As Integer, rBlue As Integer
For lX = 0 To LeftPic.Width 'Step 1
For lY = 0 To LeftPic.Height 'Step 1
lRed = Sqr((LeftPic.Point(lX, lY) Mod 256) ^ 2)
lGreen = (LeftPic.Point(lX, lY) Mod 65536) / 256
lBlue = LeftPic.Point(lX, lY) / 65536
LeftPic.PSet (lX, lY), RGB(lRed, 0, 0)
Next lY
Next lX
LeftPic.Picture = LeftPic.Image
LeftPic.Refresh
For rX = 0 To RightPic.Width 'Step 1
For rY = 0 To RightPic.Height 'Step 1
rRed = Sqr((RightPic.Point(rX, rY) Mod 256) ^ 2)
rGreen = (RightPic.Point(rX, rY) Mod 65536) / 256
rBlue = RightPic.Point(rX, rY) / 65536
RightPic.PSet (rX, rY), RGB(0, rGreen, rBlue)
Next rY
Next rX
RightPic.Picture = RightPic.Image
RightPic.Refresh
End Sub
Una volta applicati i filtri PUF l'immagine ritorna come prima
PS
ho ovviamente dichiarato
,
ci mancherebbe
