draw-macroblock-yuv420 ( mb blocks -- )


Vocabulary
images.jpeg.private

Inputs
mban object
blocksan object


Outputs
None

Definition


:: 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 ;