draw-macroblock-y ( mb blocks -- )


Vocabulary
images.jpeg.private

Inputs
mban object
blocksan object


Outputs
None

Definition
USING: arrays math.vectors sequences ;

IN: images.jpeg.private

:: draw-macroblock-y ( mb blocks -- )
mb { 8 8 } v* :> pos 0 blocks nth pos 0 jpeg> draw-block
64 0 <array> pos 1 jpeg> draw-block 64 0 <array>
pos 2 jpeg> draw-block ;