13 lines
355 B
Scheme
13 lines
355 B
Scheme
(define pixel-value pixel-Xpixel)
|
|
|
|
(define (black-pixel display)
|
|
(make-pixel (%black-pixel (display-Xdisplay display))))
|
|
|
|
(import-lambda-definition %black-pixel (Xdisplay)
|
|
"scx_Black_Pixel")
|
|
|
|
(define (white-pixel display)
|
|
(make-pixel (%white-pixel (display-Xdisplay display))))
|
|
|
|
(import-lambda-definition %white-pixel (Xdisplay)
|
|
"scx_White_Pixel") |