advanced-bitmap>component-order ( loading-bitmap -- object )

Vocabulary

images.bitmap

Inputs

loading-bitmap

an object

Outputs

object

an object

Definition

USING: accessors arrays combinators images kernel ;

IN: images.bitmap

: advanced-bitmap>component-order
    ( loading-bitmap -- object )
    [ ] [ header>> bit-count>> ] [ alpha-used? ] tri 2array {
        { { 32 t } [ drop BGRA ] }
        { { 32 f } [ drop BGRX ] }
        [ drop simple-bitmap>component-order ]
    } case ;