draw-block ( block x,y color-id jpeg-image -- )

Vocabulary

images.jpeg.private

Inputs

block	an object
x,y	an object
color-id	an object
jpeg-image	an object

Outputs

None

Definition

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

IN: images.jpeg.private

:: draw-block ( block x,y color-id jpeg-image -- )
    block dup length>> sqrt >fixnum group
    flip dup matrix-dim coord-matrix flip [
        [ [ [ second ] [ first ] bi ] curry dip nth nth ]
        [ x,y v+ color-id jpeg-image draw-color ] bi
    ] with each^2 ;