--- rxvt-unicode/src/xpm.C 2004/04/02 20:41:01 1.11 +++ rxvt-unicode/src/xpm.C 2007/08/07 15:23:11 1.61 @@ -1,12 +1,12 @@ -/*--------------------------------*-C-*---------------------------------* - * File: xpm.c +/*----------------------------------------------------------------------* + * File: xpm.C *----------------------------------------------------------------------* - * $Id: xpm.C,v 1.11 2004/04/02 20:41:01 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,372 +25,1190 @@ #include "../config.h" /* NECESSARY */ #include "rxvt.h" /* NECESSARY */ -#include "xpm.intpro" /* PROTOS for internal routines */ - -#ifdef XPM_BACKGROUND /* - * These GEOM strings indicate absolute size/position: - * @ `WxH+X+Y' - * @ `WxH+X' -> Y = X - * @ `WxH' -> Y = X = 50 - * @ `W+X+Y' -> H = W - * @ `W+X' -> H = W, Y = X - * @ `W' -> H = W, X = Y = 50 - * @ `0xH' -> H *= H/100, X = Y = 50 (W unchanged) - * @ `Wx0' -> W *= W/100, X = Y = 50 (H unchanged) - * @ `=+X+Y' -> (H, W unchanged) - * @ `=+X' -> Y = X (H, W unchanged) + * Pixmap geometry string interpretation : + * Each geometry string contains zero or one scale/position + * adjustment and may optionally be followed by a colon and one or more + * colon-delimited pixmap operations. + * The following table shows the valid geometry strings and their + * affects on the background image : + * + * WxH+X+Y Set scaling to W% by H%, and position to X% by Y%. + * W and H are percentages of the terminal window size. + * X and Y are also percentages; e.g., +50+50 centers + * the image in the window. + * WxH+X Assumes Y == X + * WxH Assumes Y == X == 50 (centers the image) + * W+X+Y Assumes H == W + * W+X Assumes H == W and Y == X + * W Assumes H == W and Y == X == 50 + * + * Adjusting position only : + * =+X+Y Set position to X% by Y% (absolute). + * =+X Set position to X% by X%. + * +X+Y Adjust position horizontally X% and vertically Y% + * from current position (relative). + * +X Adjust position horizontally X% and vertically X% + * from current position. * - * These GEOM strings adjust position relative to current position: - * @ `+X+Y' - * @ `+X' -> Y = X + * Adjusting scale only : + * Wx0 Multiply horizontal scaling factor by W% + * 0xH Multiply vertical scaling factor by H% + * 0x0 No scaling (show image at normal size). * - * And this GEOM string is for querying current scale/position: - * @ `?' + * Pixmap Operations : (should be prepended by a colon) + * tile Tile image. Scaling/position modifiers above will affect + * the tile size and origin. + * propscale When scaling, scale proportionally. That is, maintain the + * proper aspect ratio for the image. Any portion of the + * background not covered by the image is filled with the + * current background color. + * hscale Scale horizontally, tile vertically ? + * vscale Tile horizontally, scale vertically ? + * scale Scale both up and down + * auto Same as 100x100+50+50 */ -int -rxvt_term::scale_pixmap (const char *geom) + +#ifdef HAVE_BG_PIXMAP +bool +bgPixmap_t::window_size_sensitive () +{ +#ifdef XPM_BACKGROUND +#ifdef HAVE_AFTERIMAGE + if (original_asim != NULL) +#endif + { + if (h_scale != 0 || v_scale != 0) + return true; + } +#endif +#ifdef ENABLE_TRANSPARENCY + if (flags & bgPmap_Transparent) + return true; +#endif + return false; +} + +#ifdef XPM_BACKGROUND +static inline bool +check_set_scale_value (int geom_flags, int flag, unsigned int &scale, unsigned int new_value) +{ + if (geom_flags & flag) + { + if (new_value > 1000) + new_value = 1000; + if (new_value != scale) + { + scale = new_value; + return true; + } + } + return false; +} + +static inline bool +check_set_align_value (int geom_flags, int flag, int &align, int new_value) +{ + if (geom_flags & flag) + { + if (new_value < -100) + new_value = -100; + else if (new_value > 200) + new_value = 200; + if (new_value != align) + { + align = new_value; + return true; + } + } + return false; +} + +static inline int +make_align_position (int align, int window_size, int image_size) { - int flags, changed = 0; - int x = 0, y = 0; - unsigned int w = 0, h = 0; - unsigned int n; - char *p, *str; - bgPixmap_t *bgpixmap = & (bgPixmap); + int diff = window_size - image_size; + int smaller = MIN (image_size,window_size); + + if (align >= 0 && align <= 50) + return diff * align / 100; + else if (align > 50 && align <= 100) + return window_size - image_size + diff * align / 100; + else if (align > 100 && align <= 200 ) + return ((align - 100) * smaller / 100) + window_size - smaller; + else if (align > -100 && align < 0) + return ((align + 100) * smaller / 100) - image_size; + return 0; +} -#define MAXLEN_GEOM sizeof("[1000x1000+1000+1000]") +static inline void +make_clip_rectangle (int pos, int size, int target_size, int &clip_pos, int &clip_size) +{ + if (size <= 0) + { /* special case - tiling */ + clip_pos = pos; + clip_size = target_size; + } + else if (pos < 0) + { + clip_pos = 0; + clip_size = MIN (target_size, size + pos); + } + else + { + clip_pos = pos; + clip_size = size; + if (pos < target_size && (int)clip_size > target_size - pos) + clip_pos = target_size - pos; + } +} + +bool +bgPixmap_t::handle_geometry (const char *geom) +{ + int geom_flags = 0, changed = 0; + int x = 0, y = 0; + unsigned int w = 0, h = 0; + unsigned int n; + unsigned long new_flags = (flags&(~bgPmap_geometryFlags)); + char *p; +#define MAXLEN_GEOM 256 /* could be longer then regular geometry string */ if (geom == NULL) - return 0; - str = (char *)rxvt_malloc (MAXLEN_GEOM + 1); - if (!STRCMP (geom, "?")) + return false; + + char str[MAXLEN_GEOM]; + + if (!strcmp (geom, "?")) { +#if 0 /* TODO: */ 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)); + min (h_scale, 32767), min (v_scale, 32767), + min (h_align, 32767), min (v_align, 32767)); process_xterm_seq (XTerm_title, str, CHAR_ST); - free (str); - return 0; +#endif + return false; } + while (isspace(*geom)) ++geom; + if ((p = strchr (geom, ';')) == NULL) + p = strchr (geom, '\0'); - if ((p = STRCHR (geom, ';')) == NULL) - p = STRCHR (geom, '\0'); n = (p - geom); - if (n <= MAXLEN_GEOM) + if (n < MAXLEN_GEOM) { - STRNCPY (str, geom, n); - str[n] = '\0'; + char *ops; + new_flags |= bgPmap_geometrySet; - flags = XParseGeometry (str, &x, &y, &w, &h); - if (!flags) - { - flags |= WidthValue; - w = 0; - } /* default is tile */ - if (flags & WidthValue) + strncpy (str, geom, n); + str[n] = '\0'; + if (str[0] == ':') + ops = &str[0]; + else if (str[0] != 'x' && str[0] != 'X' && isalpha(str[0])) + ops = &str[0]; + else { - if (! (flags & XValue)) - x = 50; - if (! (flags & HeightValue)) - h = w; - if (w && !h) + char *tmp; + ops = strchr (str, ':'); + if (ops != NULL) { - w = (bgpixmap->w * w) / 100; - h = bgpixmap->h; + for (tmp = ops-1; tmp >= str && isspace(*tmp); --tmp); + *(++tmp) = '\0'; + if (ops == tmp) ++ops; } - else if (h && !w) + } + + if (ops > str || ops == NULL) + { + /* we have geometry string - let's handle it prior to applying ops */ + geom_flags = XParseGeometry (str, &x, &y, &w, &h); + + if ((geom_flags & XValue) && !(geom_flags & YValue)) { - w = bgpixmap->w; - h = (bgpixmap->h * h) / 100; + y = x; + geom_flags |= YValue; } - if (w > 1000) - w = 1000; - if (h > 1000) - h = 1000; - if (bgpixmap->w != (short)w) - { - bgpixmap->w = (short)w; - changed++; + + if (flags & bgPmap_geometrySet) + {/* new geometry is an adjustment to the old one ! */ + if ((geom_flags & WidthValue) && (geom_flags & HeightValue)) + { + if (w == 0 && h != 0) + { + w = h_scale; + h = (v_scale * h) / 100; + } + else if (h == 0 && w != 0) + { + w = (h_scale * w) / 100; + h = v_scale; + } + } + if (geom_flags & XValue) + { + if (str[0] != '=') + { + y += v_align; + x += h_align; + } + } } - if (bgpixmap->h != (short)h) + else /* setting up geometry from scratch */ { - bgpixmap->h = (short)h; - changed++; + if (!(geom_flags & XValue)) + {/* use default geometry - centered */ + x = y = bgPmap_defaultAlign; + } + else if (!(geom_flags & YValue)) + y = x; + + if ((geom_flags & (WidthValue|HeightValue)) == 0) + {/* use default geometry - scaled */ + w = h = bgPmap_defaultScale; + } + else if (geom_flags & WidthValue) + { + if (!(geom_flags & HeightValue)) + h = w; + } + else + w = h; } + } /* done parsing geometry string */ + else if (!(flags & bgPmap_geometrySet)) + { /* default geometry - scaled and centered */ + x = y = bgPmap_defaultAlign; + w = h = bgPmap_defaultScale; } - if (! (flags & YValue)) + + if (!(flags & bgPmap_geometrySet)) + geom_flags |= WidthValue|HeightValue|XValue|YValue; + + if (ops) { - if (flags & XNegative) - flags |= YNegative; - y = x; + while (*ops) + { + while (*ops == ':' || isspace(*ops)) ++ops; +#define CHECK_GEOM_OPS(op_str) (strncasecmp (ops, (op_str), sizeof(op_str)-1) == 0) + if (CHECK_GEOM_OPS("tile")) + { + w = h = 0; + geom_flags |= WidthValue|HeightValue; + } + else if (CHECK_GEOM_OPS("propscale")) + { + if (w == 0 && h == 0) + { + w = 100; + geom_flags |= WidthValue; + } + new_flags |= bgPmap_propScale; + } + else if (CHECK_GEOM_OPS("hscale")) + { + if (w == 0) + w = 100; + h = 0; + geom_flags |= WidthValue|HeightValue; + } + else if (CHECK_GEOM_OPS("vscale")) + { + if (h == 0) + h = 100; + w = 0; + geom_flags |= WidthValue|HeightValue; + } + else if (CHECK_GEOM_OPS("scale")) + { + if (h == 0) + h = 100; + if (w == 0) + w = 100; + geom_flags |= WidthValue|HeightValue; + } + else if (CHECK_GEOM_OPS("auto")) + { + w = h = 100; + x = y = 50; + geom_flags |= WidthValue|HeightValue|XValue|YValue; + } +#undef CHECK_GEOM_OPS + while (*ops != ':' && *ops != '\0') ++ops; + } /* done parsing ops */ } - if (! (flags & WidthValue) && geom[0] != '=') + if (check_set_scale_value (geom_flags, WidthValue, h_scale, w)) + ++changed; + if (check_set_scale_value (geom_flags, HeightValue, v_scale, h)) + ++changed; + if (check_set_align_value (geom_flags, XValue, h_align, x)) + ++changed; + if (check_set_align_value (geom_flags, YValue, v_align, y)) + ++changed; + } + + if (new_flags != flags) + { + flags = new_flags; + changed++; + } +//fprintf( stderr, "flags = %lX, scale = %ux%u, align=%+d%+d\n", +// flags, h_scale, v_scale, h_align, v_align); + return (changed > 0); +} + +#ifdef HAVE_AFTERIMAGE +bool +bgPixmap_t::render_asim (rxvt_term *target, ASImage *background, ARGB32 background_tint) +{ + if (target == NULL) + return false; + + int target_width = (int)target->szHint.width; + int target_height = (int)target->szHint.height; + int new_pmap_width = target_width, new_pmap_height = target_height; + ASImage *result = NULL; + + int x = 0; + int y = 0; + int w = h_scale * target_width / 100; + int h = v_scale * target_height / 100; + + if (original_asim) + { + x = make_align_position (h_align, target_width, w > 0 ? w : (int)original_asim->width); + y = make_align_position (v_align, target_height, h > 0 ? h : (int)original_asim->height); + } + + int dst_x, dst_y; + int clip_width, clip_height; + + make_clip_rectangle (x, w, target_width, dst_x, clip_width); + make_clip_rectangle (y, h, target_height, dst_y, clip_height); + + /* TODO : actuall scaling code :) */ + if (dst_x >= target_width || dst_y >= target_height + || clip_width <= 0 || clip_height <= 0 || original_asim == NULL) + { + result = background; + dst_x = dst_y = 0; + if (background) { - x += bgpixmap->x; - y += bgpixmap->y; + new_pmap_width = clip_width = background->width; + new_pmap_height = clip_height = background->height; } else + new_pmap_width = new_pmap_height = 0; + } + else + { + result = original_asim; + if ((w > 0 && w != original_asim->width) + || (h > 0 && h != original_asim->height)) { - if (flags & XNegative) - x += 100; - if (flags & YNegative) - y += 100; + result = scale_asimage (target->asv, original_asim, + w > 0 ? w : original_asim->width, + h > 0 ? h : original_asim->height, + background ? ASA_ASImage : ASA_XImage, + 100, ASIMAGE_QUALITY_DEFAULT); + } + if (background == NULL) + {/* if tiling - pixmap has to be sized exactly as the image */ + if (h_scale == 0) + new_pmap_width = result->width; + if (v_scale == 0) + new_pmap_height = result->height; } - MIN_IT (x, 100); - MIN_IT (y, 100); - MAX_IT (x, 0); - MAX_IT (y, 0); - if (bgpixmap->x != x) + else + {/* if blending background and image - pixmap has to be sized same as target window */ + ASImageLayer *layers = create_image_layers (2); + ASImage *merged_im = NULL; + + layers[0].im = background; + layers[0].clip_width = target_width; + layers[0].clip_height = target_height; + layers[0].tint = background_tint; + layers[1].im = result; + if (w <= 0) + {/* tile horizontally */ + layers[1].dst_x = dst_x - (int)result->width; + layers[1].clip_width = result->width; + } + else + {/* clip horizontally */ + layers[1].dst_x = dst_x; + layers[1].clip_width = clip_width; + } + if (h <= 0) + { + layers[1].dst_y = dst_y - (int)result->height; + layers[1].clip_height = result->height; + } + else + { + layers[1].dst_y = dst_y; + layers[1].clip_height = clip_height; + } + if (target->rs[Rs_blendtype]) + { + layers[1].merge_scanlines = blend_scanlines_name2func (target->rs[Rs_blendtype]); + if (layers[1].merge_scanlines == NULL) + layers[1].merge_scanlines = alphablend_scanlines; + } + ASImage *tmp = merge_layers (target->asv, layers, 2, target_width, target_height, + ASA_XImage, 0, ASIMAGE_QUALITY_DEFAULT); + if (tmp) + { + if (result != original_asim) + destroy_asimage (&result); + result = tmp; + dst_x = dst_y = 0; + clip_width = target_width; + clip_height = target_height; + } + free (layers); + } + } + + if (pixmap) + { + if (result == NULL + || pmap_width != new_pmap_width + || pmap_height != new_pmap_height + || pmap_depth != target->depth) { - bgpixmap->x = x; - changed++; + XFreePixmap (target->dpy, pixmap); + pixmap = None; } - if (bgpixmap->y != y) + } + + if (result) + { + XGCValues gcv; + GC gc; + + /* create Pixmap */ + if (pixmap == None) { - bgpixmap->y = y; - changed++; + pixmap = XCreatePixmap (target->dpy, target->vt, new_pmap_width, new_pmap_height, target->depth); + pmap_width = new_pmap_width; + pmap_height = new_pmap_height; + pmap_depth = target->depth; } + /* fill with background color ( if result's not completely overlapping it)*/ + gcv.foreground = target->pix_colors[Color_bg]; + gc = XCreateGC (target->dpy, target->vt, GCForeground, &gcv); + + if (dst_x > 0 || dst_y > 0 + || dst_x + clip_width < new_pmap_width + || dst_y + clip_height < new_pmap_height) + { + XFillRectangle (target->dpy, pixmap, gc, 0, 0, new_pmap_width, new_pmap_height); + } + /* put result on pixmap */ + asimage2drawable (target->asv, pixmap, result, gc, 0, 0, dst_x, dst_y, clip_width, clip_height, True); + + /* set target's background to pixmap */ + XSetWindowBackgroundPixmap (target->dpy, target->vt, pixmap); + + XFreeGC (target->dpy, gc); + } + else + { + /* set target background to a pixel */ + XSetWindowBackground (target->dpy, target->vt, target->pix_colors[Color_bg]); } - free (str); - return changed; + + return true; } +#endif void rxvt_term::resize_pixmap () { - XGCValues gcvalue; - GC gc; - unsigned int width = TermWin_TotalWidth (); - unsigned int height = TermWin_TotalHeight (); - - if (TermWin.pixmap != None) - XFreePixmap (display->display, TermWin.pixmap); + XGCValues gcvalue; + GC gc; + unsigned int w = bgPixmap.h_scale*szHint.width/100; + unsigned int h = bgPixmap.v_scale*szHint.height/100; + int x = bgPixmap.h_align*szHint.width/100; + int y = bgPixmap.v_align*szHint.height/100; +#ifdef HAVE_AFTERIMAGE + ASImage *im = bgPixmap.original_asim; +#else + void *im = NULL; +#endif +/* preliminary cleanup - this needs to be integrated with check_our_parents() code */ + if (bgPixmap.pixmap != None) + { + XFreePixmap (dpy, bgPixmap.pixmap); + bgPixmap.pixmap = None ; + } +#ifdef ENABLE_TRANSPARENCY + if (option(Opt_transparent) && am_transparent) + { + /* we need to re-generate transparency pixmap in that case ! */ + check_our_parents (); + return; + } +#endif - if (bgPixmap.pixmap == None) + if (im == NULL) { /* So be it: I'm not using pixmaps */ - TermWin.pixmap = None; - if (! (Options & Opt_transparent) || am_transparent == 0) - XSetWindowBackground (display->display, TermWin.vt, - PixColors[Color_bg]); + XSetWindowBackground (dpy, vt, pix_colors[Color_bg]); return; } - gcvalue.foreground = PixColors[Color_bg]; - gc = XCreateGC (display->display, TermWin.vt, GCForeground, &gcvalue); + 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; + /* don't zoom pixmap too much nor expand really small pixmaps */ + if (w > 16000) + w = 1; + if (h > 16000) + h = 1; + +#ifdef HAVE_AFTERIMAGE + if (w == 0) + w = im->width; + if (h == 0) + h = im->height; - /* - * 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 */ - TermWin.pixmap = XCreatePixmap (display->display, TermWin.vt, - xpmw, xpmh, - (unsigned int)XDEPTH); - XCopyArea (display->display, bgPixmap.pixmap, TermWin.pixmap, gc, - 0, 0, xpmw, xpmh, 0, 0); - } - else + if (w != im->width || h != im->height) + { + ASImage *tmp = scale_asimage (asv, im, w, h, (x == 0 && y == 0)?ASA_XImage:ASA_ASImage, 0, ASIMAGE_QUALITY_DEFAULT); + if (tmp != NULL) + im = tmp; + } + bgPixmap.pmap_width = MIN(w,szHint.width); + bgPixmap.pmap_height = MIN(h,szHint.height); +#if 0 /* TODO: fix that! */ + if (x != 0 || y != 0) + { + ASImage *tmp = tile_asimage (asv, im, x, y, w, h, TINT_LEAVE_SAME, ASA_XImage, 0, ASIMAGE_QUALITY_DEFAULT); + if (tmp != NULL) { - float incr, p; - Pixmap tmp; + if (im != bgPixmap.original_asim) + destroy_asimage (&im); + im = tmp; + } + } +#endif + bgPixmap.pixmap = XCreatePixmap (dpy, vt, bgPixmap.pmap_width, bgPixmap.pmap_height, depth); + bgPixmap.pmap_depth = depth; + + asimage2drawable (asv, bgPixmap.pixmap, im, gc, 0, 0, 0, 0, bgPixmap.pmap_width, bgPixmap.pmap_height, True); + + if (im != bgPixmap.original_asim) + destroy_asimage (&im); +#endif + if( bgPixmap.pixmap ) + XSetWindowBackgroundPixmap (dpy, vt, bgPixmap.pixmap); - TermWin.pixmap = XCreatePixmap (display->display, TermWin.vt, - width, height, - (unsigned int)XDEPTH); - /* - * horizontal scaling - */ - rxvt_pixmap_incr (&w, &x, &incr, &p, width, xpmw); + XFreeGC (dpy, gc); +} - tmp = XCreatePixmap (display->display, TermWin.vt, - width, xpmh, (unsigned int)XDEPTH); - XFillRectangle (display->display, tmp, gc, 0, 0, width, - xpmh); +void +rxvt_term::set_bgPixmap (const char *file) +{ + char *f; - for ( /*nil */ ; x < w; x++, p += incr) - { - if (p >= xpmw) - p = 0; - /* copy one column from the original pixmap to the tmp pixmap */ - XCopyArea (display->display, bgPixmap.pixmap, tmp, gc, - (int)p, 0, 1, xpmh, (int)x, 0); - } + assert (file != NULL); - /* - * vertical scaling - */ - rxvt_pixmap_incr (&h, &y, &incr, &p, height, xpmh); + if (bgPixmap.pixmap != None) + { + XFreePixmap (dpy, bgPixmap.pixmap); + bgPixmap.pixmap = None; + } - if (y > 0) - XFillRectangle (display->display, TermWin.pixmap, gc, 0, 0, width, - y); - if (h < height) - XFillRectangle (display->display, 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 (display->display, tmp, TermWin.pixmap, gc, - 0, (int)p, width, 1, 0, (int)y); - } - XFreePixmap (display->display, tmp); + XSetWindowBackground (dpy, vt, pix_colors[Color_bg]); + if (*file != '\0') + { +#ifdef HAVE_AFTERIMAGE + if (asimman == NULL) + asimman = create_generic_imageman(rs[Rs_path]); + if ((f = strchr (file, ';')) == NULL) + bgPixmap.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'; + bgPixmap.original_asim = get_asimage( asimman, f, 0xFFFFFFFF, 100 ); + free( f ); } +#endif } - XSetWindowBackgroundPixmap (display->display, TermWin.vt, TermWin.pixmap); - XFreeGC (display->display, gc); - am_transparent = 0; - XClearWindow (display->display, TermWin.vt); - - XSync (display->display, False); + resize_pixmap (); } -/* - * Calculate tiling sizes and increments - * At start, p == 0, incr == xpmwidthheight - */ -/* INTPROTO */ +#endif /* XPM_BACKGROUND */ +#endif /* HAVE_BG_PIXMAP */ + +#ifdef ENABLE_TRANSPARENCY +#ifndef HAVE_AFTERIMAGE +/* taken from aterm-0.4.2 */ + +typedef uint32_t RUINT32T; + static void -rxvt_pixmap_incr (unsigned int *wh, unsigned int *xy, float *incr, float *p, unsigned int widthheight, unsigned int xpmwidthheight) +ShadeXImage(rxvt_term *term, XImage* srcImage, int shade, int rm, int gm, int bm) { - 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; + 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)]; } - else + 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++) { - cxy = 0; - cwh = widthheight; + *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; } - else if (cwh < 10) - { /* fit WH images across/down screen */ - cincr *= cwh; - cxy = 0; - cwh = widthheight; + 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; } - else + case 32: { - 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; + 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); } - 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; + p1 = (RUINT32T *) ((char *) p1 + srcImage->bytes_per_line); + } + break; + } + } + + free (lookup); } +#endif -Pixmap -rxvt_term::set_bgPixmap (const char *file) +/* + * Check our parents are still who we think they are. + * Do transparency updates if required + */ +int +rxvt_term::check_our_parents () { - char *f; + check_our_parents_ev.stop (); + check_our_parents_ev.start (NOW + .1); + return 0; +} - assert (file != NULL); +void +rxvt_term::check_our_parents_cb (time_watcher &w) +{ + int i, pchanged, aformat, 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; + unsigned int rootpixmap_w = 0, rootpixmap_h = 0; + + pchanged = 0; + + if (!option (Opt_transparent)) + return /*pchanged*/; /* Don't try any more */ + +#if 0 + struct timeval stv; + gettimeofday (&stv,NULL); +#define PRINT_BACKGROUND_OP_TIME do{ struct timeval tv;gettimeofday (&tv,NULL); tv.tv_sec-= stv.tv_sec;\ + fprintf (stderr,"%d: elapsed %ld usec\n",__LINE__,\ + tv.tv_sec*1000000+tv.tv_usec-stv.tv_usec );}while(0) +#else +#define PRINT_BACKGROUND_OP_TIME do{}while(0) +#endif + - if (bgPixmap.pixmap != None) + XGetWindowAttributes (dpy, display->root, &wrootattr); + rootdepth = wrootattr.depth; + + XGetWindowAttributes (dpy, parent[0], &wattr); + + if (rootdepth != wattr.depth) { - XFreePixmap (display->display, bgPixmap.pixmap); - bgPixmap.pixmap = None; + 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 */ } - XSetWindowBackground (display->display, TermWin.vt, PixColors[Color_bg]); - if (*file != '\0') + /* 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) + rootpixmap = None; + else { - /* XWindowAttributes attr; */ + int junk; + unsigned int ujunk; + /* root pixmap may be bad - allow a error */ + allowedxerror = -1; + if ((rootpixmap = *(Pixmap *)prop) != None) + if (!XGetGeometry (dpy, rootpixmap, &root, &junk, &junk, &rootpixmap_w, &rootpixmap_h, &ujunk, &ujunk)) + rootpixmap = None; + allowedxerror = 0; + } - /* - * we already have the required attributes + if (prop != NULL) + XFree (prop); + + if (rootpixmap != None) + { + Bool success = False; + GC gc = NULL; + XGCValues gcvalue; + int shade = 100; + rgba c (rgba::MAX_CC,rgba::MAX_CC,rgba::MAX_CC); + Bool whole_tint = False, no_tint = True; + + while (sx < 0) sx += (int)wrootattr.width; + while (sy < 0) sy += (int)wrootattr.height; + + 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)); + no_tint = (c.r >= 0x00f700 && c.g >= 0x00f700 && c.b >= 0x00f700); +#undef IS_COMPONENT_WHOLESOME + /* theer are no performance advantages to reusing same pixmap */ + if (bgPixmap.pixmap != None) + XFreePixmap (dpy, bgPixmap.pixmap); + bgPixmap.pixmap = XCreatePixmap (dpy, vt, szHint.width, szHint.height, rootdepth); + bgPixmap.pmap_width = szHint.width; + bgPixmap.pmap_height = szHint.height; + bgPixmap.pmap_depth = rootdepth; + +#if 0 /* TODO : identify cases where this will be detrimental to performance : */ + /* we want to tile root pixmap into our own pixmap in this cases : + * 1) rootpixmap does not cover our window entirely + * 2) whole_tint - we can use server-side tinting or tinting disabled */ - /* XGetWindowAttributes (display->display, TermWin.vt, &attr); */ + if ( whole_tint || no_tint || pmap_w < sx + szHint.width || pmap_h < sy + szHint.height) + { + } +#endif + 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, bgPixmap.pixmap, gc, 0, 0, szHint.width, szHint.height); - xpmAttr.closeness = 30000; - xpmAttr.colormap = XCMAP; - xpmAttr.visual = XVISUAL; - xpmAttr.depth = XDEPTH; - xpmAttr.valuemask = (XpmCloseness | XpmColormap | XpmVisual | - XpmDepth | XpmSize | XpmReturnPixels); + if (whole_tint && !no_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, bgPixmap.pixmap, gc, 0, 0, szHint.width, szHint.height); + } + success = True; +#ifdef HAVE_AFTERIMAGE + if (rs[Rs_blurradius] || bgPixmap.original_asim != NULL || (!whole_tint && (!no_tint || shade !=100))) + { + ARGB32 tint = TINT_LEAVE_SAME; + ASImage *back_im = NULL; - /* search environment variables here too */ - f = (char *)rxvt_File_find (file, ".xpm", rs[Rs_path]); - if (f == NULL - || XpmReadFileToPixmap (display->display, display->root, f, - &bgPixmap.pixmap, NULL, - &xpmAttr)) + back_im = pixmap2ximage (asv, bgPixmap.pixmap, 0, 0, szHint.width, szHint.height, AllPlanes, 100); + if (back_im != NULL) + { + if (!whole_tint && (!no_tint || shade !=100)) + { + ShadingInfo as_shade; + as_shade.shading = shade; + as_shade.tintColor.red = c.r; + as_shade.tintColor.green = c.g; + as_shade.tintColor.blue = c.b; + tint = shading2tint32 (&as_shade); + } + + if (rs[Rs_blurradius] && back_im) + { + ASImage* tmp; + int junk; + unsigned int hr = 1, vr = 1; + int flags = XParseGeometry (rs[Rs_blurradius], &junk, &junk, &hr, &vr); + if (!(flags&WidthValue)) + hr = 1; + if (!(flags&HeightValue)) + vr = hr; + tmp = blur_asimage_gauss (asv, back_im, hr, vr, 0xFFFFFFFF, + (bgPixmap.original_asim == NULL || tint == TINT_LEAVE_SAME)?ASA_XImage:ASA_ASImage, + 100, ASIMAGE_QUALITY_DEFAULT); + if (tmp) + { + destroy_asimage (&back_im); + back_im = tmp; + } + } + + if (bgPixmap.original_asim != NULL) + { + ASImageLayer *layers = create_image_layers (2); + ASImage *merged_im = NULL; + int fore_w, fore_h; + + layers[0].im = back_im; + layers[0].clip_width = szHint.width; + layers[0].clip_height = szHint.height; + layers[0].tint = tint; + layers[1].im = bgPixmap.original_asim; + + fore_w = (bgPixmap.h_scale == 0) ? bgPixmap.original_asim->width : bgPixmap.h_scale*szHint.width/100; + fore_h = (bgPixmap.v_scale == 0) ? bgPixmap.original_asim->height : bgPixmap.v_scale*szHint.height/100; + + if (fore_w != bgPixmap.original_asim->width + || fore_h != bgPixmap.original_asim->height) + { + layers[1].im = scale_asimage (asv, + bgPixmap.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; + } + PRINT_BACKGROUND_OP_TIME; + merged_im = merge_layers (asv, layers, 2, szHint.width, szHint.height, + ASA_XImage, 0, ASIMAGE_QUALITY_DEFAULT); + if (layers[1].im != bgPixmap.original_asim) + destroy_asimage (&(layers[1].im)); + free (layers); + + if (merged_im != NULL) + { + destroy_asimage (&back_im); + back_im = merged_im; + } + PRINT_BACKGROUND_OP_TIME; + } + else if (tint != TINT_LEAVE_SAME) + { + ASImage* tmp = tile_asimage (asv, back_im, 0, 0, szHint.width, szHint.height, tint, ASA_XImage, 100, ASIMAGE_QUALITY_DEFAULT); + if (tmp) + { + destroy_asimage (&back_im); + back_im = tmp; + } + PRINT_BACKGROUND_OP_TIME; + } + asimage2drawable (asv, bgPixmap.pixmap, back_im, gc, 0, 0, 0, 0, szHint.width, szHint.height, True); + destroy_asimage (&back_im); + } /* back_im != NULL */ + else + success = False; + } +#else /* HAVE_AFTERIMAGE */ + if (!whole_tint && (!no_tint || shade !=100)) { - char *p; + XImage *image = XGetImage (dpy, bgPixmap.pixmap, 0, 0, szHint.width, szHint.height, AllPlanes, ZPixmap); + success = False; + if (image != NULL) + { + PRINT_BACKGROUND_OP_TIME; + 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, bgPixmap.pixmap, gc, image, 0, 0, 0, 0, image->width, image->height); + XDestroyImage (image); + success = True; + } + } +#endif /* HAVE_AFTERIMAGE */ + PRINT_BACKGROUND_OP_TIME; - /* semi-colon delimited */ - if ((p = STRCHR (file, ';')) == NULL) - p = STRCHR (file, '\0'); + if (gc != NULL) + XFreeGC (dpy, gc); - rxvt_warn ("couldn't load XPM file \"%.*s\", ignoring.", (p - file), file); + if (!success) + { + if (am_transparent && am_pixmap_trans) + { + pchanged = 1; + if (bgPixmap.pixmap != None) + { + XFreePixmap (dpy, bgPixmap.pixmap); + bgPixmap.pixmap = None; + } + } + + am_pixmap_trans = 0; } + else + { + XSetWindowBackgroundPixmap (dpy, parent[0], bgPixmap.pixmap); + XClearWindow (dpy, parent[0]); - free (f); + if (!am_transparent || !am_pixmap_trans) + pchanged = 1; + + am_transparent = am_pixmap_trans = 1; + } + } /* rootpixmap != None */ + + if (am_pixmap_trans) + XSetWindowBackgroundPixmap (dpy, vt, ParentRelative); + else + return; + + if (scrollBar.win) + { + XSetWindowBackgroundPixmap (dpy, scrollBar.win, ParentRelative); + scrollBar.setIdle (); + scrollbar_show (0); } - resize_pixmap (); - return bgPixmap.pixmap; -} + if (am_transparent) + { + want_refresh = want_full_refresh = 1; + if (am_pixmap_trans) + flush (); + } -#endif /* XPM_BACKGROUND */ +// return pchanged; +} +#endif