scx/c/xlib/pixel.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);
}