read1-jpeg-ac ( decoder -- run/ac )

Vocabulary

images.jpeg.private

Inputs

decoder

an object

Outputs

run/ac

an object

Definition

USING: accessors arrays bitstreams compression.huffman kernel
math ;

IN: images.jpeg.private

: read1-jpeg-ac ( decoder -- run/ac )
    [ read1-huff 16 /mod dup ] [ bs>> read ] bi sign-extend
    2array ;