scx/scheme/xlib/pixel.scm

(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")