draw-color ( value x,y color-id image -- )

Vocabulary

images.processing

Inputs

value	an object
x,y	an object
color-id	an object
image	an object

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: images.processing

:: draw-color ( value x,y color-id image -- )
    x,y image image-offset 3 * color-id +
    value >fixnum swap image bitmap>> set-nth ;