#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xatom.h>
#include <X11/Xmu/CurUtil.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "X11/bitmaps/gray"
#define Dynamic 1
char *program_name;
Display *dpy;
int screen;
Window root;
char *fore_color = NULL;
char *back_color = NULL;
int reverse = 0;
int save_colors = 0;
int unsave_past = 0;
Pixmap save_pixmap = (Pixmap)None;
static void usage(void);
static void FixupState(void);
static void SetBackgroundToBitmap(Pixmap bitmap,
unsigned int width, unsigned int height);
static Cursor CreateCursorFromFiles(char *cursor_file, char *mask_file);
static Cursor CreateCursorFromName(char *name);
static Pixmap MakeModulaBitmap(int mod_x, int mod_y);
static XColor NameToXColor(char *name, unsigned long pixel);
static unsigned long NameToPixel(char *name, unsigned long pixel);
static Pixmap ReadBitmapFile(char *filename, unsigned int *width, unsigned int *height, int *x_hot, int *y_hot);
static void
usage(void)
{
fprintf(stderr, "usage: %s [options]\n", program_name);
fprintf(stderr, " where options are:\n");
fprintf(stderr, " -display <display> or -d <display>\n");
fprintf(stderr, " -fg <color> or -foreground <color>\n");
fprintf(stderr, " -bg <color> or -background <color>\n");
fprintf(stderr, " -rv or -reverse\n");
fprintf(stderr, " -help\n");
fprintf(stderr, " -def or -default\n");
fprintf(stderr, " -name <string>\n");
fprintf(stderr, " -cursor <cursor file> <mask file>\n");
fprintf(stderr, " -cursor_name <cursor-font name>\n");
fprintf(stderr, " -solid <color>\n");
fprintf(stderr, " -gray or -grey\n");
fprintf(stderr, " -bitmap <filename>\n");
fprintf(stderr, " -mod <x> <y>\n");
exit(1);
}
int
main(int argc, char *argv[])
{
int excl = 0;
int nonexcl = 0;
int restore_defaults = 0;
char *display_name = NULL;
char *name = NULL;
char *cursor_file = NULL;
char *cursor_mask = NULL;
char *cursor_name = NULL;
char *solid_color = NULL;
Cursor cursor;
int gray = 0;
char *bitmap_file = NULL;
int mod_x = 0;
int mod_y = 0;
register int i;
unsigned int ww, hh;
Pixmap bitmap;
program_name=argv[0];
for (i = 1; i < argc; i++) {
if (!strcmp ("-display", argv[i]) || !strcmp ("-d", argv[i])) {
if (++i>=argc) usage ();
display_name = argv[i];
continue;
}
if (!strcmp("-help", argv[i])) {
usage();
}
if (!strcmp("-def", argv[i]) || !strcmp("-default", argv[i])) {
restore_defaults = 1;
continue;
}
if (!strcmp("-name", argv[i])) {
if (++i>=argc) usage();
name = argv[i];
nonexcl++;
continue;
}
if (!strcmp("-cursor", argv[i])) {
if (++i>=argc) usage();
cursor_file = argv[i];
if (++i>=argc) usage();
cursor_mask = argv[i];
nonexcl++;
continue;
}
if (!strcmp("-cursor_name", argv[i])) {
if (++i>=argc) usage();
cursor_name = argv[i];
nonexcl++;
continue;
}
if (!strcmp("-fg",argv[i]) || !strcmp("-foreground",argv[i])) {
if (++i>=argc) usage();
fore_color = argv[i];
continue;
}
if (!strcmp("-bg",argv[i]) || !strcmp("-background",argv[i])) {
if (++i>=argc) usage();
back_color = argv[i];
continue;
}
if (!strcmp("-solid", argv[i])) {
if (++i>=argc) usage();
solid_color = argv[i];
excl++;
continue;
}
if (!strcmp("-gray", argv[i]) || !strcmp("-grey", argv[i])) {
gray = 1;
excl++;
continue;
}
if (!strcmp("-bitmap", argv[i])) {
if (++i>=argc) usage();
bitmap_file = argv[i];
excl++;
continue;
}
if (!strcmp("-mod", argv[i])) {
if (++i>=argc) usage();
mod_x = atoi(argv[i]);
if (mod_x <= 0) mod_x = 1;
if (++i>=argc) usage();
mod_y = atoi(argv[i]);
if (mod_y <= 0) mod_y = 1;
excl++;
continue;
}
if (!strcmp("-rv",argv[i]) || !strcmp("-reverse",argv[i])) {
reverse = 1;
continue;
}
usage();
}
if (excl > 1) {
fprintf(stderr, "%s: choose only one of {solid, gray, bitmap, mod}\n",
program_name);
usage();
}
dpy = XOpenDisplay(display_name);
if (!dpy) {
fprintf(stderr, "%s: unable to open display '%s'\n",
program_name, XDisplayName (display_name));
exit (2);
}
screen = DefaultScreen(dpy);
root = RootWindow(dpy, screen);
if (!excl && !nonexcl)
restore_defaults = 1;
if (cursor_file) {
cursor = CreateCursorFromFiles(cursor_file, cursor_mask);
XDefineCursor(dpy, root, cursor);
XFreeCursor(dpy, cursor);
}
if (cursor_name) {
cursor = CreateCursorFromName (cursor_name);
if (cursor)
{
XDefineCursor (dpy, root, cursor);
XFreeCursor (dpy, cursor);
}
}
if (gray) {
bitmap = XCreateBitmapFromData(dpy, root, gray_bits,
gray_width, gray_height);
SetBackgroundToBitmap(bitmap, gray_width, gray_height);
}
if (solid_color) {
XSetWindowBackground(dpy, root, NameToPixel(solid_color,
BlackPixel(dpy, screen)));
XClearWindow(dpy, root);
unsave_past = 1;
}
if (bitmap_file) {
bitmap = ReadBitmapFile(bitmap_file, &ww, &hh, (int *)NULL, (int *)NULL);
SetBackgroundToBitmap(bitmap, ww, hh);
}
if (mod_x) {
bitmap = MakeModulaBitmap(mod_x, mod_y);
SetBackgroundToBitmap(bitmap, 16, 16);
}
if (name)
XStoreName(dpy, root, name);
if (restore_defaults) {
if (!cursor_file)
XUndefineCursor(dpy, root);
if (!excl) {
XSetWindowBackgroundPixmap(dpy, root, (Pixmap) None);
XClearWindow(dpy, root);
unsave_past = 1;
}
}
FixupState();
XCloseDisplay(dpy);
exit (0);
}
static void
FixupState(void)
{
Atom prop, type;
int format;
unsigned long length, after;
unsigned char *data;
if (!(DefaultVisual(dpy, screen)->class & Dynamic))
unsave_past = 0;
if (!unsave_past && !save_colors)
return;
prop = XInternAtom(dpy, "_XSETROOT_ID", False);
if (unsave_past) {
(void)XGetWindowProperty(dpy, root, prop, 0L, 1L, True, AnyPropertyType,
&type, &format, &length, &after, &data);
if ((type == XA_PIXMAP) && (format == 32) &&
(length == 1) && (after == 0))
XKillClient(dpy, *((Pixmap *)data));
else if (type != None)
fprintf(stderr, "%s: warning: _XSETROOT_ID property is garbage\n",
program_name);
}
if (save_colors) {
if (!save_pixmap)
save_pixmap = XCreatePixmap(dpy, root, 1, 1, 1);
XChangeProperty(dpy, root, prop, XA_PIXMAP, 32, PropModeReplace,
(unsigned char *) &save_pixmap, 1);
XSetCloseDownMode(dpy, RetainPermanent);
}
}
static void
SetBackgroundToBitmap(Pixmap bitmap, unsigned int width, unsigned int height)
{
Pixmap pix;
GC gc;
XGCValues gc_init;
gc_init.foreground = NameToPixel(fore_color, BlackPixel(dpy, screen));
gc_init.background = NameToPixel(back_color, WhitePixel(dpy, screen));
if (reverse) {
unsigned long temp=gc_init.foreground;
gc_init.foreground=gc_init.background;
gc_init.background=temp;
}
gc = XCreateGC(dpy, root, GCForeground|GCBackground, &gc_init);
pix = XCreatePixmap(dpy, root, width, height,
(unsigned int)DefaultDepth(dpy, screen));
XCopyPlane(dpy, bitmap, pix, gc, 0, 0, width, height, 0, 0, (unsigned long)1);
XSetWindowBackgroundPixmap(dpy, root, pix);
XFreeGC(dpy, gc);
XFreePixmap(dpy, bitmap);
if (save_colors)
save_pixmap = pix;
else
XFreePixmap(dpy, pix);
XClearWindow(dpy, root);
unsave_past = 1;
}
#define BITMAP_HOT_DEFAULT 8
static Cursor
CreateCursorFromFiles(char *cursor_file, char *mask_file)
{
Pixmap cursor_bitmap, mask_bitmap;
unsigned int width, height, ww, hh;
int x_hot, y_hot;
Cursor cursor;
XColor fg, bg, temp;
fg = NameToXColor(fore_color, BlackPixel(dpy, screen));
bg = NameToXColor(back_color, WhitePixel(dpy, screen));
if (reverse) {
temp = fg; fg = bg; bg = temp;
}
cursor_bitmap = ReadBitmapFile(cursor_file, &width, &height, &x_hot, &y_hot);
mask_bitmap = ReadBitmapFile(mask_file, &ww, &hh, (int *)NULL, (int *)NULL);
if (width != ww || height != hh) {
fprintf(stderr,
"%s: dimensions of cursor bitmap and cursor mask bitmap are different\n",
program_name);
exit(1);
}
if ((x_hot == -1) && (y_hot == -1)) {
x_hot = BITMAP_HOT_DEFAULT;
y_hot = BITMAP_HOT_DEFAULT;
}
if ((x_hot < 0) || (x_hot >= width) ||
(y_hot < 0) || (y_hot >= height)) {
fprintf(stderr, "%s: hotspot is outside cursor bounds\n", program_name);
exit(1);
}
cursor = XCreatePixmapCursor(dpy, cursor_bitmap, mask_bitmap, &fg, &bg,
(unsigned int)x_hot, (unsigned int)y_hot);
XFreePixmap(dpy, cursor_bitmap);
XFreePixmap(dpy, mask_bitmap);
return(cursor);
}
static Cursor
CreateCursorFromName(char *name)
{
XColor fg, bg, temp;
int i;
Font fid;
fg = NameToXColor(fore_color, BlackPixel(dpy, screen));
bg = NameToXColor(back_color, WhitePixel(dpy, screen));
if (reverse) {
temp = fg; fg = bg; bg = temp;
}
i = XmuCursorNameToIndex (name);
if (i == -1)
return (Cursor) 0;
fid = XLoadFont (dpy, "cursor");
if (!fid)
return (Cursor) 0;
return XCreateGlyphCursor (dpy, fid, fid,
i, i+1, &fg, &bg);
}
static Pixmap
MakeModulaBitmap(int mod_x, int mod_y)
{
int i;
long pattern_line = 0;
char modula_data[16*16/8];
for (i=16; i--; ) {
pattern_line <<=1;
if ((i % mod_x) == 0) pattern_line |= 0x0001;
}
for (i=0; i<16; i++) {
if ((i % mod_y) == 0) {
modula_data[i*2] = (char)0xff;
modula_data[i*2+1] = (char)0xff;
} else {
modula_data[i*2] = pattern_line & 0xff;
modula_data[i*2+1] = (pattern_line>>8) & 0xff;
}
}
return(XCreateBitmapFromData(dpy, root, modula_data, 16, 16));
}
static XColor
NameToXColor(char *name, unsigned long pixel)
{
XColor c;
if (!name || !*name) {
c.pixel = pixel;
XQueryColor(dpy, DefaultColormap(dpy, screen), &c);
} else if (!XParseColor(dpy, DefaultColormap(dpy, screen), name, &c)) {
fprintf(stderr, "%s: unknown color or bad color format: %s\n",
program_name, name);
exit(1);
}
return(c);
}
static unsigned long
NameToPixel(char *name, unsigned long pixel)
{
XColor ecolor;
if (!name || !*name)
return pixel;
if (!XParseColor(dpy,DefaultColormap(dpy,screen),name,&ecolor)) {
fprintf(stderr,"%s: unknown color \"%s\"\n",program_name,name);
exit(1);
}
if (!XAllocColor(dpy, DefaultColormap(dpy, screen),&ecolor)) {
fprintf(stderr, "%s: unable to allocate color for \"%s\"\n",
program_name, name);
exit(1);
}
if ((ecolor.pixel != BlackPixel(dpy, screen)) &&
(ecolor.pixel != WhitePixel(dpy, screen)) &&
(DefaultVisual(dpy, screen)->class & Dynamic))
save_colors = 1;
return(ecolor.pixel);
}
static Pixmap
ReadBitmapFile(char *filename, unsigned int *width, unsigned int *height,
int *x_hot, int *y_hot)
{
Pixmap bitmap;
int status;
status = XReadBitmapFile(dpy, root, filename, width,
height, &bitmap, x_hot, y_hot);
if (status == BitmapSuccess)
return(bitmap);
else if (status == BitmapOpenFailed)
fprintf(stderr, "%s: can't open file: %s\n", program_name, filename);
else if (status == BitmapFileInvalid)
fprintf(stderr, "%s: bad bitmap format file: %s\n",
program_name, filename);
else
fprintf(stderr, "%s: insufficient memory for bitmap: %s",
program_name, filename);
exit(1);
}