loading-png>bitmap ( loading-png -- bytes component-order )

Vocabulary

images.png

Inputs

loading-png

an object

Outputs

bytes	an object
component-order	an object

Definition

USING: accessors combinators images kernel ;

IN: images.png

: loading-png>bitmap
    ( loading-png -- bytes component-order )
    dup color-type>> {
        { greyscale [ validate-greyscale decode-greyscale L ] }
        {
            truecolor
            [ validate-truecolor uncompress-bytes RGB ]
        }
        {
            indexed-color
            [ validate-indexed-color decode-indexed-color RGB ]
        }
        {
            greyscale-alpha
            [
                validate-greyscale-alpha decode-greyscale-alpha
                LA
            ]
        }
        {
            truecolor-alpha
            [ validate-truecolor-alpha uncompress-bytes RGBA ]
        }
        [ unknown-color-type ]
    } case ;