(bind-func QRcode_pixel
"returns bool: white=0, black=1"
(lambda (code:QRcode* x y)
(convert (bitwise-and 1:i8
(pref (tref code 2)
(+ (* x (QRcode_size code)) y)))
bool)))