draw-grey ( value x,y image -- )

Vocabulary

images.processing

Inputs

value	an object
x,y	an object
image	an object

Outputs

None

Definition

USING: accessors kernel math math.order sequences ;

IN: images.processing

:: draw-grey ( value x,y image -- )
    x,y image image-offset 3 *
    { 0 1 2 } [
        + value 128 + >fixnum 0 255 clamp
        swap image bitmap>> set-nth
    ] with each ;