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

Vocabulary

images.bitmap

Inputs

loading-bitmap

an object

Outputs

loading-bitmap'

an object

Definition

USING: accessors alien.c-types alien.data combinators kernel ;

IN: images.bitmap

: uncompress-bitfield-widths
    ( loading-bitmap -- loading-bitmap' )
    set-bitfield-widths dup header>> bit-count>> {
        {
            16
            [
                dup bitfields>> [ [ ushort cast-array ] ] dip
                [ uncompress-bitfield ] curry compose
                change-color-index
            ]
        }
        { 32 [ ] }
        [ unsupported-bitfield-widths ]
    } case ;