GdkPixbuf>image ( GdkPixbuf -- image )

Vocabulary

images.loader.gtk.private

Inputs

GdkPixbuf

an object

Outputs

image

an object

Definition

USING: accessors arrays combinators gdk2.pixbuf.ffi images
kernel ;

IN: images.loader.gtk.private

: GdkPixbuf>image ( GdkPixbuf -- image )
    [ image new ] dip {
        [
            [ gdk_pixbuf_get_width ] [ gdk_pixbuf_get_height ]
            bi 2array >>dim
        ]
        [ image-data >>bitmap ]
        [
            gdk_pixbuf_get_has_alpha RGBA RGB ?
            >>component-order
        ]
        [ component-type >>component-type ]
    } cleave f >>premultiplied-alpha? f >>upside-down? ;