Gestire un oggetto Image agendo direttamente sulle risorse dei sorgenti Gambas

I dati di un oggetto di tipo Image sono gestiti mediante alcune risorse presenti nel file sorgente "/home/[USER]/gambasdevel/main/lib/image/gb.image.h ". ^{[nota 1]}
In particolare i dati di un oggetto Image sono immagazzinati nella Struttura GB_IMG, scritta in C, presente nel predetto file gb.image.h, e che qui mostriamo:

typedef
       struct GB_IMG {
               GB_BASE ob;                               // la Struttura di riferimento del membro "ob" è: "typedef struct _CLASS", contenuta nel file header "gbx_class.h", riga 250
               unsigned char *data;                      // points at the image data
               int width;                                // image width in pixels
               int height;                               // image height in pixels
               int format;                               // image format (RGB, BGR, RGBA...)   Vedi l'elenco sotto il paragrafo "Constants used by image data format" nel file header "gb.image.h"
               GB_IMG_OWNER *owner;                      // owner of the data, NULL means gb.image
               void *owner_handle;                       // handle for the owner
               GB_IMG_OWNER *temp_owner;                 // owner of the temporary handle that does not own the data
               void *temp_handle;                        // temporary handle
               unsigned modified : 1;                    // data has been modified by gb.image
               unsigned sync : 1;                        // data must be synchronized by calling GB_IMG_OWNER.sync()
               unsigned is_void : 1;                     // void image (no data)
               }
       GB_IMG;

Agendo - in lettura ed in scrittura - su questa Struttura, possiamo ottenere dati dall'immagine o scriverne nuovi, così modificandola.

Lettura dei dati

Di seguito mostriamo un semplice esempio, nel quale leggeremo alcuni dati di una immagine agendo sull'area di memoria della predetta Struttura GB_IMG:

 Public Sub Form_Open()

 Dim im As Image
 Dim p1, p2 As Pointer
 Dim spost As Integer
   
 im = Image.Load("/percorso/del/file/immagine")
     
' Punta all'oggetto "Image":
 p1 = Object.Address(im)
  
 spost = SizeOf(gb.Pointer) * 3
  
' Punta al dato relativo al tipo di oggetto (ossia: "Image"):
 Print String@(Pointer@(Pointer@(p1) + spost))
  
' Punta al dato relativo alla larghezza dell'immagine in pixel:
 Print Int@(p1 + spost); " pixel"
  
' Punta al dato relativo all'altezza dell'immagine in pixel:
 Print Int@(p1 + spost + 4); " pixel"
  
' Punta al dato relativo al formato dell'immagine:
 Print Int@(p1 + spost + 8)
  
' Punta al dato relativo al corrente Componente di Gambas che sta gestendo l'oggetto "Image":
 Print String@(Pointer@(Pointer@(p1 + (SizeOf(gb.Pointer) * 5))))
  
End

Scrittura dei dati

In questo esempio, invece, procederemo a scrivere dei valori nell'area di memoria puntata dal membro "unsigned char *data " della Struttura GB_IMG, modificando così il colore dei pixel dell'immagine caricata.
In particolare modificheremo il primo pixel (quello posto nell'angolo in alto a sinistra dell'immagine), scrivendo il valore corrispondente al colore "giallo".

Public Sub Form_Open()

 Dim im As Image
 Dim p1, p2 As Pointer
 Dim st As Stream
 
 im = Image.Load("/percorso/del/file/immagine")
     
' Punta all'oggetto "Image":
 p1 = Object.Address(im)
  
' Punta all'area di memoria (puntata dal membro "*data" della Struttura GB_IMG) dei dati che rappresentano ai pixel dell'immagine:
 p2 = Pointer@(p1 + (SizeOf(gb.Pointer) * 2))
  
' Utilizza ovviamente i "Memory Stream" per scrivere nell'area di memoria puntata dal "Puntatore":
 st = Memory p2 For Write
  
' Modifica il primo pixel, che è quello posto nell'angolo in alto a sinistra dell'immagine, scrivendo il valore corrispondente al colore "giallo", ed avendo cura di porre il canale "alfa" (primo byte a sinistra) al valore massimo 255 (&FF). [nota 2]
 Write #st, &FFFFFF00 As Integer
 st.Close

' Verifica l'avvenuta scrittura/modifica leggendo il valore del primo pixel:
 Print Hex(Int@(p2), 8)

' Verifica l'avvenuta scrittura/modifica, inoltre, mostrando l'immagine in una "PictureBox" e salvandola in nuovo file immagine:
 PictureBox1.Picture = im.Picture
 im.Save("/tmp/immagine.png", 100)

End

Note

[1] Si rinvia per identico argomento alle seguenti pagine della WIKI:

• Configurazione, organizzazione ed impostazione dell'oggetto Image secondo i sorgenti di Gambas
• Leggere le informazioni di una Image dalle sue risorse dei sorgenti di Gambas

[2] Vedere anche: https://gambaswiki.org/wiki/doc/imageconv?l=it