Visualizza wikitesto di Individuare i valori RGBA dei pixel di una immagine

Per individuare i valori RGBA dei pixel di una immagine, possiamo adottare alcune modalità.


==Uso delle sole risorse di Gambas==
===Mediante la Classe ''ColorInfo''===
Si rinvia alla seguente pagina: [[Uso della classe ColorInfo]]

===Mediante la Classe ''Color''===
<SUP>&#091;[[#Note|nota 1]]&#093;</sup>
 Public Sub Button1_Click()
  
   Dim im As Image
   Dim px, n As Integer
   
   im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")
   
   For n = 0 To im.Pixels.Max
     px = im.Pixels[n]
     Print n, "Pixel: "; Hex(px, 8)
     Print Null, Hex(Color[px].Alpha, 2), Hex(Color[px].Red, 2), Hex(Color[px].Green, 2), Hex(Color[px].Blue, 2)
     Print
   Next
   
 End
oppure distinguendo i quattro valori che compongono un pixel di formato RGBA:
 Public Sub Button1_Click()
  
   Dim im As Image
   Dim px, n As Integer
   
   im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")
   
   For n = 0 To im.Pixels.Max
     px = im.Pixels[n]
     Print n, "Pixel: "; Hex(px, 8)
     Print Null, Hex(Shr(px, 24) And &FF, 2), Hex(Shr(px, 16) And &FF, 2), Hex(Shr(px, 8) And &FF, 2), Hex(px And &FF, 2)
     Print
   Next
   
 End

===Penetrando nell'area di memoria dell'Oggetto ''Image''===
Penetrando nell'area di memoria dell'Oggetto ''Image'', si dereferenzia la sua Proprietà ".Data" e si legge così ogni byte-dato:
 Public Sub Button1_Click()
  
   Dim im As Image
   Dim i, n As Integer
   
   im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")
   
   n = Len(bmp.Format)
   
   For i = 0 To (im.W * im.H * n) - 1
     If i Mod n = 0 Then Print
     Print i, Hex(Byte@(im.Data + i), 2)
     Wait 0.3
   Next
   
 End


==Individuare i valori RGBA dei pixel di una immagine mediante le risorse del API di SDL2==
Con alcune risorse del API di ''SDL2'' è possibile conoscere i valori RGBA dei pixel di una immagine.

Per poter fruire in Gambas delle risorse di ''SDL'', è necessario installare e richiamare le seguenti librerie dinamiche condivise:
* "''libSDL2-2.0.so.0.3000.3'' "
* "''libSDL2_image-2.0.so.0.800.2'' "


Mostriamo un semplice esempio pratico:
 Library "<FONT Color=blue>libSDL2-2.0:0.3000.3</font>"
  
 Public Struct SDL_Rect
   x As Integer
   y As Integer
   w As Integer
   h As Integer
 End Struct
 
 Public Struct SDL_Surface
   flags As Integer
   format As Pointer
   w As Integer
   h As Integer
   pitch As Integer
   pixels As Pointer
   userdata As Pointer
   locked As Integer
   lock_data As Pointer
   clip_rect As Struct SDL_Rect
   map As Pointer
   refcount As Integer
 End Struct
 
 Public Struct SDL_PixelFormat
   format As Integer
   palette As Pointer
   BitsPerPixel As Byte
   BytesPerPixel As Byte
   Rmask As Integer
   Gmask As Integer
   BMask As Integer
   AMask As Integer
   Rloss As Byte
   Gloss As Byte
   Bloss As Byte
   Aloss As Byte
   Rshift As Byte
   Gshift As Byte
   Bshift As Byte
   Ashift As Byte
   refcount As Integer
   next_ As Pointer
 End Struct
 
 Private Const SDL_INIT_VIDEO As Integer = &20
 
 <FONT Color=gray>' ''int SDL_Init(Uint32 flags)''
 ' ''Initialize the SDL library.''</font>
 Private Extern SDL_Init(flags As Integer) As Integer
 
 <FONT Color=gray>' ''void SDL_Quit(void)''
 ' ''Clean up all initialized subsystems.''</font>
 Private Extern SDL_Quit()
 
 
 Library "<FONT Color=red>libSDL2_image-2.0:0.800.2</font>"
 
 <FONT Color=gray>' ''SDL_Surface * IMG_Load(const char *file)''
 ' ''Load an image from an SDL data source.''</font>
 Private Extern IMG_Load(_file As String) As SDL_Surface
 
 
 Public Sub Main()
  
   Dim immagine As String
   Dim immago As SDL_Surface
   Dim pxfmt As SDL_PixelFormat
   Dim dati As Pointer
   Dim i As Integer
   Dim r, g, b, a As Byte
   
   immagine = "<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>"
   
   SDL_Init(SDL_INIT_VIDEO)
   
 <FONT Color=gray>' ''Carica un'immagine:''</font>
   immago = IMG_Load(immagine)
   If IsNull(immago) Then Error.Raise("Impossibile caricare un'immagine !")
   
 <FONT Color=gray>' ''Assegna il membro di tipo Puntatore della Struttura "SDL_Surface"  alla variabile di tipo della Struttura "SDL_PixelFormat", affinché possa essere utilizzato comodamente il membro ".BytesPerPixel" della predetta Struttura "SDL_PixelFormat":''</font>
   pxfmt = immago.format
   Print "Formato immagine: "; pxfmt.BitsPerPixel; " bit per pixel"
   
   dati = immago.pixels
   
   For i = 0 To (imago.w * immago.h * (pxfmt.BitsPerPixel / 8)) - 1 Step pxfmt.BitsPerPixel / 8
     r = Byte@(dati + i)
     g = Byte@(dati + i + 1)
     b = Byte@(dati + i + 2)
     Select Case pxfmt.BitsPerPixel
       Case 32
         a = Byte@(dati + i + 3)
         Print "r: "; Hex(r, 2), i; "\ng: "; Hex(g, 2); "\nb: "; Hex(b, 2); "\na: "; Hex(a, 2)
       Case 24
         Print "r: "; Hex(b, 2), i; "\ng: "; Hex(g, 2); "\nb: "; Hex(r, 2)
     End Select
     Print "\n"
     Wait 0.3
   Next
      
 <FONT Color=gray>' ''Libera la libreria "SDL2" e va in chiusura:''</font>
   SDL_Quit()
   
 End



=Note=
[1] La modalità è stata suggerita dal membro [http://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi]