(define pixel-value pixel-Xpixel) (define (black-pixel display) (make-pixel (%black-pixel (display-Xdisplay display)) #f #f)) (import-lambda-definition %black-pixel (Xdisplay) "scx_Black_Pixel") (define (white-pixel display) (make-pixel (%white-pixel (display-Xdisplay display)) #f #f)) (import-lambda-definition %white-pixel (Xdisplay) "scx_White_Pixel")