eterm/utils/Esetroot.c

277 lines
10 KiB
C

/*
* Esetroot -- Set the root pixmap. This program enables non-Enlightenment
* users to use Eterm's support for pseudotransparency.
*
* Written by Nat Friedman <ndf@mit.edu> with modifications by Gerald Britton
* <gbritton@mit.edu> and Michael Jennings <mej@eterm.org>
*
*/
static const char cvs_ident[] = "$Id$";
#include "../config.h"
#include <stdio.h>
#include <stdlib.h>
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#include <errno.h>
#include <libast.h>
#ifdef PIXMAP_SUPPORT
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xatom.h>
#include <X11/Xos.h>
#include <Imlib2.h>
void set_pixmap_property(Pixmap p);
Display *Xdisplay;
Screen *scr;
Window Xroot;
int screen;
unsigned char debug = 0;
#define Xdepth (DefaultDepth(Xdisplay, screen))
void
set_pixmap_property(Pixmap p)
{
Atom prop_root, prop_esetroot, type;
int format;
unsigned long length, after;
unsigned char *data_root, *data_esetroot;
prop_root = XInternAtom(Xdisplay, "_XROOTPMAP_ID", True);
prop_esetroot = XInternAtom(Xdisplay, "ESETROOT_PMAP_ID", True);
if (debug) {
fprintf(stderr, "%s:%d: set_pixmap_property(0x%08x): prop_root == 0x%08x, prop_esetroot == 0x%08x\n", __FILE__, __LINE__,
(unsigned int) p, (unsigned int) prop_root, (unsigned int) prop_esetroot);
}
if (prop_root != None && prop_esetroot != None) {
XGetWindowProperty(Xdisplay, Xroot, prop_root, 0L, 1L, False, AnyPropertyType, &type, &format, &length, &after, &data_root);
if (type == XA_PIXMAP) {
XGetWindowProperty(Xdisplay, Xroot, prop_esetroot, 0L, 1L, False, AnyPropertyType, &type, &format, &length, &after, &data_esetroot);
if (data_root && data_esetroot) {
if (debug) {
fprintf(stderr, "%s:%d: set_pixmap_property(0x%08x): data_root == 0x%08x, data_esetroot == 0x%08x\n", __FILE__,
__LINE__, (unsigned int) p, (unsigned int) *((Pixmap *) data_root), (unsigned int) *((Pixmap *) data_esetroot));
}
if (type == XA_PIXMAP && *((Pixmap *) data_root) == *((Pixmap *) data_esetroot)) {
if (debug) {
fprintf(stderr, "%s:%d: set_pixmap_property(0x%08x): XKillClient() is being called.\n", __FILE__, __LINE__, (unsigned int) p);
}
XKillClient(Xdisplay, *((Pixmap *) data_root));
}
}
}
}
/* This will locate the property, creating it if it doesn't exist */
prop_root = XInternAtom(Xdisplay, "_XROOTPMAP_ID", False);
prop_esetroot = XInternAtom(Xdisplay, "ESETROOT_PMAP_ID", False);
/* The call above should have created it. If that failed, we can't continue. */
if (prop_root == None || prop_esetroot == None) {
fprintf(stderr, "Esetroot: creation of pixmap property failed.\n");
exit(1);
}
XChangeProperty(Xdisplay, Xroot, prop_root, XA_PIXMAP, 32, PropModeReplace, (unsigned char *) &p, 1);
XChangeProperty(Xdisplay, Xroot, prop_esetroot, XA_PIXMAP, 32, PropModeReplace, (unsigned char *) &p, 1);
if (debug) {
fprintf(stderr, "%s:%d: set_pixmap_property(0x%08x): _XROOTPMAP_ID and ESETROOT_PMAP_ID set to 0x%08x.\n", __FILE__, __LINE__, (unsigned int) p, (unsigned int) p);
}
XSetCloseDownMode(Xdisplay, RetainPermanent);
XFlush(Xdisplay);
}
#endif
int
main(int argc, char *argv[])
{
#ifdef PIXMAP_SUPPORT
unsigned char scale = 0, center = 0, fit = 0, mirror = 0;
char *displayname = NULL, *fname = NULL, *bgcolor = NULL;
Imlib_Image im;
Pixmap p = None, temp_pmap = None, m = None;
register unsigned char i;
GC gc;
XGCValues gcv;
XColor xcolor;
int w, h, x, y;
if (argc < 2) {
fprintf(stderr, "%s [-display <display_name>] [-bgcolor <color>] [-scale] [-center] [-fit] [-mirror] pixmap\n", *argv);
fprintf(stderr, "\t Short options are also recognized (-d, -b, -s, -c, -f, and -m)\n");
exit(0);
}
for (i = 1; i < argc; i++) {
if (*argv[i] != '-') {
break;
}
if (argv[i][1] == 'd') {
displayname = argv[++i];
} else if (argv[i][1] == 'b') {
bgcolor = argv[++i];
} else if (argv[i][1] == 's') {
scale = 1;
} else if (argv[i][1] == 'c') {
center = 1;
} else if (argv[i][1] == 'f') {
fit = 1;
} else if (argv[i][1] == 'm') {
mirror = 1;
} else if (argv[i][1] == 'x') {
fprintf(stderr, "Debugging activated.\n");
debug = 1;
} else {
fprintf(stderr, "%s: Unrecognized option \'%c\'\n\n", *argv, argv[i][1]);
fprintf(stderr, "%s [-display <display_name>] [-bgcolor <color>] [-scale] [-center] [-fit] [-mirror] pixmap\n", *argv);
fprintf(stderr, "\t Short options are also recognized (-d, -b, -s, -c, -f, and -m)\n");
exit(2);
}
}
fname = argv[i];
if (scale) {
center = 0;
mirror = 0;
}
if (debug) {
fprintf(stderr, "%s:%d: Display name is \"%s\"\n", __FILE__, __LINE__, displayname ? displayname : "(nil)");
fprintf(stderr, "%s:%d: Background color name is \"%s\"\n", __FILE__, __LINE__, bgcolor ? bgcolor : "(nil)");
fprintf(stderr, "%s:%d: Image will be %s\n", __FILE__, __LINE__, scale ? "scaled" : (center ? "centered" : (fit ? "fit" : "tiled")));
fprintf(stderr, "%s:%d: Image file is %s\n", __FILE__, __LINE__, fname ? fname : "(nil)");
}
if (!displayname) {
displayname = getenv("DISPLAY");
if (debug) {
fprintf(stderr, "%s:%d: Display name set to %s via getenv(\"DISPLAY\")\n", __FILE__, __LINE__, displayname ? displayname : "(nil)");
}
}
if (!displayname) {
displayname = ":0.0";
if (debug) {
fprintf(stderr, "%s:%d: Display name defaulted to %s\n", __FILE__, __LINE__, displayname ? displayname : "(nil)");
}
}
if ((Xdisplay = XOpenDisplay(displayname)) == 0) {
fprintf(stderr, "%s: Unable to open display %s\n", *argv, displayname);
exit(1);
}
screen = DefaultScreen(Xdisplay);
Xroot = RootWindow(Xdisplay, screen);
scr = ScreenOfDisplay(Xdisplay, screen);
if (debug) {
fprintf(stderr, "%s:%d: Chose screen %d\n", __FILE__, __LINE__, screen);
fprintf(stderr, "%s:%d: Root window is 0x%08x\n", __FILE__, __LINE__, (unsigned int) Xroot);
fprintf(stderr, "%s:%d: Found screen information at %8p\n", __FILE__, __LINE__, scr);
}
imlib_context_set_display(Xdisplay);
imlib_context_set_visual(DefaultVisual(Xdisplay, DefaultScreen(Xdisplay)));
im = imlib_load_image_immediately(fname);
if (im == NULL) {
fprintf(stderr, "%s: Unable to load image file \"%s\".\n", *argv, fname);
exit(1);
} else if (debug) {
fprintf(stderr, "%s:%d: The Imlib Image is at %8p\n", __FILE__, __LINE__, im);
}
imlib_context_set_image(im);
if (scale) {
w = scr->width;
h = scr->height;
} else if (mirror) {
w = imlib_image_get_width() * 2;
h = imlib_image_get_height() * 2;
} else {
w = imlib_image_get_width();
h = imlib_image_get_height();
}
if (fit) {
double x_ratio, y_ratio;
x_ratio = ((double) scr->width) / ((double) w);
y_ratio = ((double) scr->height) / ((double) h);
if (x_ratio > y_ratio) {
x_ratio = y_ratio;
}
w = (int) (w * x_ratio);
h = (int) (h * x_ratio);
}
p = XCreatePixmap(Xdisplay, Xroot, scr->width, scr->height, Xdepth);
gcv.foreground = gcv.background = BlackPixel(Xdisplay, screen);
if (bgcolor && XParseColor(Xdisplay, DefaultColormap(Xdisplay, screen), bgcolor, &xcolor)
&& XAllocColor(Xdisplay, DefaultColormap(Xdisplay, screen), &xcolor)) {
gcv.foreground = gcv.background = xcolor.pixel;
}
gc = XCreateGC(Xdisplay, p, (GCForeground | GCBackground), &gcv);
if (scale) {
XFillRectangle(Xdisplay, p, gc, 0, 0, w, h);
}
if (center || fit) {
XFillRectangle(Xdisplay, p, gc, 0, 0, scr->width, scr->height);
x = (scr->width - w) >> 1;
y = (scr->height - h) >> 1;
} else {
x = 0;
y = 0;
}
if (debug) {
fprintf(stderr, "%s:%d: Assigned width and height for rendering as %dx%d\n", __FILE__, __LINE__, w, h);
fprintf(stderr, "%s:%d: Created %dx%d+%d+%d pixmap 0x%08x\n", __FILE__, __LINE__, scr->width, scr->height, x, y, (unsigned int) p);
fprintf(stderr, "%s:%d: Applied Graphics Context %8p to pixmap.\n", __FILE__, __LINE__, gc);
}
imlib_context_set_anti_alias(1);
imlib_context_set_dither(1);
imlib_context_set_blend(0);
if (mirror) {
temp_pmap = XCreatePixmap(Xdisplay, Xroot, w, h, Xdepth);
imlib_context_set_drawable(temp_pmap);
imlib_render_image_on_drawable(0, 0);
imlib_image_flip_horizontal();
imlib_render_image_on_drawable(imlib_image_get_width(), 0);
imlib_image_flip_vertical();
imlib_render_image_on_drawable(imlib_image_get_width(), imlib_image_get_height());
imlib_image_flip_horizontal();
imlib_render_image_on_drawable(0, imlib_image_get_height());
} else {
imlib_context_set_drawable(Xroot);
imlib_render_pixmaps_for_whole_image_at_size(&temp_pmap, &m, w, h);
}
if (debug) {
fprintf(stderr, "%s:%d: Rendered at %dx%d onto pixmap 0x%08x\n", __FILE__, __LINE__, w, h, (unsigned int) temp_pmap);
}
if (temp_pmap != None) {
if (m) {
XFreePixmap(Xdisplay, m);
m = None;
}
XSetTile(Xdisplay, gc, temp_pmap);
XSetTSOrigin(Xdisplay, gc, x, y);
XSetFillStyle(Xdisplay, gc, FillTiled);
if (center || fit) {
XFillRectangle(Xdisplay, p, gc, x, y, w, h);
} else {
XFillRectangle(Xdisplay, p, gc, x, y, scr->width, scr->height);
}
XGrabServer(Xdisplay);
set_pixmap_property(p);
XSetWindowBackgroundPixmap(Xdisplay, Xroot, p);
XClearWindow(Xdisplay, Xroot);
XUngrabServer(Xdisplay);
XFlush(Xdisplay);
}
#else
USE_VAR(argc);
USE_VAR(argv);
fprintf(stderr, "Eterm was built without pixmap support, so Esetroot is fairly useless. Sorry.\n");
#endif
return 0;
}