draw-macroblock-yuv420 ( mb blocks -- )

Vocabulary

images.jpeg.private

Inputs

mb	an object
blocks	an object

Outputs

None

Definition

USING: grouping images.processing math.vectors sequences ;

IN: images.jpeg.private

:: draw-macroblock-yuv420 ( mb blocks -- )
    mb { 16 16 } v* :> pos 0 blocks nth pos { 0 0 } v+
    0 jpeg> draw-block 1 blocks nth pos { 8 0 } v+
    0 jpeg> draw-block 2 blocks nth pos { 0 8 } v+
    0 jpeg> draw-block 3 blocks nth pos { 8 8 } v+
    0 jpeg> draw-block 4 blocks nth 8 group 2 matrix-zoom
    concat pos 1 jpeg> draw-block 5 blocks nth 8 group
    2 matrix-zoom concat pos 2 jpeg> draw-block ;