color-lookup4 ( loading-bitmap -- seq )

Vocabulary

images.bitmap

Inputs

loading-bitmap

an object

Outputs

seq

an object

Definition

USING: accessors arrays grouping kernel sequences ;

IN: images.bitmap

: color-lookup4 ( loading-bitmap -- seq )
    [ color-index>> >array ]
    [ color-palette>> 4 <groups> [ 3 head-slice ] map ] bi
    [ nth ] curry map concat ;