scx/scheme/xlib/pixel.scm

13 lines
347 B
Scheme

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