decode-quant-table ( 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-quant-table ( chunk -- )
    dup data>> binary [
        length>> 2 - 65 / [
            read4/4 [ 0 assert= ] dip
            64 read swap jpeg> quant-tables>> set-nth
        ] times
    ] with-byte-reader ;