get-pixel ( x y -- z )

Vocabulary
chipmunk.demo

Definition

USING: kernel locals 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 = ;