18 lines
479 B
C
18 lines
479 B
C
#include "xlib.h"
|
|
#include "scheme48.h"
|
|
|
|
s48_value scx_Black_Pixel(s48_value Xdisplay) {
|
|
Display* dpy = SCX_EXTRACT_DISPLAY(Xdisplay);
|
|
return SCX_ENTER_PIXEL( BlackPixel(dpy, DefaultScreen(dpy)) );
|
|
}
|
|
|
|
s48_value scx_White_Pixel(s48_value Xdisplay) {
|
|
Display* dpy = SCX_EXTRACT_DISPLAY(Xdisplay);
|
|
return SCX_ENTER_PIXEL( WhitePixel(dpy, DefaultScreen(dpy)) );
|
|
}
|
|
|
|
void scx_init_pixel(void) {
|
|
S48_EXPORT_FUNCTION(scx_Black_Pixel);
|
|
S48_EXPORT_FUNCTION(scx_White_Pixel);
|
|
}
|