15 lines
381 B
Scheme
15 lines
381 B
Scheme
(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") |