pixel@ ( x y w image -- start end bitmap )

Vocabulary

images.private

Inputs

x	an object
y	an object
w	an object
image	an object

Outputs

start	an object
end	an object
bitmap	an object

Definition

USING: accessors images kernel math sequences ;

IN: images.private

:: pixel@ ( x y w image -- start end bitmap )
    image dim>> first y * x + :> start start w
    [ image bytes-per-pixel * ] bi@
    :> ( start' w' ) start' start' w' + image bitmap>> ; inline