colorize ( index palette transparent-index/f -- seq )

Vocabulary

images.gif

Inputs

index	an object
palette	an object
transparent-index/f	an object

Outputs

seq

an object

Definition

USING: kernel sequences ;

IN: images.gif

: colorize ( index palette transparent-index/f -- seq )
    pick = [ 2drop B{ 0 0 0 0 } ] [ nth 255 suffix ] if ;