gif>image ( loading-gif -- image )

Vocabulary

images.gif

Inputs

loading-gif

an object

Outputs

image

an object

Definition

USING: accessors images kernel ;

IN: images.gif

: gif>image ( loading-gif -- image )
    [ <image> ] dip
    [ dimensions >>dim ] [
        drop RGBA >>component-order
        ubyte-components >>component-type
    ] [
        [ decompress ] [ global-color-table>> ]
        [ ?transparent-color-index ] tri apply-palette >>bitmap
    ] tri ;