scx/c/xlib/pixel.c

#include "xlib.h"
#include "scheme48.h"

s48_value Black_Pixel(s48_value Xdisplay) {
  Display* dpy = EXTRACT_DISPLAY(Xdisplay);
  return ENTER_PIXEL( BlackPixel(dpy, DefaultScreen(dpy)) );
}

s48_value White_Pixel(s48_value Xdisplay) {
  Display* dpy = EXTRACT_DISPLAY(Xdisplay);
  return ENTER_PIXEL( WhitePixel(dpy, DefaultScreen(dpy)) );
}

void s48_init_pixel(void) {
  S48_EXPORT_FUNCTION(Black_Pixel);
  S48_EXPORT_FUNCTION(White_Pixel);
}