image-data ( GdkPixbuf -- data )

Vocabulary

images.loader.gtk.private

Inputs

GdkPixbuf

an object

Outputs

data

an object

Definition

USING: alien.c-types alien.data combinators gdk2.pixbuf.ffi
grouping kernel locals.backend math sequences ;

IN: images.loader.gtk.private

: image-data ( GdkPixbuf -- data )
    {
        [ gdk_pixbuf_get_pixels ]
        [ gdk_pixbuf_get_width ]
        [ gdk_pixbuf_get_height ]
        [ gdk_pixbuf_get_rowstride ]
        [ gdk_pixbuf_get_n_channels ]
        [ gdk_pixbuf_get_bits_per_sample ]
    } cleave 6 load-locals 0 get-local -1 get-local * 7 + 8 /i
    -4 get-local * load-local 0 get-local -3 get-local =
    -6 get-local -4 get-local -3 get-local [
        3 load-locals -2 get-local -1 get-local 0 get-local *
        memory>byte-array 3 drop-locals
    ] curry curry curry
    -6 get-local -3 get-local -4 get-local 0 get-local [
        4 load-locals -3 get-local -2 get-local -1 get-local *
        uchar <c-direct-array> -2 get-local <groups> 0 get-local
        [ load-local 0 get-local head-slice 1 drop-locals ]
        curry map concat 4 drop-locals
    ] curry curry curry curry if 7 drop-locals ;