baseline-decompress ( -- )

Vocabulary

images.jpeg.private

Inputs

None

Outputs

None

Definition

USING: accessors arrays bitstreams byte-arrays
compression.huffman grouping kernel sequences ;

IN: images.jpeg.private

: baseline-decompress ( -- )
    jpeg> bitstream>> cleanup-bitstream
    { 255 255 255 255 } append
    >byte-array <msb0-bit-reader> jpeg> bitstream<< jpeg>
    [ bitstream>> ] [
        [ [ <huffman-decoder> ] with map ] change-huff-tables
        drop
    ] bi jpeg> components>> [ fetch-tables ] each
    [ decode-macroblock 2array ] collector
    [ all-macroblocks ] dip jpeg> setup-bitmap draw-macroblocks
    jpeg> bitmap>> 3 <groups> [ color-transform ] map! drop
    jpeg> [ >byte-array ] change-bitmap drop ;