get-pixel ( x y -- z )

Vocabulary

chipmunk.demo

Inputs

x	an object
y	an object

Outputs

z

an object

Definition

USING: kernel math sequences ;

IN: chipmunk.demo

:: get-pixel ( x y -- z )
    x -3 shift y image-row-length * + image-bitmap nth
    x bitnot 7 bitand neg shift 1 bitand 1 = ;