Differenze tra le versioni di "Individuare i colori dei pixel di una immagine"
Riga 115: | Riga 115: | ||
'''End''' | '''End''' | ||
− | Individuato l'indirizzo dell'area di memoria riservata contenente i valori dei pixel della variabile di tipo ''Image'', dovrà essere dereferenziato come ''Puntatore'' ad un '' | + | Individuato l'indirizzo dell'area di memoria riservata contenente i valori dei pixel della variabile di tipo ''Image'', dovrà essere dereferenziato come ''Puntatore'' ad un ''Intero''. |
Mostriamo un esempio, nel quale sarà creata una semplice immagine di 2x2 pixel di colore rosso. Si provvederà mediante la procedura descritta a mostrare i dati grezzi dell'immagine, ossia i valori dei colori dei pixel. | Mostriamo un esempio, nel quale sarà creata una semplice immagine di 2x2 pixel di colore rosso. Si provvederà mediante la procedura descritta a mostrare i dati grezzi dell'immagine, ossia i valori dei colori dei pixel. | ||
Riga 123: | Riga 123: | ||
Dim p1, p2 As Pointer | Dim p1, p2 As Pointer | ||
Dim st As Stream | Dim st As Stream | ||
− | Dim j | + | Dim j As Byte |
<FONT Color=gray>' ''Creiamo ed istanziamo la variabile di tipo "Image":''</font> | <FONT Color=gray>' ''Creiamo ed istanziamo la variabile di tipo "Image":''</font> | ||
Riga 136: | Riga 136: | ||
<FONT Color=gray>' ''Viene finalmente dereferenziato il Puntatore all'area di memoria contenente i valori dei colori dei pixel dell'immagine:''</font> | <FONT Color=gray>' ''Viene finalmente dereferenziato il Puntatore all'area di memoria contenente i valori dei colori dei pixel dell'immagine:''</font> | ||
− | For j = 0 To | + | For j = 0 To 3 |
− | + | Print j;; Hex(Int@(p2)) | |
− | p2 = p2 + | + | <FONT Color=gray>' ''Si saltano 4 byte, poiché il colore di ogni pixel è individuato da 32bit:''</font> |
+ | p2 = p2 + 4 | ||
Next | Next | ||
Versione delle 07:41, 22 lug 2015
Per individuare i colori dei pixel di una immagine, sono possibili almeno tre modalità.
Si raccomanda la lettura - per le informazioni generali sulla gestione dei pixel in Gambas - della seguente pagina della documentazione ufficiale: Image Management In Gambas.
Indice
con la proprietà .Pixels della Classe Image
La proprietà .Pixels della Classe Image ritorna un vettore di tipo Integer[] contenente in ciascun elemento il valore (dunque a 32 bit) del colore di un pixel dell'immagine.
Esempio:
Public Sub Form_Open() Dim im As Image Dim i As Integer im = Image.Load("/percorso/del/file/immagine") For i = 0 To im.Pixels.Max ' Mostra il valore del colore in rappresentazione esadecimale: Print Hex(im.Pixels[i], 8) Next End
con la proprietà .Data della Classe Image ed i Memory Stream
La proprietà .Data della Classe Image ritorna un Puntatore ai dati della variabile di tipo Image. Si potrà, quindi, per mezzo dei Memory Stream leggere all'interno dell'area puntata dal predetto Puntatore.
Sarà possibile altresì scrivervi modificando quindi il colore di uno o di più pixel dell'immagine.
Nell'esempio che segue abbiamo una semplice immagine formata da 2 x 2 pixel dei seguenti colori: blu, giallo, rosso e verde. Si procederà con il vedere quei quattro pixel e cambiando, poi, il colore del pixel rosso nel colore blu:
Public Sub Form_Open() With PictureBox1 .X = 50 .Y = 50 .W = 40 .H = 40 .Stretch = True End With End Public Sub Button1_Click() Dim im As Image Dim st As Stream Dim fo, b As Byte Dim j As Integer Dim s As String im = Image.Load("/percorso/del/file/immagine") fo = Len(im.Format) ' Viene dereferenziato il "Puntatore", mostrando così tutti i valori dei colori dei pixel della variabile immagine: st = Memory im.Data For Read Write For j = 0 To (im.H * im.W * fo) - 1 ' La dimensione in byte effettiva di un'immagine si ottiene moltiplicando i pixel per la quantità di byte che compongono un singolo pixel (formato dei pixel) Read #st, b If j Mod 4 = 0 Then Print "------------------" Print j;; b;; Hex(b, 2) Next Print "------------------" ' Viene modificato il colore del pixel che occupa 4 byte a partire dal 9° byte: Seek #st, 8 ' Viene impostato il colore blu (se il formato è diverso dal "BGR", allora il primo byte è relativo al valore "alfa" !): s = Right("FF0000FF", fo * 2) Write #st, Val("&" & s) As Integer ' Vengono nuovamente letti i valori dei colori dopo la modifica del terzo pixel: Seek #st, 0 For j = 0 To (im.H * im.W * fo) - 1 Read #st, b If j Mod 4 = 0 Then Print "------------------" Print j;; b;; Hex(b, 2) Next st.Close ' Mostra l'immagine come modificata: PictureBox1.Picture = im.Picture End
puntando all'area di memoria della variabile Image
Nel paragrafo precedente abbiamo visto come Gambas mediante la proprietà .Data della Classe Image consenta di puntare alla sub-area di memoria di una variabile di tipo Image, e di leggere i valori corrispondenti ai colori dei pixel dell'immagine.
L'accesso a tale sub-area di memoria dell'area principale di memoria di una variabile di tipo Image può essere effettuato anche direttamente mediante i Puntatori e la dereferenzianzione dei medesimi.
Sappiamo, come già detto, che i valori dei colori dei pixel di una variabile di tipo Image sono contenuti in una specifica area di memoria riservata il cui indirizzo è indicato al 16° byte dell'area di memoria principale della predetta variabile di tipo Image.
Mostriamo un esempio pratico, nel quale è possibile vedere il valore dell'indirizzo dell'area di memoria contenente i valori dei pixel della variabile di tipo Image appositamente creata:
Public Sub Form_Open() Dim im As Image Dim p As Pointer Dim st As Stream Dim j, b As Byte im = New Image(2,2, Color.Red) p = Object.Address(im) st = Memory p For Read For j = 0 To 23 Read #st, b Print j;; Hex(b) Next st.Close End
Individuato l'indirizzo dell'area di memoria riservata contenente i valori dei pixel della variabile di tipo Image, dovrà essere dereferenziato come Puntatore ad un Intero.
Mostriamo un esempio, nel quale sarà creata una semplice immagine di 2x2 pixel di colore rosso. Si provvederà mediante la procedura descritta a mostrare i dati grezzi dell'immagine, ossia i valori dei colori dei pixel.
Public Sub Form_Open() Dim im As Image Dim p1, p2 As Pointer Dim st As Stream Dim j As Byte ' Creiamo ed istanziamo la variabile di tipo "Image": im = New Image(2,2, Color.Red) ' Otteniamo innanzitutto un Puntatore all'area di memoria dell'immagine appena crata": p1 = Object.Address(im) ' Accediamo all'area di memoria contenente i valori dei colori dei pixel dell'immagine, ' dereferenziando il suo Puntatore presente a cominciare dal 16° byte dell'area di memoria principale: p2 = Pointer@(p1 + 16) ' Viene finalmente dereferenziato il Puntatore all'area di memoria contenente i valori dei colori dei pixel dell'immagine: For j = 0 To 3 Print j;; Hex(Int@(p2)) ' Si saltano 4 byte, poiché il colore di ogni pixel è individuato da 32bit: p2 = p2 + 4 Next End
individuando il colore di ciascun pixel mediante le sue coordinate x ed y
Questa modalità prevede l'individuazione del colore di ciascun pixel dell'immagine identificandolo attraverso le sue coordinate x ed y con la sintassi:
Image[x, y]
Esempio:
Public Sub Form_Open() Dim x, y As Byte Dim im As Image im = Image.Load("/percorso/del/file/immagine") For x = 0 To im.W - 1 For y = 0 To im.h - 1 Print Hex$(im[x, y], 6) Next Next ' Volendo usare un solo ciclo, potremo anche fare così, impostando in un vettore le coordinate dei pixel dell'immagine: Dim vett As Byte[] = [0, 0, 1, 1, 0, 1, 0, 1] Dim j As Byte Dim im As Image im = Image.Load("/percorso/del/file/immagine") For j = 0 To im.W * im.H - 1 Print Hex$(im[vett[j], vett[j + 4]], 6) Next End
Per analogia con questa modalità segnaliamo anche la seguente pagina della WIKI.