--- rxvt-unicode/src/xpm.C 2003/11/24 17:31:28 1.2 +++ rxvt-unicode/src/xpm.C 2007/07/27 14:41:15 1.51 @@ -1,12 +1,12 @@ -/*--------------------------------*-C-*---------------------------------* - * File: xpm.c +/*----------------------------------------------------------------------* + * File: xpm.C *----------------------------------------------------------------------* - * $Id: xpm.C,v 1.2 2003/11/24 17:31:28 pcg Exp $ * * All portions of code are copyright by their respective author/s. * Copyright (c) 1997 Carsten Haitzler * Copyright (c) 1997,1998 Oezguer Kesim * Copyright (c) 1998-2001 Geoff Wing + * Copyright (c) 2005-2006 Marc Lehmann * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -25,10 +25,159 @@ #include "../config.h" /* NECESSARY */ #include "rxvt.h" /* NECESSARY */ -#include "xpm.intpro" /* PROTOS for internal routines */ #ifdef XPM_BACKGROUND +#ifndef HAVE_AFTERIMAGE +/* + * search for FILE in the current working directory, and within the + * colon-delimited PATHLIST, adding the file extension EXT if required. + * + * FILE is either semi-colon or zero terminated + */ +static char * +rxvt_File_search_path (const char *pathlist, const char *file, const char *ext) +{ + int maxpath, len; + const char *p, *path; + char name[256]; + + if (!access (file, R_OK)) /* found (plain name) in current directory */ + return strdup (file); + + /* semi-colon delimited */ + if ((p = strchr (file, ';'))) + len = (p - file); + else + len = strlen (file); + + /* leave room for an extra '/' and trailing '\0' */ + maxpath = sizeof (name) - (len + (ext ? strlen (ext) : 0) + 2); + if (maxpath <= 0) + return NULL; + + /* check if we can find it now */ + strncpy (name, file, len); + name[len] = '\0'; + + if (!access (name, R_OK)) + return strdup (name); + if (ext) + { + strcat (name, ext); + if (!access (name, R_OK)) + return strdup (name); + } + for (path = pathlist; path != NULL && *path != '\0'; path = p) + { + int n; + + /* colon delimited */ + if ((p = strchr (path, ':')) == NULL) + p = strchr (path, '\0'); + + n = (p - path); + if (*p != '\0') + p++; + + if (n > 0 && n <= maxpath) + { + strncpy (name, path, n); + if (name[n - 1] != '/') + name[n++] = '/'; + name[n] = '\0'; + strncat (name, file, len); + + if (!access (name, R_OK)) + return strdup (name); + if (ext) + { + strcat (name, ext); + if (!access (name, R_OK)) + return strdup (name); + } + } + } + return NULL; +} + +/* + * Calculate tiling sizes and increments + * At start, p == 0, incr == xpmwidthheight + */ +static void +rxvt_pixmap_incr (unsigned int *wh, unsigned int *xy, float *incr, float *p, unsigned int widthheight, unsigned int xpmwidthheight) +{ + unsigned int cwh, cxy; + float cincr, cp; + + cp = 0; + cincr = (float)xpmwidthheight; + cxy = *xy; + cwh = *wh; + if (cwh == 1) + { /* display one image, no horizontal/vertical scaling */ + cincr = (float)widthheight; + if (xpmwidthheight <= widthheight) + { + cwh = xpmwidthheight; + cxy = (cxy * (widthheight - cwh)) / 100; /* beware! order */ + cwh += cxy; + } + else + { + cxy = 0; + cwh = widthheight; + } + } + else if (cwh < 10) + { /* fit WH images across/down screen */ + cincr *= cwh; + cxy = 0; + cwh = widthheight; + } + else + { + cincr *= 100.0 / cwh; + if (cwh < 100) + { /* contract */ + float pos; + + cwh = (cwh * widthheight) / 100; + pos = (float)cxy / 100 * widthheight - (cwh / 2); + + cxy = (widthheight - cwh); + if (pos <= 0) + cxy = 0; + else if (pos < cxy) + cxy = (int) pos; + cwh += cxy; + } + else + { /* expand */ + if (cxy > 0) + { /* position */ + float pos; + + pos = (float)cxy / 100 * xpmwidthheight - (cincr / 2); + cp = xpmwidthheight - cincr; + if (pos <= 0) + cp = 0; + else if (pos < cp) + cp = pos; + } + cxy = 0; + cwh = widthheight; + } + } + cincr /= widthheight; + *wh = cwh; + *xy = cxy; + *incr = cincr; + *p = cp; +} +#endif + /* * These GEOM strings indicate absolute size/position: * @ `WxH+X+Y' @@ -49,313 +198,974 @@ * And this GEOM string is for querying current scale/position: * @ `?' */ -/* EXTPROTO */ int -rxvt_scale_pixmap(pR_ const char *geom) +rxvt_term::scale_pixmap (const char *geom) { - int flags, changed = 0; - int x = 0, y = 0; - unsigned int w = 0, h = 0; - unsigned int n; - char *p, *str; - bgPixmap_t *bgpixmap = &(R->h->bgPixmap); - -#define MAXLEN_GEOM sizeof("[1000x1000+1000+1000]") - - if (geom == NULL) - return 0; - str = rxvt_malloc(MAXLEN_GEOM + 1); - if (!STRCMP(geom, "?")) { - sprintf(str, "[%dx%d+%d+%d]", /* can't presume snprintf() ! */ - min(bgpixmap->w, 9999), min(bgpixmap->h, 9999), - min(bgpixmap->x, 9999), min(bgpixmap->y, 9999)); - rxvt_xterm_seq(aR_ XTerm_title, str, CHAR_ST); - free(str); - return 0; - } - - if ((p = STRCHR(geom, ';')) == NULL) - p = STRCHR(geom, '\0'); - n = (p - geom); - if (n <= MAXLEN_GEOM) { - STRNCPY(str, geom, n); - str[n] = '\0'; - - flags = XParseGeometry(str, &x, &y, &w, &h); - if (!flags) { - flags |= WidthValue; - w = 0; - } /* default is tile */ - if (flags & WidthValue) { - if (!(flags & XValue)) - x = 50; - if (!(flags & HeightValue)) - h = w; - if (w && !h) { - w = (bgpixmap->w * w) / 100; - h = bgpixmap->h; - } else if (h && !w) { - w = bgpixmap->w; - h = (bgpixmap->h * h) / 100; - } - if (w > 1000) - w = 1000; - if (h > 1000) - h = 1000; - if (bgpixmap->w != (short)w) { - bgpixmap->w = (short)w; - changed++; - } - if (bgpixmap->h != (short)h) { - bgpixmap->h = (short)h; - changed++; - } - } - if (!(flags & YValue)) { - if (flags & XNegative) - flags |= YNegative; - y = x; - } - - if (!(flags & WidthValue) && geom[0] != '=') { - x += bgpixmap->x; - y += bgpixmap->y; - } else { - if (flags & XNegative) - x += 100; - if (flags & YNegative) - y += 100; - } - MIN_IT(x, 100); - MIN_IT(y, 100); - MAX_IT(x, 0); - MAX_IT(y, 0); - if (bgpixmap->x != x) { - bgpixmap->x = x; - changed++; - } - if (bgpixmap->y != y) { - bgpixmap->y = y; - changed++; - } + int flags, changed = 0; + int x = 0, y = 0; + unsigned int w = 0, h = 0; + unsigned int n; + char *p; + bgPixmap_t *bgpixmap = &bgPixmap; + +#define MAXLEN_GEOM sizeof("[10000x10000+10000+10000]") + + if (geom == NULL) + return 0; + + char str[MAXLEN_GEOM]; + + if (!strcmp (geom, "?")) + { + sprintf (str, "[%dx%d+%d+%d]", /* can't presume snprintf () ! */ + min (bgpixmap->w, 32767), min (bgpixmap->h, 32767), + min (bgpixmap->x, 32767), min (bgpixmap->y, 32767)); + process_xterm_seq (XTerm_title, str, CHAR_ST); + return 0; } - free(str); - return changed; -} -/* EXTPROTO */ -void -rxvt_resize_pixmap(pR) -{ - XGCValues gcvalue; - GC gc; - unsigned int width = TermWin_TotalWidth(); - unsigned int height = TermWin_TotalHeight(); - - if (R->TermWin.pixmap != None) - XFreePixmap(R->Xdisplay, R->TermWin.pixmap); - - if (R->h->bgPixmap.pixmap == None) { /* So be it: I'm not using pixmaps */ - R->TermWin.pixmap = None; - if (!(R->Options & Opt_transparent) || R->h->am_transparent == 0) - XSetWindowBackground(R->Xdisplay, R->TermWin.vt, - R->PixColors[Color_bg]); - return; - } - - gcvalue.foreground = R->PixColors[Color_bg]; - gc = XCreateGC(R->Xdisplay, R->TermWin.vt, GCForeground, &gcvalue); - - if (R->h->bgPixmap.pixmap != None) { /* we have a specified pixmap */ - unsigned int w = R->h->bgPixmap.w, h = R->h->bgPixmap.h, - x = R->h->bgPixmap.x, y = R->h->bgPixmap.y; - unsigned int xpmh = R->h->xpmAttr.height, - xpmw = R->h->xpmAttr.width; - - /* - * don't zoom pixmap too much nor expand really small pixmaps - */ - if (w > 1000 || h > 1000) - w = 1; - else if (width > (10 * xpmw) - || height > (10 * xpmh)) - w = 0; /* tile */ - - if (w == 0) { - /* basic X tiling - let the X server do it */ - R->TermWin.pixmap = XCreatePixmap(R->Xdisplay, R->TermWin.vt, - xpmw, xpmh, - (unsigned int)XDEPTH); - XCopyArea(R->Xdisplay, R->h->bgPixmap.pixmap, R->TermWin.pixmap, gc, - 0, 0, xpmw, xpmh, 0, 0); - } else { - float incr, p; - Pixmap tmp; - - R->TermWin.pixmap = XCreatePixmap(R->Xdisplay, R->TermWin.vt, - width, height, - (unsigned int)XDEPTH); - /* - * horizontal scaling - */ - rxvt_pixmap_incr(&w, &x, &incr, &p, width, xpmw); - - tmp = XCreatePixmap(R->Xdisplay, R->TermWin.vt, - width, xpmh, (unsigned int)XDEPTH); - XFillRectangle(R->Xdisplay, tmp, gc, 0, 0, width, - xpmh); - - for ( /*nil */ ; x < w; x++, p += incr) { - if (p >= xpmw) - p = 0; - /* copy one column from the original pixmap to the tmp pixmap */ - XCopyArea(R->Xdisplay, R->h->bgPixmap.pixmap, tmp, gc, - (int)p, 0, 1, xpmh, (int)x, 0); - } - - /* - * vertical scaling - */ - rxvt_pixmap_incr(&h, &y, &incr, &p, height, xpmh); - - if (y > 0) - XFillRectangle(R->Xdisplay, R->TermWin.pixmap, gc, 0, 0, width, - y); - if (h < height) - XFillRectangle(R->Xdisplay, R->TermWin.pixmap, gc, 0, (int)h, - width, height - h + 1); - for ( /*nil */ ; y < h; y++, p += incr) { - if (p >= xpmh) - p = 0; - /* copy one row from the tmp pixmap to the main pixmap */ - XCopyArea(R->Xdisplay, tmp, R->TermWin.pixmap, gc, - 0, (int)p, width, 1, 0, (int)y); - } - XFreePixmap(R->Xdisplay, tmp); - } - } - XSetWindowBackgroundPixmap(R->Xdisplay, R->TermWin.vt, R->TermWin.pixmap); - XFreeGC(R->Xdisplay, gc); - R->h->am_transparent = 0; + if ((p = strchr (geom, ';')) == NULL) + p = strchr (geom, '\0'); - XClearWindow(R->Xdisplay, R->TermWin.vt); + n = (p - geom); + if (n < MAXLEN_GEOM) + { + strncpy (str, geom, n); + str[n] = '\0'; + + if (strcmp(str, "auto") == 0) + { + if (!bgpixmap->auto_resize) + changed++; + bgpixmap->auto_resize = True ; + w = szHint.width ; + h = szHint.height ; + flags = WidthValue|HeightValue ; + } + else + { + bgpixmap->auto_resize = False ; + flags = XParseGeometry (str, &x, &y, &w, &h); + } + + if (!flags) + { + flags |= WidthValue; + w = 0; + } /* default is tile */ + + if (flags & WidthValue) + { + if (!(flags & XValue)) + x = 50; + + if (!(flags & HeightValue)) + h = w; + + if (w && !h) + { + w = (bgpixmap->w * w) / 100; + h = bgpixmap->h; + } + else if (h && !w) + { + w = bgpixmap->w; + h = (bgpixmap->h * h) / 100; + } + + min_it (w, 32767); + min_it (h, 32767); + + if (bgpixmap->w != (short)w) + { + bgpixmap->w = (short)w; + changed++; + } + + if (bgpixmap->h != (short)h) + { + bgpixmap->h = (short)h; + changed++; + } + } + + if (!(flags & YValue)) + { + if (flags & XNegative) + flags |= YNegative; + + y = x; + } + + if (!(flags & WidthValue) && geom[0] != '=') + { + x += bgpixmap->x; + y += bgpixmap->y; + } + + if (xpmAttr.width && xpmAttr.height) + { + x = MOD(x, xpmAttr.width); + y = MOD(y, xpmAttr.height); + } + + if (bgpixmap->x != x) + { + bgpixmap->x = x; + changed++; + } + + if (bgpixmap->y != y) + { + bgpixmap->y = y; + changed++; + } + } - XSync(R->Xdisplay, False); + return changed; } -/* - * Calculate tiling sizes and increments - * At start, p == 0, incr == xpmwidthheight - */ -/* INTPROTO */ void -rxvt_pixmap_incr(unsigned int *wh, unsigned int *xy, float *incr, float *p, unsigned int widthheight, unsigned int xpmwidthheight) +rxvt_term::resize_pixmap () { - unsigned int cwh, cxy; - float cincr, cp; + XGCValues gcvalue; + GC gc; + + if (pixmap != None) + { + XFreePixmap (dpy, pixmap); + pixmap = None ; + } + + if (bgPixmap.pixmap == None) + { /* So be it: I'm not using pixmaps */ + pixmap = None; + +#ifdef ENABLE_TRANSPARENCY + if (!option (Opt_transparent) || !am_transparent) +#endif + XSetWindowBackground (dpy, vt, pix_colors[Color_bg]); - cp = 0; - cincr = (float)xpmwidthheight; - cxy = *xy; - cwh = *wh; - if (cwh == 1) { /* display one image, no horizontal/vertical scaling */ - cincr = (float)widthheight; - if (xpmwidthheight <= widthheight) { - cwh = xpmwidthheight; - cxy = (cxy * (widthheight - cwh)) / 100; /* beware! order */ - cwh += cxy; - } else { - cxy = 0; - cwh = widthheight; - } - } else if (cwh < 10) { /* fit WH images across/down screen */ - cincr *= cwh; - cxy = 0; - cwh = widthheight; - } else { - cincr *= 100.0 / cwh; - if (cwh < 100) { /* contract */ - float pos; - - cwh = (cwh * widthheight) / 100; - pos = (float)cxy / 100 * widthheight - (cwh / 2); - - cxy = (widthheight - cwh); - if (pos <= 0) - cxy = 0; - else if (pos < cxy) - cxy = pos; - cwh += cxy; - } else { /* expand */ - if (cxy > 0) { /* position */ - float pos; - - pos = (float)cxy / 100 * xpmwidthheight - (cincr / 2); - cp = xpmwidthheight - cincr; - if (pos <= 0) - cp = 0; - else if (pos < cp) - cp = pos; - } - cxy = 0; - cwh = widthheight; - } - } - cincr /= widthheight; - *wh = cwh; - *xy = cxy; - *incr = cincr; - *p = cp; + return; + } + + gcvalue.foreground = pix_colors[Color_bg]; + gc = XCreateGC (dpy, vt, GCForeground, &gcvalue); + + if (bgPixmap.pixmap != None) + { /* we have a specified pixmap */ + unsigned int w = bgPixmap.w, h = bgPixmap.h, + x = bgPixmap.x, y = bgPixmap.y; + unsigned int xpmh = xpmAttr.height, + xpmw = xpmAttr.width; + + if (bgPixmap.auto_resize) + { + w = szHint.width ; + h = szHint.height ; + } + /* + * don't zoom pixmap too much nor expand really small pixmaps + */ + if (w > 32767 || h > 32767) + w = 1; + else if (width > (10 * xpmw) + || height > (10 * xpmh)) + w = 0; /* tile */ + + if (!w) + { + /* basic X tiling - let the X server do it */ + pixmap = XCreatePixmap (dpy, vt, xpmw, xpmh, depth); + + XCopyArea (dpy, bgPixmap.pixmap, pixmap, gc, x, y, xpmw - x, xpmh - y, 0, 0); + XCopyArea (dpy, bgPixmap.pixmap, pixmap, gc, x, 0, xpmw - x, y, 0, xpmh - y); + XCopyArea (dpy, bgPixmap.pixmap, pixmap, gc, 0, y, x, xpmh - y, xpmw - x, 0); + XCopyArea (dpy, bgPixmap.pixmap, pixmap, gc, 0, 0, x, y, xpmw - x, xpmh - y); + } + else +#ifdef HAVE_AFTERIMAGE +#ifdef ENABLE_TRANSPARENCY + if (!option(Opt_transparent) || !am_transparent) + /* will do that in check_our_parents otherwise */ +#endif + { + ASImage *scaled_im = scale_asimage (asv, original_asim, w, h, ASA_XImage, 0, ASIMAGE_QUALITY_DEFAULT); + if (scaled_im) + { + pixmap = asimage2pixmap(asv, display->root, scaled_im, gc, True); + destroy_asimage (&scaled_im); + } + } +#else /* HAVE_AFTERIMAGE */ + { + float incr, p; + Pixmap tmp; + + pixmap = XCreatePixmap (dpy, vt, width, height, depth); + /* + * horizontal scaling + */ + rxvt_pixmap_incr (&w, &x, &incr, &p, width, xpmw); + + tmp = XCreatePixmap (dpy, vt, width, xpmh, depth); + XFillRectangle (dpy, tmp, gc, 0, 0, width, xpmh); + + for ( /*nil */ ; x < w; x++, p += incr) + { + if (p >= xpmw) + p = 0; + + /* copy one column from the original pixmap to the tmp pixmap */ + XCopyArea (dpy, bgPixmap.pixmap, tmp, gc, (int)p, 0, 1, xpmh, (int)x, 0); + } + + /* + * vertical scaling + */ + rxvt_pixmap_incr (&h, &y, &incr, &p, height, xpmh); + + if (y > 0) + XFillRectangle (dpy, pixmap, gc, 0, 0, width, y); + + if (h < height) + XFillRectangle (dpy, pixmap, gc, 0, (int)h, width, height - h + 1); + + for ( /*nil */ ; y < h; y++, p += incr) + { + if (p >= xpmh) + p = 0; + + /* copy one row from the tmp pixmap to the main pixmap */ + XCopyArea (dpy, tmp, pixmap, gc, 0, (int)p, width, 1, 0, (int)y); + } + + XFreePixmap (dpy, tmp); + } +#endif /* HAVE_AFTERIMAGE */ + } + + XSetWindowBackgroundPixmap (dpy, vt, pixmap); + + XFreeGC (dpy, gc); +#ifdef ENABLE_TRANSPARENCY + am_transparent = 0; +#endif } -/* EXTPROTO */ Pixmap -rxvt_set_bgPixmap(pR_ const char *file) +rxvt_term::set_bgPixmap (const char *file) { - char *f; + char *f; + + assert (file != NULL); + + if (bgPixmap.pixmap != None) + { + XFreePixmap (dpy, bgPixmap.pixmap); + bgPixmap.pixmap = None; + } - assert(file != NULL); + XSetWindowBackground (dpy, vt, pix_colors[Color_bg]); - if (R->h->bgPixmap.pixmap != None) { - XFreePixmap(R->Xdisplay, R->h->bgPixmap.pixmap); - R->h->bgPixmap.pixmap = None; - } - XSetWindowBackground(R->Xdisplay, R->TermWin.vt, R->PixColors[Color_bg]); - - if (*file != '\0') { -/* XWindowAttributes attr; */ - - /* - * we already have the required attributes - */ -/* XGetWindowAttributes(R->Xdisplay, R->TermWin.vt, &attr); */ - - R->h->xpmAttr.closeness = 30000; - R->h->xpmAttr.colormap = XCMAP; - R->h->xpmAttr.visual = XVISUAL; - R->h->xpmAttr.depth = XDEPTH; - R->h->xpmAttr.valuemask = (XpmCloseness | XpmColormap | XpmVisual | - XpmDepth | XpmSize | XpmReturnPixels); - - /* search environment variables here too */ - f = (char *)rxvt_File_find(file, ".xpm", R->h->rs[Rs_path]); - if (f == NULL - || XpmReadFileToPixmap(R->Xdisplay, Xroot, f, - &R->h->bgPixmap.pixmap, NULL, - &R->h->xpmAttr)) { - char *p; - - /* semi-colon delimited */ - if ((p = STRCHR(file, ';')) == NULL) - p = STRCHR(file, '\0'); - - rxvt_print_error("couldn't load XPM file \"%.*s\"", (p - file), - file); - } - free(f); + if (*file != '\0') + { + /* XWindowAttributes attr; */ + + /* + * we already have the required attributes + */ + /* XGetWindowAttributes (dpy, vt, &attr); */ + +#ifdef HAVE_AFTERIMAGE + if (asimman == NULL) + asimman = create_generic_imageman(rs[Rs_path]); + if ((f = strchr (file, ';')) == NULL) + original_asim = get_asimage( asimman, file, 0xFFFFFFFF, 100 ); + else + { + size_t len = f - file; + f = (char *)malloc (len + 1); + strncpy (f, file, len); + f[len] = '\0'; + original_asim = get_asimage( asimman, f, 0xFFFFFFFF, 100 ); + free( f ); + } + if (original_asim) + { + bgPixmap.pixmap = asimage2pixmap (asv, display->root, original_asim, NULL, True); + xpmAttr.width = original_asim->width ; + xpmAttr.height = original_asim->height ; + } +#else /* HAVE_AFTERIMAGE */ + xpmAttr.closeness = 30000; + xpmAttr.colormap = cmap; + xpmAttr.visual = visual; + xpmAttr.depth = depth; + xpmAttr.valuemask = (XpmCloseness | XpmColormap | XpmVisual + | XpmDepth | XpmSize | XpmReturnPixels); + + /* search environment variables here too */ + f = rxvt_File_search_path (rs[Rs_path], file, ".xpm"); + if (f == NULL + || XpmReadFileToPixmap (dpy, display->root, f, + &bgPixmap.pixmap, NULL, + &xpmAttr)) + { + char *p; + + /* semi-colon delimited */ + if ((p = strchr (file, ';')) == NULL) + p = strchr (file, '\0'); + + rxvt_warn ("couldn't load XPM file \"%.*s\", ignoring.\n", (p - file), file); + } + free (f); +#endif /* HAVE_AFTERIMAGE */ } - rxvt_resize_pixmap(aR); - return R->h->bgPixmap.pixmap; + + resize_pixmap (); + return bgPixmap.pixmap; } #endif /* XPM_BACKGROUND */ + +#ifdef ENABLE_TRANSPARENCY +#if TINTING && !defined(HAVE_AFTERIMAGE) +/* taken from aterm-0.4.2 */ + +typedef uint32_t RUINT32T; + +static void +ShadeXImage(rxvt_term *term, XImage* srcImage, int shade, int rm, int gm, int bm) +{ + int sh_r, sh_g, sh_b; + RUINT32T mask_r, mask_g, mask_b; + RUINT32T *lookup, *lookup_r, *lookup_g, *lookup_b; + unsigned int lower_lim_r, lower_lim_g, lower_lim_b; + unsigned int upper_lim_r, upper_lim_g, upper_lim_b; + int i; + + Visual *visual = term->visual; + + if( visual->c_class != TrueColor || srcImage->format != ZPixmap ) return ; + + /* for convenience */ + mask_r = visual->red_mask; + mask_g = visual->green_mask; + mask_b = visual->blue_mask; + + /* boring lookup table pre-initialization */ + switch (srcImage->bits_per_pixel) { + case 15: + if ((mask_r != 0x7c00) || + (mask_g != 0x03e0) || + (mask_b != 0x001f)) + return; + lookup = (RUINT32T *) malloc (sizeof (RUINT32T)*(32+32+32)); + lookup_r = lookup; + lookup_g = lookup+32; + lookup_b = lookup+32+32; + sh_r = 10; + sh_g = 5; + sh_b = 0; + break; + case 16: + if ((mask_r != 0xf800) || + (mask_g != 0x07e0) || + (mask_b != 0x001f)) + return; + lookup = (RUINT32T *) malloc (sizeof (RUINT32T)*(32+64+32)); + lookup_r = lookup; + lookup_g = lookup+32; + lookup_b = lookup+32+64; + sh_r = 11; + sh_g = 5; + sh_b = 0; + break; + case 24: + if ((mask_r != 0xff0000) || + (mask_g != 0x00ff00) || + (mask_b != 0x0000ff)) + return; + lookup = (RUINT32T *) malloc (sizeof (RUINT32T)*(256+256+256)); + lookup_r = lookup; + lookup_g = lookup+256; + lookup_b = lookup+256+256; + sh_r = 16; + sh_g = 8; + sh_b = 0; + break; + case 32: + if ((mask_r != 0xff0000) || + (mask_g != 0x00ff00) || + (mask_b != 0x0000ff)) + return; + lookup = (RUINT32T *) malloc (sizeof (RUINT32T)*(256+256+256)); + lookup_r = lookup; + lookup_g = lookup+256; + lookup_b = lookup+256+256; + sh_r = 16; + sh_g = 8; + sh_b = 0; + break; + default: + return; /* we do not support this color depth */ + } + + /* prepare limits for color transformation (each channel is handled separately) */ + if (shade < 0) { + shade = -shade; + if (shade < 0) shade = 0; + if (shade > 100) shade = 100; + + lower_lim_r = 65535-rm; + lower_lim_g = 65535-gm; + lower_lim_b = 65535-bm; + + lower_lim_r = 65535-(unsigned int)(((RUINT32T)lower_lim_r)*((RUINT32T)shade)/100); + lower_lim_g = 65535-(unsigned int)(((RUINT32T)lower_lim_g)*((RUINT32T)shade)/100); + lower_lim_b = 65535-(unsigned int)(((RUINT32T)lower_lim_b)*((RUINT32T)shade)/100); + + upper_lim_r = upper_lim_g = upper_lim_b = 65535; + } else { + if (shade < 0) shade = 0; + if (shade > 100) shade = 100; + + lower_lim_r = lower_lim_g = lower_lim_b = 0; + + upper_lim_r = (unsigned int)((((RUINT32T)rm)*((RUINT32T)shade))/100); + upper_lim_g = (unsigned int)((((RUINT32T)gm)*((RUINT32T)shade))/100); + upper_lim_b = (unsigned int)((((RUINT32T)bm)*((RUINT32T)shade))/100); + } + + /* switch red and blue bytes if necessary, we need it for some weird XServers like XFree86 3.3.3.1 */ + if ((srcImage->bits_per_pixel == 24) && (mask_r >= 0xFF0000 )) + { + unsigned int tmp; + + tmp = lower_lim_r; + lower_lim_r = lower_lim_b; + lower_lim_b = tmp; + + tmp = upper_lim_r; + upper_lim_r = upper_lim_b; + upper_lim_b = tmp; + } + + /* fill our lookup tables */ + for (i = 0; i <= mask_r>>sh_r; i++) + { + RUINT32T tmp; + tmp = ((RUINT32T)i)*((RUINT32T)(upper_lim_r-lower_lim_r)); + tmp += ((RUINT32T)(mask_r>>sh_r))*((RUINT32T)lower_lim_r); + lookup_r[i] = (tmp/65535)<>sh_g; i++) + { + RUINT32T tmp; + tmp = ((RUINT32T)i)*((RUINT32T)(upper_lim_g-lower_lim_g)); + tmp += ((RUINT32T)(mask_g>>sh_g))*((RUINT32T)lower_lim_g); + lookup_g[i] = (tmp/65535)<>sh_b; i++) + { + RUINT32T tmp; + tmp = ((RUINT32T)i)*((RUINT32T)(upper_lim_b-lower_lim_b)); + tmp += ((RUINT32T)(mask_b>>sh_b))*((RUINT32T)lower_lim_b); + lookup_b[i] = (tmp/65535)<bits_per_pixel) + { + case 15: + { + unsigned short *p1, *pf, *p, *pl; + p1 = (unsigned short *) srcImage->data; + pf = (unsigned short *) (srcImage->data + srcImage->height * srcImage->bytes_per_line); + while (p1 < pf) + { + p = p1; + pl = p1 + srcImage->width; + for (; p < pl; p++) + { + *p = lookup_r[(*p & 0x7c00)>>10] | + lookup_g[(*p & 0x03e0)>> 5] | + lookup_b[(*p & 0x001f)]; + } + p1 = (unsigned short *) ((char *) p1 + srcImage->bytes_per_line); + } + break; + } + case 16: + { + unsigned short *p1, *pf, *p, *pl; + p1 = (unsigned short *) srcImage->data; + pf = (unsigned short *) (srcImage->data + srcImage->height * srcImage->bytes_per_line); + while (p1 < pf) + { + p = p1; + pl = p1 + srcImage->width; + for (; p < pl; p++) + { + *p = lookup_r[(*p & 0xf800)>>11] | + lookup_g[(*p & 0x07e0)>> 5] | + lookup_b[(*p & 0x001f)]; + } + p1 = (unsigned short *) ((char *) p1 + srcImage->bytes_per_line); + } + break; + } + case 24: + { + unsigned char *p1, *pf, *p, *pl; + p1 = (unsigned char *) srcImage->data; + pf = (unsigned char *) (srcImage->data + srcImage->height * srcImage->bytes_per_line); + while (p1 < pf) + { + p = p1; + pl = p1 + srcImage->width * 3; + for (; p < pl; p += 3) + { + p[0] = lookup_r[(p[0] & 0xff0000)>>16]; + p[1] = lookup_r[(p[1] & 0x00ff00)>> 8]; + p[2] = lookup_r[(p[2] & 0x0000ff)]; + } + p1 = (unsigned char *) ((char *) p1 + srcImage->bytes_per_line); + } + break; + } + case 32: + { + RUINT32T *p1, *pf, *p, *pl; + p1 = (RUINT32T *) srcImage->data; + pf = (RUINT32T *) (srcImage->data + srcImage->height * srcImage->bytes_per_line); + + while (p1 < pf) + { + p = p1; + pl = p1 + srcImage->width; + for (; p < pl; p++) + { + *p = lookup_r[(*p & 0xff0000)>>16] | + lookup_g[(*p & 0x00ff00)>> 8] | + lookup_b[(*p & 0x0000ff)] | + (*p & ~0xffffff); + } + p1 = (RUINT32T *) ((char *) p1 + srcImage->bytes_per_line); + } + break; + } + } + + free (lookup); +} +#endif + +/* + * Check our parents are still who we think they are. + * Do transparency updates if required + */ +int +rxvt_term::check_our_parents () +{ + check_our_parents_ev.stop (); + check_our_parents_ev.start (NOW + .1); + return 0; +} + +void +rxvt_term::check_our_parents_cb (time_watcher &w) +{ + int i, pchanged, aformat, have_pixmap, rootdepth; + unsigned long nitems, bytes_after; + Atom atype; + unsigned char *prop = NULL; + Window root, oldp, *list; + Pixmap rootpixmap = None; + XWindowAttributes wattr, wrootattr; + int sx, sy; + Window cr; + + pchanged = 0; + + if (!option (Opt_transparent)) + return /*pchanged*/; /* Don't try any more */ + + XGetWindowAttributes (dpy, display->root, &wrootattr); + rootdepth = wrootattr.depth; + + XGetWindowAttributes (dpy, parent[0], &wattr); + + if (rootdepth != wattr.depth) + { + if (am_transparent) + { + pchanged = 1; + XSetWindowBackground (dpy, vt, pix_colors_focused[Color_bg]); + am_transparent = am_pixmap_trans = 0; + } + + return /*pchanged*/; /* Don't try any more */ + } + + /* Get all X ops out of the queue so that our information is up-to-date. */ + XSync (dpy, False); + + XTranslateCoordinates (dpy, parent[0], display->root, + 0, 0, &sx, &sy, &cr); + + /* check if we are outside of the visible part of the virtual screen : */ + if( sx + (int)szHint.width <= 0 || sy + (int)szHint.height <= 0 + || sx >= wrootattr.width || sy >= wrootattr.height ) + return /* 0 */ ; + /* + * Make the frame window set by the window manager have + * the root background. Some window managers put multiple nested frame + * windows for each client, so we have to take care about that. + */ + i = (xa[XA_XROOTPMAP_ID] + && XGetWindowProperty (dpy, display->root, xa[XA_XROOTPMAP_ID], + 0L, 1L, False, XA_PIXMAP, &atype, &aformat, + &nitems, &bytes_after, &prop) == Success); + + if (!i || prop == NULL) + i = (xa[XA_ESETROOT_PMAP_ID] + && XGetWindowProperty (dpy, display->root, xa[XA_ESETROOT_PMAP_ID], + 0L, 1L, False, XA_PIXMAP, &atype, &aformat, + &nitems, &bytes_after, &prop) == Success); + + if (!i || prop == NULL +#if TINTING + || (!ISSET_PIXCOLOR (Color_tint) && rs[Rs_shade] == NULL +#ifdef HAVE_AFTERIMAGE + && original_asim == NULL && rs[Rs_blurradius] == NULL +#endif + ) +#endif + ) + have_pixmap = 0; + else + { + have_pixmap = 1; + rootpixmap = *(Pixmap *)prop; + XFree (prop); + } + + if (have_pixmap) + { + Bool success = False; + GC gc = NULL; + XGCValues gcvalue; + unsigned int pmap_w = 0, pmap_h = 0; + +#ifdef HAVE_AFTERIMAGE + { + Pixmap tmp_pmap = None; + ShadingInfo shade; + ARGB32 tint; + + if (get_dpy_drawable_size (dpy, rootpixmap, &pmap_w, &pmap_h)) + { + int root_x = 0, root_y = 0; + + shade.shading = rs[Rs_shade] ? atoi (rs[Rs_shade]) : 100; + if (ISSET_PIXCOLOR (Color_tint)) + { + rgba c; + pix_colors_focused [Color_tint].get (c); + shade.tintColor.red = c.r; + shade.tintColor.green = c.g; + shade.tintColor.blue = c.b; + } + else + shade.tintColor.red = shade.tintColor.green = shade.tintColor.blue = 0xFFFF; + tint = shading2tint32 (&shade); + gc = XCreateGC (dpy, vt, 0UL, &gcvalue); + if (get_dpy_window_position (dpy, display->root, parent[0], NULL, NULL, &root_x, &root_y)) + { + ASImageLayer *layers = create_image_layers (2); + ASImage *merged_im = NULL; + int back_x, back_y, back_w, back_h; + /* merge_layers does good job at tiling background appropriately, + so all we need is to cut out smallest possible piece : */ +#define MAKE_ROOTPMAP_GEOM(xy,wh,widthheight) \ + do{ while( root_##xy < 0 ) root_##xy += (int)wrootattr.widthheight; \ + back_##xy = root_##xy % pmap_##wh; /* that gives us left side of the closest tile : */ \ + if( pmap_##wh >= back_##xy + szHint.widthheight ) \ + back_##wh = szHint.widthheight;/* background is large - limit it by our size */ \ + else \ + { /* small background - need the whole of it for successfull tiling :*/ \ + back_##xy = 0; \ + back_##wh = pmap_##wh; \ + }}while(0) + + MAKE_ROOTPMAP_GEOM(x,w,width); + MAKE_ROOTPMAP_GEOM(y,h,height); + + layers[0].im = pixmap2asimage (asv, rootpixmap, back_x, back_y, back_w, back_h, AllPlanes, ASA_ASImage, 100); + layers[0].clip_x = (back_w == pmap_w)?root_x:0; + layers[0].clip_y = (back_h == pmap_h)?root_y:0; + layers[0].clip_width = szHint.width; + layers[0].clip_height = szHint.height; + layers[0].tint = tint; + if (rs[Rs_blurradius] && layers[0].im) + { + double r = atof(rs[Rs_blurradius]); + ASImage* tmp = blur_asimage_gauss (asv, layers[0].im, r, r, 0xFFFFFFFF, ASA_ASImage, 100, ASIMAGE_QUALITY_DEFAULT); + if (tmp) + { + destroy_asimage (&layers[0].im); + layers[0].im = tmp; + } + } + if (original_asim != NULL) + { + int fore_w, fore_h; + layers[1].im = original_asim; + if (bgPixmap.auto_resize) + { + fore_w = szHint.width; + fore_h = szHint.height; + } + else + { + fore_w = bgPixmap.w; + fore_h = bgPixmap.h; + } + if (fore_w != original_asim->width + || fore_h != original_asim->height) + { + layers[1].im = scale_asimage (asv, + original_asim, + fore_w, fore_h, + ASA_ASImage, 100, + ASIMAGE_QUALITY_DEFAULT); + } + + layers[1].clip_width = szHint.width; + layers[1].clip_height = szHint.height; + + if (rs[Rs_blendtype]) + { + layers[1].merge_scanlines = blend_scanlines_name2func (rs[Rs_blendtype]); + if (layers[1].merge_scanlines == NULL) + layers[1].merge_scanlines = alphablend_scanlines; + } + } + merged_im = merge_layers (asv, layers, layers[1].im?2:1, + szHint.width, szHint.height, + ASA_XImage, 0, ASIMAGE_QUALITY_DEFAULT); + if (layers[1].im != original_asim) + destroy_asimage (&(layers[1].im)); + destroy_asimage (&(layers[0].im)); + if (merged_im != NULL) + { + tmp_pmap = asimage2pixmap (asv, DefaultRootWindow(dpy), merged_im, gc, True); + destroy_asimage (&merged_im); + } + free (layers); + } + } + if (tmp_pmap != None) + { + success = True; + if (pixmap != None) + XFreePixmap (dpy, pixmap); + pixmap = tmp_pmap; + } + } +#else /* HAVE_AFTERIMAGE */ + { + /* + * Copy display->root pixmap transparency + */ + Window wjunk; + int junk; + unsigned int ujunk; + /* root pixmap may be bad - allow a error */ + allowedxerror = -1; + if (XGetGeometry (dpy, rootpixmap, &wjunk, &junk, &junk, &pmap_w, &pmap_h, &ujunk, &ujunk)) + { + XImage *image = NULL; + int shade = 100; + rgba c (rgba::MAX_CC,rgba::MAX_CC,rgba::MAX_CC); + Bool whole_tint = False; + + while (sx < 0) sx += (int)wrootattr.width; + while (sy < 0) sy += (int)wrootattr.height; + + if (pixmap != None) + XFreePixmap (dpy, pixmap); + pixmap = XCreatePixmap (dpy, vt, szHint.width, szHint.height, rootdepth); + +#if TINTING + if (rs[Rs_shade]) + shade = atoi (rs[Rs_shade]); + if (ISSET_PIXCOLOR (Color_tint)) + pix_colors_focused [Color_tint].get (c); +#define IS_COMPONENT_WHOLESOME(c) ((c) <=0x000700 || (c)>=0x00f700) + if (shade >= 100) + whole_tint = (IS_COMPONENT_WHOLESOME(c.r) + && IS_COMPONENT_WHOLESOME(c.g) + && IS_COMPONENT_WHOLESOME(c.b)); +#undef IS_COMPONENT_WHOLESOME + + /* If No tinting to be done - simply tile root pixmap on our pixmap - + * no need in XImage at all, thus following if() only for case with tinting */ + if (whole_tint || pmap_w < sx + szHint.width || pmap_h < sy + szHint.height) +#endif /* TINTING */ + { + gcvalue.tile = rootpixmap; + gcvalue.fill_style = FillTiled; + gcvalue.ts_x_origin = -sx; + gcvalue.ts_y_origin = -sy; + gc = XCreateGC (dpy, rootpixmap, GCFillStyle | GCTile | GCTileStipXOrigin | GCTileStipYOrigin, &gcvalue); + XFillRectangle (dpy, pixmap, gc, 0, 0, szHint.width, szHint.height); +#if TINTING + if (whole_tint) + { + /* In this case we can tint image server-side getting significant + * performance improvements, as we eliminate XImage transfer + */ + gcvalue.foreground = Pixel (pix_colors_focused [Color_tint]); + gcvalue.function = GXand; + gcvalue.fill_style = FillSolid; + XChangeGC (dpy, gc, GCFillStyle | GCForeground | GCFunction, &gcvalue); + XFillRectangle (dpy, pixmap, gc, 0, 0, szHint.width, szHint.height); + success = True; + } + else + image = XGetImage (dpy, pixmap, 0, 0, szHint.width, szHint.height, AllPlanes, ZPixmap); +#else + success = True; +#endif /* TINTING */ + } +#if TINTING + if (!success && image == NULL) + image = XGetImage (dpy, rootpixmap, sx, sy, szHint.width, szHint.height, AllPlanes, ZPixmap); + if (image != NULL) + { + if (gc == NULL) + gc = XCreateGC (dpy, vt, 0UL, &gcvalue); + if (ISSET_PIXCOLOR (Color_tint) || shade != 100) + ShadeXImage (this, image, shade, c.r, c.g, c.b); + XPutImage (dpy, pixmap, gc, image, 0, 0, 0, 0, image->width, image->height); + XDestroyImage (image); + success = True; + } +#endif + } + allowedxerror = 0; + } +#endif /* HAVE_AFTERIMAGE */ + if (gc != NULL) + XFreeGC (dpy, gc); + + if (!success) + { + if (am_transparent && am_pixmap_trans) + { + pchanged = 1; + if (pixmap != None) + { + XFreePixmap (dpy, pixmap); + pixmap = None; + } + } + + am_pixmap_trans = 0; + } + else + { + XSetWindowBackgroundPixmap (dpy, parent[0], pixmap); + XClearWindow (dpy, parent[0]); + + if (!am_transparent || !am_pixmap_trans) + pchanged = 1; + + am_transparent = am_pixmap_trans = 1; + } + } + + if (am_pixmap_trans) + XSetWindowBackgroundPixmap (dpy, vt, ParentRelative); + else + { + unsigned int n; + /* + * InheritPixmap transparency + */ + for (i = 1; i < (int) (sizeof (parent) / sizeof (Window)); i++) + { + oldp = parent[i]; + XQueryTree (dpy, parent[i - 1], &root, &parent[i], &list, &n); + XFree (list); + + if (parent[i] == display->root) + { + if (oldp != None) + pchanged = 1; + + break; + } + + if (oldp != parent[i]) + pchanged = 1; + } + + n = 0; + + if (pchanged) + for (; n < (unsigned int)i; n++) + { + XGetWindowAttributes (dpy, parent[n], &wattr); + + if (wattr.depth != rootdepth || wattr.c_class == InputOnly) + { + n = (int) (sizeof (parent) / sizeof (Window)) + 1; + break; + } + } + + if (n > (sizeof (parent) / sizeof (parent[0]))) + { + XSetWindowBackground (dpy, parent[0], pix_colors_focused[Color_border]); + XSetWindowBackground (dpy, vt, pix_colors_focused[Color_bg]); + am_transparent = 0; + /* XXX: also turn off Opt_transparent? */ + } + else + { + for (n = 0; n < (unsigned int)i; n++) + { + XSetWindowBackgroundPixmap (dpy, parent[n], ParentRelative); + XClearWindow (dpy, parent[n]); + } + + XSetWindowBackgroundPixmap (dpy, vt, ParentRelative); + am_transparent = 1; + } + + for (; i < (int) (sizeof (parent) / sizeof (Window)); i++) + parent[i] = None; + } + + if (scrollBar.win) + { + XSetWindowBackgroundPixmap (dpy, scrollBar.win, ParentRelative); + scrollBar.setIdle (); + scrollbar_show (0); + } + + if (am_transparent) + { + want_refresh = want_full_refresh = 1; + if (am_pixmap_trans) + flush (); + } + +// return pchanged; +} +#endif