13 lines
347 B
Scheme
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")
|