Individuare il colore di un determinato pixel

Mostriamo di seguito un paio di modalità per individuare il colore di un determinato pixel di un'immagine.

Uso delle sole risorse di Gambas

Volendo utilizzare le sole risorse di Gambas, si potranno adottare un paio di modalità.

Individuare le coordinate del pixel mediante la Classe "Image"

Si potrà individuare il pixel dell'immagine impostando le sue coordinate x,y con la Classe "Image".

Public Sub Button1_Click()

 Dim im As Image
 Dim nCol As Integer 

 im = Image.Load("/percorso/del/file/immagine")

' Individueremo il pixel dell'immagine mediante le sue coordinate x ed y (che ovviamente dovranno essere specificate):
 nCol = im[x, y]

 Print "Il numero decimale del colore del pixel è: "; nCol, "&h"; Hex(nCol, 8)

End

Verrà restituito il numero decimale del colore del pixel, determinato dalle coordinate x ed y all'interno dell'immagine.

Individuare il colore di un pixel di un'immagine cliccandoci sopra con il mouse

Mostriamo un esempio nel quale, cliccando su un'immagine inserita in una PictureBox, viene mostrato in una TextLabel il colore del pixel, nonché in console il corrispondente numero:

Private im As Image
Private PictureBox1 As PictureBox
Private label1 As Label
 

Public Sub Form_Open()
 
' Carichiamo l'immagine in una variabile di tipo "Image":
 im = Image.Load("/percorso/del/file/immagine")
 
 With Me
   .W = im.W
   .H = im.H + 50
   .Center
 End With
' Rendiamo la "PictureBox" delle medesime dimensioni del "Form" principale:
 With PictureBox1
   .X = 0
   .Y = 0
   .W = im.W
   .H = im.H
   .Image = im
 End With
 With label1 = New Label(Me)
   .X = 0
   .Y = PictureBox1.H + 10
   .W = Me.W
   .H = 35
 End With

End


Public Sub PictureBox1_MouseDown()
 
 Dim nCol As Integer

' Individuiamo le coordinate x ed y del puntatore del mouse, quando clicchiamo nella "PictureBox" sull'immagine:
 nCol = im[Mouse.X, Mouse.Y]
 
' Quindi otteniamo il numero del colore del pixel cliccato con il mouse...
 Print "Il numero del colore del pixel cliccato è: "; nCol, "&h"; Hex(nCol, 8)

' ...e mostriamo il suo colore nella "Label" posta sul Form:
 Label1.Background = nCol
 
End

Uso delle risorse della libreria Libgd

Si potranno anche utilizzare le risorse del API di GD.

Per poter fruire in Gambas delle risorse della libreria GD, è necessario installare e richiamare la libreria condivisa: "libgd.so.3.0.11 ".

Mostriamo un semplice esempio:

Library "libgd:3.0.11"

' gdImagePtr gdImageCreateFromFile (const char *filename)
' Read an image file of any supported.
Private Extern gdImageCreateFromFile(filename As String) As Pointer

' int gdImageGetTrueColorPixel (gdImagePtr im, int x, int y)
' Gets a pixel color always as truecolor value.
Private Extern gdImageGetTrueColorPixel(im As Pointer, x As Integer, y As Integer) As Integer

' void gdImageDestroy (gdImagePtr im)
Private Extern gdImageDestroy(im As Pointer)


Public Sub Main()
 
 Dim imago as Pointer
 Dim i As Integer

 imago = gdImageCreateFromFile("/percorso/del/file/immagine")
 If imago == 0 Then Error.Raise("Errore !")
  
' Individua il pixel ad esempio alle coordinate x=20, y=20 dell'immagine:
 i = gdImageGetPixel(imago, 20, 20)
  
 Print "Il colore del pixel è: "; Hex(i, 6)
  
' Va in chiusura:
 gdImageDestroy(imago)
   
End

Vedere: https://libgd.github.io/manuals/2.3.0/files/preamble-txt.html

Uso delle risorse della libreria SDL2

Si potrà fare uso anche delle risorse del API del sistema SDL

Per poter fruire in Gambas delle risorse di SDL, è necessario installare e richiamare le seguenti librerie condivise:

• "libSDL2-2.0.so.0.3000.7 "
• "libSDL2_image-2.0.so.0.800.2 "

Mostriamo un semplice esempio:

Library "libSDL2-2.0:0.3000.7"

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 = 32

' int SDL_Init(Uint32 flags)
' Initializes the SDL library.
Private Extern SDL_Init(flags As Integer) As Integer

' void SDL_Quit(void)
' Clean up all initialized subsystems.
Private Extern SDL_Quit()


Library "libSDL2_image-2.0:0.800.2"

' SDL_Surface * IMG_Load(const char *file)
' Load an image from an SDL data source.
Private Extern IMG_Load(_file As String) As SDL_Surface


Public Sub Main()
 
 Dim x, y As Integer
 Dim imago As SDL_Surface
 Dim pxfmt As SDL_PixelFormat
 Dim dati As Pointer
 Dim r, g, b, a As Byte
 
 SDL_Init(SDL_INIT_VIDEO)
  
 imago = IMG_Load("/percorso/del/file/immagine")
 If IsNull(imago) Then Error.Raise("Errore nel caricamento del file immagine!")
  
 pxfmt = imago.format
 Print "Formato immagine: "; pxfmt.BitsPerPixel; " bit per pixel"
  
' Imposta un pixel, di cui conoscere i colori RGBA costituenti:
 x = 100
 y = 39
 
 dati = imago.pixels
 dati += (pxfmt.BitsPerPixel \ 4) * (x + imago.w * y)
 
 Print Hex(Int@(dati), 8)
 r = Byte@(dati)
 g = Byte@(dati + 1)
 b = Byte@(dati + 2)
 a = Byte@(dati + 3)
 Print "r: "; Hex(r, 2); "\ng: "; Hex(g, 2); "\nb: "; Hex(b, 2); "\na: "; Hex(a, 2); 
 
 SDL_Quit()
  
End

Note

[1] Per analogia di argomento si segnala anche: Individuare i colori dei pixel di una immagine.