decode-indexed-color ( loading-image -- byte-array )

Vocabulary

images.png

Inputs

loading-image

an object

Outputs

byte-array

an object

Definition

USING: accessors grouping kernel sequences ;

IN: images.png

: decode-indexed-color ( loading-image -- byte-array )
    [ uncompress-bytes ] keep "PLTE" find-chunk
    data>> verify-PLTE 3 group [ nth ] curry { } map-as
    B{ } concat-as ;