Handbook
Glossary
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
;