decode-frame ( header -- )

Vocabulary

images.jpeg.private

Inputs

header

an object

Outputs

None

Definition

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

IN: images.jpeg.private

: decode-frame ( header -- )
    data>> binary [
        read1 8 assert= 2 read be> 2 read be> swap 2array
        jpeg> dim<< read1 [
            read1 read4/4 read1 <jpeg-color-info> swap
            [ >>id ] keep jpeg> color-info>> set-nth
        ] times
    ] with-byte-reader ;