all-macroblocks ( quot: ( mb -- ) -- )

Vocabulary

images.jpeg.private

Inputs

quot	a quotation with stack effect ( mb -- )

Outputs

None

Definition

USING: accessors images.processing kernel math.functions
math.vectors sequences ;

IN: images.jpeg.private

: all-macroblocks ( quot: ( mb -- ) -- )
    [
        jpeg>
        [ dim>> 8 v/n ]
        [ color-info>> sift { 0 0 } [ mb-dim vmax ] reduce v/ ]
        bi [ ceiling ] map coord-matrix flip concat
    ] [ each ] bi* ; inline