decode-block ( color -- pixels )

Vocabulary

images.jpeg.private

Inputs

color

an object

Outputs

pixels

an object

Definition

USING: accessors arrays kernel math math.vectors sequences ;

IN: images.jpeg.private

:: decode-block ( color -- pixels )
    color dc-huff-table>> read1-jpeg-dc color apply-diff
    64 0 <array> :> coefs 0 coefs set-nth 0 :> k! [
        color ac-huff-table>> read1-jpeg-ac
        [ first 1 + k + k! ] [ second k coefs set-nth ] [ ] tri
        { 0 0 } = not k 63 < and
    ] loop coefs color quant-table>> v* reverse-zigzag idct ;