decode-scan ( chunk -- )

Vocabulary

images.jpeg.private

Inputs

chunk

an object

Outputs

None

Definition

USING: accessors io io.encodings.binary io.streams.byte-array
kernel math sequences ;

IN: images.jpeg.private

: decode-scan ( chunk -- )
    data>> binary [
        read1 <iota> [
            drop read1 jpeg> color-info>> nth
            clone read1 16 /mod
            [ >>dc-huff-table ] [ >>ac-huff-table ] bi*
        ] map jpeg> components<< read1 0 assert=
        read1 63 assert= read1 16 /mod [ 0 assert= ] bi@
    ] with-byte-reader ;