decode-macroblock ( -- blocks )

Vocabulary

images.jpeg.private

Inputs

None

Outputs

blocks

an object

Definition

USING: accessors kernel math sequences ;

IN: images.jpeg.private

: decode-macroblock ( -- blocks )
    jpeg> components>> [
        [ mb-dim first2 * ] [ [ decode-block ] curry replicate ]
        bi
    ] map concat ;