fetch-tables ( component -- )

Vocabulary

images.jpeg.private

Inputs

component

an object

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: images.jpeg.private

: fetch-tables ( component -- )
    [ [ jpeg> quant-tables>> nth ] change-quant-table drop ]
    [ [ jpeg> huff-tables>> nth ] change-dc-huff-table drop ] [
        [ 2 + jpeg> huff-tables>> nth ] change-ac-huff-table
        drop
    ] tri ;