find-compressed-bytes ( loading-png -- bytes )

Vocabulary

images.png

Inputs

loading-png

an object

Outputs

bytes

an object

Definition

USING: accessors sequences ;

IN: images.png

: find-compressed-bytes ( loading-png -- bytes )
    "IDAT" find-chunks [ data>> ] map concat ;