(define pixel-value pixel-Xpixel)

(define (black-pixel display)
  (make-pixel (%black-pixel (display-Xdisplay display))))

(import-lambda-definition %black-pixel (Xdisplay)
  "Black_Pixel")

(define (white-pixel display)
  (make-pixel (%white-pixel (display-Xdisplay display))))

(import-lambda-definition %white-pixel (Xdisplay)
  "White_Pixel")