uncompress-bitfield ( seq masks -- bytes' )

Vocabulary

images.bitmap

Inputs

seq	an object
masks	an object

Outputs

bytes'

an object

Definition

USING: kernel math math.bitwise sequences ;

IN: images.bitmap

: uncompress-bitfield ( seq masks -- bytes' )
    [
        [ [ bitand ] [ bit-count ] [ log2 ] tri - shift ] with
        map
    ] curry { } map-as B{ } concat-as ;