#include once "gtk/gtk.bi"

Screen 17, 32

gtk_init (NULL, NULL)

Dim As UByte Ptr pixdata,pixels
Dim As Any Ptr fbImage
Dim As Integer pitch
Dim As UInteger Ptr p

Var s_pBackground = gdk_pixbuf_new_from_file("1.png", NULL)
Var w = gdk_pixbuf_get_width(s_pBackground)
Var h = gdk_pixbuf_get_height(s_pBackground)
pixels = gdk_pixbuf_get_pixels(s_pBackground)
var  nChannels = gdk_pixbuf_get_n_channels(s_pBackground)
var rowstride = gdk_pixbuf_get_rowstride(s_pBackground)

fbImage = ImageCreate(w,h)
ImageInfo(fbImage, ,,, pitch, pixdata)

for y As Integer= 0 to h-1
   Dim row As UInteger Ptr = Cast(UInteger Ptr,pixdata + y * pitch)
   for x As integer= 0 to w-1
    p = Cast(UInteger Ptr,pixels  + x * nChannels + y * rowstride)
    row [x]= *p
    Dim As UByte Ptr ubP = Cast(Ubyte Ptr,@row[x])
    Swap ubP[0],ubP[2]
   Next
Next

Put(10,10),fbImage

Sleep