color-lookup3 ( loading-bitmap -- seq )


Vocabulary
images.bitmap

Inputs
loading-bitmapan object


Outputs
seqan object


Definition
USING: accessors arrays grouping kernel sequences ;

IN: images.bitmap

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