parse-iccp-chunk ( loading-png -- loading-png )

Vocabulary

images.png

Inputs

loading-png

an object

Outputs

loading-png

an object

Definition

USING: accessors kernel ;

IN: images.png

: parse-iccp-chunk ( loading-png -- loading-png )
    dup "iCCP" find-chunk
    [ data>> <icc-profile> >>icc-profile ] when* ;