set-bitfield-widths ( loading-bitmap -- loading-bitmap' )

Vocabulary

images.bitmap

Inputs

loading-bitmap

an object

Outputs

loading-bitmap'

an object

Definition

USING: accessors combinators endian grouping kernel sequences ;

IN: images.bitmap

: set-bitfield-widths ( loading-bitmap -- loading-bitmap' )
    dup header>> bit-count>> {
        { 16 [ dup color-palette>> 4 group [ le> ] map ] }
        { 32 [ { 16711680 65280 255 } ] }
    } case reverse >>bitfields ;