rxvt-unicode/src/rxvtimg.C

#include <math.h>
#include "../config.h"
#include "rxvt.h"

#if HAVE_IMG

rxvt_img::rxvt_img (rxvt_screen *screen, XRenderPictFormat *format, int x, int y, int width, int height, int repeat)
: s(screen), x(x), y(y), w(width), h(height), format(format), repeat(repeat),
  pm(0), ref(0)
{
}

rxvt_img::rxvt_img (const rxvt_img &img)
: s(img.s), x(img.x), y(img.y), w(img.w), h(img.h), format(img.format), repeat(img.repeat), pm(img.pm), ref(img.ref)
{
  ++ref->cnt;
}

rxvt_img *
rxvt_img::new_from_root (rxvt_screen *s)
{
  Display *dpy = s->display->dpy;
  unsigned int root_pm_w, root_pm_h;
  Pixmap root_pixmap = s->display->get_pixmap_property (s->display->xa[XA_XROOTPMAP_ID]);
  if (root_pixmap == None)
    root_pixmap = s->display->get_pixmap_property (s->display->xa[XA_ESETROOT_PMAP_ID]);

  if (root_pixmap == None)
    return 0;

  Window wdummy;
  int idummy;
  unsigned int udummy;

  if (!XGetGeometry (dpy, root_pixmap, &wdummy, &idummy, &idummy, &root_pm_w, &root_pm_h, &udummy, &udummy))
    return 0;

  rxvt_img *img = new rxvt_img (
     s,
     XRenderFindVisualFormat (dpy, DefaultVisual (dpy, s->display->screen)),
     0,
     0,
     root_pm_w,
     root_pm_h
  );

  img->pm = root_pixmap;
  img->ref = new pixref (root_pm_w, root_pm_h);
  img->ref->ours = false;

  return img;
}

# if HAVE_PIXBUF
rxvt_img *
rxvt_img::new_from_pixbuf (rxvt_screen *s, GdkPixbuf *pb)
{
  Display *dpy = s->display->dpy;

  int width  = gdk_pixbuf_get_width  (pb);
  int height = gdk_pixbuf_get_height (pb);

  if (width > 32767 || height > 32767) // well, we *could* upload in chunks
    rxvt_fatal ("rxvt_img::new_from_pixbuf: image too big (maximum size 32768x32768).\n");

  // since we require rgb24/argb32 formats from xrender we assume
  // that both 24 and 32 bpp MUST be supported by any screen that supports xrender

  int byte_order = ecb_big_endian () ? MSBFirst : LSBFirst;

  XImage xi;

  xi.width            = width;
  xi.height           = height;
  xi.xoffset          = 0;
  xi.format           = ZPixmap;
  xi.byte_order       = ImageByteOrder (dpy);
  xi.bitmap_unit      = 0;         //XY only, unused
  xi.bitmap_bit_order = 0;         //XY only, unused
  xi.bitmap_pad       = BitmapPad (dpy);
  xi.depth            = 32;
  xi.bytes_per_line   = 0;
  xi.bits_per_pixel   = 32;         //Z only
  xi.red_mask         = 0x00000000; //Z only, unused
  xi.green_mask       = 0x00000000; //Z only, unused
  xi.blue_mask        = 0x00000000; //Z only, unused
  xi.obdata           = 0;          // probably unused

  bool byte_order_mismatch = byte_order != xi.byte_order;

  if (!XInitImage (&xi))
    rxvt_fatal ("unable to initialise ximage, please report.\n");

  if (height > INT_MAX / xi.bytes_per_line)
    rxvt_fatal ("rxvt_img::new_from_pixbuf: image too big for Xlib.\n");

  xi.data = (char *)rxvt_malloc (height * xi.bytes_per_line);

  int rowstride = gdk_pixbuf_get_rowstride (pb);
  bool pb_has_alpha = gdk_pixbuf_get_has_alpha (pb);
  unsigned char *row = gdk_pixbuf_get_pixels (pb);

  char *line = xi.data;

  for (int y = 0; y < height; y++)
    {
      unsigned char *src = row;
      uint32_t      *dst = (uint32_t *)line;

      if (!pb_has_alpha)
        for (int x = 0; x < width; x++)
          {
            uint8_t r = *src++;
            uint8_t g = *src++;
            uint8_t b = *src++;

            uint32_t v = (255 << 24) | (r << 16) | (g << 8) | b;
            
            if (ecb_big_endian () ? !byte_order_mismatch : byte_order_mismatch)
              v = ecb_bswap32 (v);

            *dst++ = v;
          }
      else
        for (int x = 0; x < width; x++)
          {
            uint32_t v = *(uint32_t *)src; src += 4;

            if (ecb_big_endian ())
              v = ecb_bswap32 (v);

            v = ecb_rotl32 (v, 8); // abgr to bgra

            if (!byte_order_mismatch)
              v = ecb_bswap32 (v);

            *dst++ = v;
          }

      row += rowstride;
      line += xi.bytes_per_line;
    }

  rxvt_img *img = new rxvt_img (s, XRenderFindStandardFormat (dpy, PictStandardARGB32), 0, 0, width, height);
  img->alloc ();

  GC gc = XCreateGC (dpy, img->pm, 0, 0);
  XPutImage (dpy, img->pm, gc, &xi, 0, 0, 0, 0, width, height);
  XFreeGC (dpy, gc);

  free (xi.data);

  return img;
}

rxvt_img *
rxvt_img::new_from_file (rxvt_screen *s, const char *filename)
{
  GError *err = 0;
  GdkPixbuf *pb = gdk_pixbuf_new_from_file (filename, &err);

  if (!pb)
    rxvt_fatal ("rxvt_img::new_from_file: %s\n", err->message);

  rxvt_img *img = new_from_pixbuf (s, pb);

  g_object_unref (pb);

  return img;
}
# endif

void
rxvt_img::destroy ()
{
  if (--ref->cnt)
    return;

  if (pm && ref->ours)
    XFreePixmap (s->display->dpy, pm);

  delete ref;
}

rxvt_img::~rxvt_img ()
{
  destroy ();
}

void
rxvt_img::alloc ()
{
  pm = XCreatePixmap (s->display->dpy, s->display->root, w, h, format->depth);
  ref = new pixref (w, h);
}

Picture
rxvt_img::src_picture ()
{
  Display *dpy = s->display->dpy;

  XRenderPictureAttributes pa;
  pa.repeat = repeat;
  Picture pic = XRenderCreatePicture (dpy, pm, format, CPRepeat, &pa);

  return pic;
}

void
rxvt_img::unshare ()
{
  if (ref->cnt == 1 && ref->ours)
    return;

  Pixmap pm2 = XCreatePixmap (s->display->dpy, s->display->root, ref->w, ref->h, format->depth);
  GC gc = XCreateGC (s->display->dpy, pm, 0, 0);
  XCopyArea (s->display->dpy, pm, pm2, gc, 0, 0, ref->w, ref->h, 0, 0);
  XFreeGC (s->display->dpy, gc);

  destroy ();

  pm = pm2;
  ref = new pixref (ref->w, ref->h);
}

void
rxvt_img::fill (const rxvt_color &c)
{
  XGCValues gcv;
  gcv.foreground = c;
  GC gc = XCreateGC (s->display->dpy, pm, GCForeground, &gcv);
  XFillRectangle (s->display->dpy, pm, gc, 0, 0, w, h);
  XFreeGC (s->display->dpy, gc);
}

static void
get_gaussian_kernel (int radius, int width, double *kernel, XFixed *params)
{
  double sigma = radius / 2.0;
  double scale = sqrt (2.0 * M_PI) * sigma;
  double sum = 0.0;

  for (int i = 0; i < width; i++)
    {
      double x = i - width / 2;
      kernel[i] = exp (-(x * x) / (2.0 * sigma * sigma)) / scale;
      sum += kernel[i];
    }

  params[0] = XDoubleToFixed (width);
  params[1] = XDoubleToFixed (1);

  for (int i = 0; i < width; i++)
    params[i+2] = XDoubleToFixed (kernel[i] / sum);
}

rxvt_img *
rxvt_img::blur (int rh, int rv)
{
  if (!(s->display->flags & DISPLAY_HAS_RENDER_CONV))
    return clone ();

  Display *dpy = s->display->dpy;
  int size = max (rh, rv) * 2 + 1;
  double *kernel = (double *)malloc (size * sizeof (double));
  XFixed *params = (XFixed *)malloc ((size + 2) * sizeof (XFixed));
  rxvt_img *img = new rxvt_img (s, format, x, y, w, h, repeat);
  img->alloc ();

  XRenderPictureAttributes pa;
  pa.repeat = RepeatPad;
  Picture src = XRenderCreatePicture (dpy, pm, format, CPRepeat, &pa);
  Picture dst = XRenderCreatePicture (dpy, img->pm, format, 0, 0);

  Pixmap tmp_pm = XCreatePixmap (dpy, pm, w, h, format->depth);
  Picture tmp = XRenderCreatePicture (dpy, tmp_pm , format, CPRepeat, &pa);
  XFreePixmap (dpy, tmp_pm);

  if (kernel && params)
    {
      size = rh * 2 + 1;
      get_gaussian_kernel (rh, size, kernel, params);

      XRenderSetPictureFilter (dpy, src, FilterConvolution, params, size+2);
      XRenderComposite (dpy,
                        PictOpSrc,
                        src,
                        None,
                        tmp,
                        0, 0,
                        0, 0,
                        0, 0,
                        w, h);

      size = rv * 2 + 1;
      get_gaussian_kernel (rv, size, kernel, params);
      ::swap (params[0], params[1]);

      XRenderSetPictureFilter (dpy, tmp, FilterConvolution, params, size+2);
      XRenderComposite (dpy,
                        PictOpSrc,
                        tmp,
                        None,
                        dst,
                        0, 0,
                        0, 0,
                        0, 0,
                        w, h);
    }

  free (kernel);
  free (params);
  XRenderFreePicture (dpy, src);
  XRenderFreePicture (dpy, dst);
  XRenderFreePicture (dpy, tmp);

  return img;
}

static Picture
create_xrender_mask (Display *dpy, Drawable drawable, Bool argb, Bool component_alpha)
{
  Pixmap pixmap = XCreatePixmap (dpy, drawable, 1, 1, argb ? 32 : 8);

  XRenderPictFormat *format = XRenderFindStandardFormat (dpy, argb ? PictStandardARGB32 : PictStandardA8);
  XRenderPictureAttributes pa;
  pa.repeat = RepeatNormal;
  pa.component_alpha = component_alpha;
  Picture mask = XRenderCreatePicture (dpy, pixmap, format, CPRepeat | CPComponentAlpha, &pa);

  XFreePixmap (dpy, pixmap);

  return mask;
}

static void
extract (int32_t cl0, int32_t cl1, int32_t &c, unsigned short &xc)
{
  int32_t x = clamp (c, cl0, cl1);
  c -= x;
  xc = x;
}

static bool
extract (int32_t cl0, int32_t cl1, int32_t &r, int32_t &g, int32_t &b, int32_t &a, unsigned short &xr, unsigned short &xg, unsigned short &xb, unsigned short &xa)
{
  extract (cl0, cl1, r, xr);
  extract (cl0, cl1, g, xg);
  extract (cl0, cl1, b, xb);
  extract (cl0, cl1, a, xa);

  return xr | xg | xb | xa;
}

void
rxvt_img::brightness (int32_t r, int32_t g, int32_t b, int32_t a)
{
  unshare ();

  Display *dpy = s->display->dpy;
  Picture dst = XRenderCreatePicture (dpy, pm, format, 0, 0);

  // loop should not be needed for brightness, as only -1..1 makes sense
  //while (r | g | b | a)
    {
      unsigned short xr, xg, xb, xa;
      XRenderColor mask_c;

      if (extract (0, 65535, r, g, b, a, mask_c.red, mask_c.green, mask_c.blue, mask_c.alpha))
        XRenderFillRectangle (dpy, PictOpAdd, dst, &mask_c, 0, 0, w, h);

      if (extract (-65535, 0, r, g, b, a, mask_c.red, mask_c.green, mask_c.blue, mask_c.alpha))
        {
          XRenderColor mask_w = { 65535, 65535, 65535, 65535 };
          XRenderFillRectangle (dpy, PictOpDifference, dst, &mask_w, 0, 0, w, h);
          mask_c.red   = -mask_c.red; //TODO: verify that doing clamp, assign, and negation does the right thing
          mask_c.green = -mask_c.green;
          mask_c.blue  = -mask_c.blue;
          mask_c.alpha = -mask_c.alpha;
          XRenderFillRectangle (dpy, PictOpAdd, dst, &mask_c, 0, 0, w, h);
          XRenderFillRectangle (dpy, PictOpDifference, dst, &mask_w, 0, 0, w, h);
        }
    }

  XRenderFreePicture (dpy, dst);
}

void
rxvt_img::contrast (int32_t r, int32_t g, int32_t b, int32_t a)
{
  if (r < 0 || g < 0 || b < 0 || a < 0)
    rxvt_fatal ("rxvt_img::contrast does not support negative values.\n");

  rxvt_img *img = new rxvt_img (s, format, x, y, w, h, repeat);
  img->alloc ();

  {
    rxvt_color empty;
    empty.set (s, rgba (0, 0, 0, 0));
    img->fill (empty);
  }

  // premultiply (yeah, these are not exact, sue me or fix it)
  r = (r * (a >> 8)) >> 8;
  g = (g * (a >> 8)) >> 8;
  b = (b * (a >> 8)) >> 8;

  Display *dpy = s->display->dpy;

  Picture src = src_picture ();
  Picture dst = XRenderCreatePicture (dpy, img->pm, format, 0, 0);
  Picture mul = create_xrender_mask (dpy, pm, True, True);

  //TODO: this operator does not yet implement some useful contrast
  while (r | g | b | a)
    {
      unsigned short xr, xg, xb, xa;
      XRenderColor mask_c;

      if (extract (0, 65535, r, g, b, a, mask_c.red, mask_c.green, mask_c.blue, mask_c.alpha))
        {
          XRenderFillRectangle (dpy, PictOpSrc, mul, &mask_c, 0, 0, 1, 1);
          XRenderComposite (dpy, PictOpAdd, src, mul, dst, 0, 0, 0, 0, 0, 0, w, h);
        }
    }

  XRenderFreePicture (dpy, mul);
  XRenderFreePicture (dpy, dst);
  XRenderFreePicture (dpy, src);

  ::swap (img->ref, ref);
  ::swap (img->pm , pm );

  delete img;
}

rxvt_img *
rxvt_img::clone ()
{
  return new rxvt_img (*this);
}

static XRenderPictFormat *
find_alpha_format_for (Display *dpy, XRenderPictFormat *format)
{
  if (format->direct.alphaMask)
    return format; // already has alpha

  // try to find a suitable alpha format, one bit alpha is enough for our purposes
  if (format->type == PictTypeDirect)
    for (int n = 0; XRenderPictFormat *f = XRenderFindFormat (dpy, 0, 0, n); ++n)
      if (f->direct.alphaMask
          && f->type == PictTypeDirect
          && ecb_popcount32 (f->direct.redMask  ) >= ecb_popcount32 (format->direct.redMask  )
          && ecb_popcount32 (f->direct.greenMask) >= ecb_popcount32 (format->direct.greenMask)
          && ecb_popcount32 (f->direct.blueMask ) >= ecb_popcount32 (format->direct.blueMask ))
        return f;

  // should be a very good fallback
  return XRenderFindStandardFormat (dpy, PictStandardARGB32);
}

rxvt_img *
rxvt_img::reify ()
{
  if (x == 0 && y == 0 && w == ref->w && h == ref->h)
    return clone ();

  Display *dpy = s->display->dpy;

  // add an alpha channel if...
  bool alpha = !format->direct.alphaMask // pixmap has none yet
               && (x || y)               // we need one because of non-zero offset
               && repeat == RepeatNone;  // and we have no good pixels to fill with

  rxvt_img *img = new rxvt_img (s, alpha ? find_alpha_format_for (dpy, format) : format, 0, 0, w, h, repeat);
  img->alloc ();

  Picture src = src_picture ();
  Picture dst = XRenderCreatePicture (dpy, img->pm, img->format, 0, 0);
  
  if (alpha)
    {
      XRenderColor rc = { 0, 0, 0, 0 };
      XRenderFillRectangle (dpy, PictOpSrc, dst, &rc, 0, 0, w, h);//TODO: split into four fillrectangles
      XRenderComposite (dpy, PictOpSrc, src, None, dst, 0, 0, 0, 0, -x, -y, ref->w, ref->h);
    }
  else
    XRenderComposite (dpy, PictOpSrc, src, None, dst, x, y, 0, 0, 0, 0, w, h);

  XRenderFreePicture (dpy, src);
  XRenderFreePicture (dpy, dst);

  return img;
}

rxvt_img *
rxvt_img::sub_rect (int x, int y, int width, int height)
{
  rxvt_img *img = clone ();

  img->x += x;
  img->y += y;

  if (w != width || h != height)
    {
      img->w = width;
      img->h = height;

      rxvt_img *img2 = img->reify ();
      delete img;
      img = img2;
    }

  return img;
}

rxvt_img *
rxvt_img::transform (int new_width, int new_height, double matrix[9])
{
  rxvt_img *img = new rxvt_img (s, format, 0, 0, new_width, new_height, repeat);
  img->alloc ();

  Display *dpy = s->display->dpy;
  Picture src = src_picture ();
  Picture dst = XRenderCreatePicture (dpy, img->pm, img->format, 0, 0);

  XTransform xfrm;

  for (int i = 0; i < 3; ++i)
    for (int j = 0; j < 3; ++j)
      xfrm.matrix [i][j] = XDoubleToFixed (matrix [i * 3 + j]);

  xfrm.matrix [0][2] -= XDoubleToFixed (x);//TODO
  xfrm.matrix [1][2] -= XDoubleToFixed (y);

  XRenderSetPictureFilter (dpy, src, "good", 0, 0);
  XRenderSetPictureTransform (dpy, src, &xfrm);
  XRenderComposite (dpy, PictOpSrc, src, None, dst, 0, 0, 0, 0, 0, 0, new_width, new_height);

  XRenderFreePicture (dpy, src);
  XRenderFreePicture (dpy, dst);

  return img;
}

rxvt_img *
rxvt_img::scale (int new_width, int new_height)
{
  if (w == new_width && h == new_height)
    return clone ();

  double matrix[9] = {
    w  / (double)new_width, 0, 0,
    0, h / (double)new_height, 0,
    0,                      0, 1
  };

  int old_repeat_mode = repeat;
  repeat = RepeatPad; // not right, but xrender can't proeprly scale it seems

  rxvt_img *img = transform (new_width, new_height, matrix);

  repeat = old_repeat_mode;
  img->repeat = repeat;

  return img;
}

rxvt_img *
rxvt_img::rotate (int new_width, int new_height, int x, int y, double phi)
{
  double s = sin (phi);
  double c = cos (phi);

  double matrix[9] = {
    c, -s, -c * x + s * y + x,
    s,  c, -s * x - c * y + y,
    0,  0,                  1
  };

  return transform (new_width, new_height, matrix);
}

rxvt_img *
rxvt_img::convert_format (XRenderPictFormat *new_format, const rxvt_color &bg)
{
  if (new_format == format)
    return clone ();

  rxvt_img *img = new rxvt_img (s, new_format, x, y, w, h, repeat);
  img->alloc ();

  Display *dpy = s->display->dpy;
  Picture src = src_picture ();
  Picture dst = XRenderCreatePicture (dpy, img->pm, new_format, 0, 0);
  int op = PictOpSrc;

  if (format->direct.alphaMask && !new_format->direct.alphaMask)
    {
      // does it have to be that complicated
      rgba c;
      bg.get (c);

      XRenderColor rc = { c.r, c.g, c.b, 0xffff };
      XRenderFillRectangle (dpy, PictOpSrc, dst, &rc, 0, 0, w, h);

      op = PictOpOver;
    }

  XRenderComposite (dpy, op, src, None, dst, 0, 0, 0, 0, 0, 0, w, h);

  XRenderFreePicture (dpy, src);
  XRenderFreePicture (dpy, dst);

  return img;
}

rxvt_img *
rxvt_img::blend (rxvt_img *img, double factor)
{
  rxvt_img *img2 = clone ();
  Display *dpy = s->display->dpy;
  Picture src = img->src_picture ();
  Picture dst = XRenderCreatePicture (dpy, img2->pm, img2->format, 0, 0);
  Picture mask = create_xrender_mask (dpy, img->pm, False, False);

  XRenderColor mask_c;

  mask_c.alpha = float_to_component (factor);
  mask_c.red   =
  mask_c.green =
  mask_c.blue  = 0;
  XRenderFillRectangle (dpy, PictOpSrc, mask, &mask_c, 0, 0, 1, 1);

  XRenderComposite (dpy, PictOpOver, src, mask, dst, 0, 0, 0, 0, 0, 0, w, h);

  XRenderFreePicture (dpy, src);
  XRenderFreePicture (dpy, dst);
  XRenderFreePicture (dpy, mask);

  return img2;
}

#endif

Revision:	1.76
Committed:	Sun Jun 10 10:29:26 2012 UTC (11 years, 11 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.75:	+6 -7 lines
Log Message:	* empty log message *
#	Content
1	#include <math.h>
2	#include "../config.h"
3	#include "rxvt.h"
4
5	#if HAVE_IMG
6
7	rxvt_img::rxvt_img (rxvt_screen screen, XRenderPictFormat format, int x, int y, int width, int height, int repeat)
8	: s(screen), x(x), y(y), w(width), h(height), format(format), repeat(repeat),
9	pm(0), ref(0)
10	{
11	}
12
13	rxvt_img::rxvt_img (const rxvt_img &img)
14	: s(img.s), x(img.x), y(img.y), w(img.w), h(img.h), format(img.format), repeat(img.repeat), pm(img.pm), ref(img.ref)
15	{
16	++ref->cnt;
17	}
18
19	rxvt_img *
20	rxvt_img::new_from_root (rxvt_screen *s)
21	{
22	Display *dpy = s->display->dpy;
23	unsigned int root_pm_w, root_pm_h;
24	Pixmap root_pixmap = s->display->get_pixmap_property (s->display->xa[XA_XROOTPMAP_ID]);
25	if (root_pixmap == None)
26	root_pixmap = s->display->get_pixmap_property (s->display->xa[XA_ESETROOT_PMAP_ID]);
27
28	if (root_pixmap == None)
29	return 0;
30
31	Window wdummy;
32	int idummy;
33	unsigned int udummy;
34
35	if (!XGetGeometry (dpy, root_pixmap, &wdummy, &idummy, &idummy, &root_pm_w, &root_pm_h, &udummy, &udummy))
36	return 0;
37
38	rxvt_img *img = new rxvt_img (
39	s,
40	XRenderFindVisualFormat (dpy, DefaultVisual (dpy, s->display->screen)),
41	0,
42	0,
43	root_pm_w,
44	root_pm_h
45	);
46
47	img->pm = root_pixmap;
48	img->ref = new pixref (root_pm_w, root_pm_h);
49	img->ref->ours = false;
50
51	return img;
52	}
53
54	# if HAVE_PIXBUF
55	rxvt_img *
56	rxvt_img::new_from_pixbuf (rxvt_screen s, GdkPixbuf pb)
57	{
58	Display *dpy = s->display->dpy;
59
60	int width = gdk_pixbuf_get_width (pb);
61	int height = gdk_pixbuf_get_height (pb);
62
63	if (width > 32767 \|\| height > 32767) // well, we could upload in chunks
64	rxvt_fatal ("rxvt_img::new_from_pixbuf: image too big (maximum size 32768x32768).\n");
65
66	// since we require rgb24/argb32 formats from xrender we assume
67	// that both 24 and 32 bpp MUST be supported by any screen that supports xrender
68
69	int byte_order = ecb_big_endian () ? MSBFirst : LSBFirst;
70
71	XImage xi;
72
73	xi.width = width;
74	xi.height = height;
75	xi.xoffset = 0;
76	xi.format = ZPixmap;
77	xi.byte_order = ImageByteOrder (dpy);
78	xi.bitmap_unit = 0; //XY only, unused
79	xi.bitmap_bit_order = 0; //XY only, unused
80	xi.bitmap_pad = BitmapPad (dpy);
81	xi.depth = 32;
82	xi.bytes_per_line = 0;
83	xi.bits_per_pixel = 32; //Z only
84	xi.red_mask = 0x00000000; //Z only, unused
85	xi.green_mask = 0x00000000; //Z only, unused
86	xi.blue_mask = 0x00000000; //Z only, unused
87	xi.obdata = 0; // probably unused
88
89	bool byte_order_mismatch = byte_order != xi.byte_order;
90
91	if (!XInitImage (&xi))
92	rxvt_fatal ("unable to initialise ximage, please report.\n");
93
94	if (height > INT_MAX / xi.bytes_per_line)
95	rxvt_fatal ("rxvt_img::new_from_pixbuf: image too big for Xlib.\n");
96
97	xi.data = (char )rxvt_malloc (height xi.bytes_per_line);
98
99	int rowstride = gdk_pixbuf_get_rowstride (pb);
100	bool pb_has_alpha = gdk_pixbuf_get_has_alpha (pb);
101	unsigned char *row = gdk_pixbuf_get_pixels (pb);
102
103	char *line = xi.data;
104
105	for (int y = 0; y < height; y++)
106	{
107	unsigned char *src = row;
108	uint32_t dst = (uint32_t )line;
109
110	if (!pb_has_alpha)
111	for (int x = 0; x < width; x++)
112	{
113	uint8_t r = *src++;
114	uint8_t g = *src++;
115	uint8_t b = *src++;
116
117	uint32_t v = (255 << 24) \| (r << 16) \| (g << 8) \| b;
118
119	if (ecb_big_endian () ? !byte_order_mismatch : byte_order_mismatch)
120	v = ecb_bswap32 (v);
121
122	*dst++ = v;
123	}
124	else
125	for (int x = 0; x < width; x++)
126	{
127	uint32_t v = (uint32_t )src; src += 4;
128
129	if (ecb_big_endian ())
130	v = ecb_bswap32 (v);
131
132	v = ecb_rotl32 (v, 8); // abgr to bgra
133
134	if (!byte_order_mismatch)
135	v = ecb_bswap32 (v);
136
137	*dst++ = v;
138	}
139
140	row += rowstride;
141	line += xi.bytes_per_line;
142	}
143
144	rxvt_img *img = new rxvt_img (s, XRenderFindStandardFormat (dpy, PictStandardARGB32), 0, 0, width, height);
145	img->alloc ();
146
147	GC gc = XCreateGC (dpy, img->pm, 0, 0);
148	XPutImage (dpy, img->pm, gc, &xi, 0, 0, 0, 0, width, height);
149	XFreeGC (dpy, gc);
150
151	free (xi.data);
152
153	return img;
154	}
155
156	rxvt_img *
157	rxvt_img::new_from_file (rxvt_screen s, const char filename)
158	{
159	GError *err = 0;
160	GdkPixbuf *pb = gdk_pixbuf_new_from_file (filename, &err);
161
162	if (!pb)
163	rxvt_fatal ("rxvt_img::new_from_file: %s\n", err->message);
164
165	rxvt_img *img = new_from_pixbuf (s, pb);
166
167	g_object_unref (pb);
168
169	return img;
170	}
171	# endif
172
173	void
174	rxvt_img::destroy ()
175	{
176	if (--ref->cnt)
177	return;
178
179	if (pm && ref->ours)
180	XFreePixmap (s->display->dpy, pm);
181
182	delete ref;
183	}
184
185	rxvt_img::~rxvt_img ()
186	{
187	destroy ();
188	}
189
190	void
191	rxvt_img::alloc ()
192	{
193	pm = XCreatePixmap (s->display->dpy, s->display->root, w, h, format->depth);
194	ref = new pixref (w, h);
195	}
196
197	Picture
198	rxvt_img::src_picture ()
199	{
200	Display *dpy = s->display->dpy;
201
202	XRenderPictureAttributes pa;
203	pa.repeat = repeat;
204	Picture pic = XRenderCreatePicture (dpy, pm, format, CPRepeat, &pa);
205
206	return pic;
207	}
208
209	void
210	rxvt_img::unshare ()
211	{
212	if (ref->cnt == 1 && ref->ours)
213	return;
214
215	Pixmap pm2 = XCreatePixmap (s->display->dpy, s->display->root, ref->w, ref->h, format->depth);
216	GC gc = XCreateGC (s->display->dpy, pm, 0, 0);
217	XCopyArea (s->display->dpy, pm, pm2, gc, 0, 0, ref->w, ref->h, 0, 0);
218	XFreeGC (s->display->dpy, gc);
219
220	destroy ();
221
222	pm = pm2;
223	ref = new pixref (ref->w, ref->h);
224	}
225
226	void
227	rxvt_img::fill (const rxvt_color &c)
228	{
229	XGCValues gcv;
230	gcv.foreground = c;
231	GC gc = XCreateGC (s->display->dpy, pm, GCForeground, &gcv);
232	XFillRectangle (s->display->dpy, pm, gc, 0, 0, w, h);
233	XFreeGC (s->display->dpy, gc);
234	}
235
236	static void
237	get_gaussian_kernel (int radius, int width, double kernel, XFixed params)
238	{
239	double sigma = radius / 2.0;
240	double scale = sqrt (2.0 * M_PI) * sigma;
241	double sum = 0.0;
242
243	for (int i = 0; i < width; i++)
244	{
245	double x = i - width / 2;
246	kernel[i] = exp (-(x * x) / (2.0 * sigma * sigma)) / scale;
247	sum += kernel[i];
248	}
249
250	params[0] = XDoubleToFixed (width);
251	params[1] = XDoubleToFixed (1);
252
253	for (int i = 0; i < width; i++)
254	params[i+2] = XDoubleToFixed (kernel[i] / sum);
255	}
256
257	rxvt_img *
258	rxvt_img::blur (int rh, int rv)
259	{
260	if (!(s->display->flags & DISPLAY_HAS_RENDER_CONV))
261	return clone ();
262
263	Display *dpy = s->display->dpy;
264	int size = max (rh, rv) * 2 + 1;
265	double kernel = (double )malloc (size * sizeof (double));
266	XFixed params = (XFixed )malloc ((size + 2) * sizeof (XFixed));
267	rxvt_img *img = new rxvt_img (s, format, x, y, w, h, repeat);
268	img->alloc ();
269
270	XRenderPictureAttributes pa;
271	pa.repeat = RepeatPad;
272	Picture src = XRenderCreatePicture (dpy, pm, format, CPRepeat, &pa);
273	Picture dst = XRenderCreatePicture (dpy, img->pm, format, 0, 0);
274
275	Pixmap tmp_pm = XCreatePixmap (dpy, pm, w, h, format->depth);
276	Picture tmp = XRenderCreatePicture (dpy, tmp_pm , format, CPRepeat, &pa);
277	XFreePixmap (dpy, tmp_pm);
278
279	if (kernel && params)
280	{
281	size = rh * 2 + 1;
282	get_gaussian_kernel (rh, size, kernel, params);
283
284	XRenderSetPictureFilter (dpy, src, FilterConvolution, params, size+2);
285	XRenderComposite (dpy,
286	PictOpSrc,
287	src,
288	None,
289	tmp,
290	0, 0,
291	0, 0,
292	0, 0,
293	w, h);
294
295	size = rv * 2 + 1;
296	get_gaussian_kernel (rv, size, kernel, params);
297	::swap (params[0], params[1]);
298
299	XRenderSetPictureFilter (dpy, tmp, FilterConvolution, params, size+2);
300	XRenderComposite (dpy,
301	PictOpSrc,
302	tmp,
303	None,
304	dst,
305	0, 0,
306	0, 0,
307	0, 0,
308	w, h);
309	}
310
311	free (kernel);
312	free (params);
313	XRenderFreePicture (dpy, src);
314	XRenderFreePicture (dpy, dst);
315	XRenderFreePicture (dpy, tmp);
316
317	return img;
318	}
319
320	static Picture
321	create_xrender_mask (Display *dpy, Drawable drawable, Bool argb, Bool component_alpha)
322	{
323	Pixmap pixmap = XCreatePixmap (dpy, drawable, 1, 1, argb ? 32 : 8);
324
325	XRenderPictFormat *format = XRenderFindStandardFormat (dpy, argb ? PictStandardARGB32 : PictStandardA8);
326	XRenderPictureAttributes pa;
327	pa.repeat = RepeatNormal;
328	pa.component_alpha = component_alpha;
329	Picture mask = XRenderCreatePicture (dpy, pixmap, format, CPRepeat \| CPComponentAlpha, &pa);
330
331	XFreePixmap (dpy, pixmap);
332
333	return mask;
334	}
335
336	static void
337	extract (int32_t cl0, int32_t cl1, int32_t &c, unsigned short &xc)
338	{
339	int32_t x = clamp (c, cl0, cl1);
340	c -= x;
341	xc = x;
342	}
343
344	static bool
345	extract (int32_t cl0, int32_t cl1, int32_t &r, int32_t &g, int32_t &b, int32_t &a, unsigned short &xr, unsigned short &xg, unsigned short &xb, unsigned short &xa)
346	{
347	extract (cl0, cl1, r, xr);
348	extract (cl0, cl1, g, xg);
349	extract (cl0, cl1, b, xb);
350	extract (cl0, cl1, a, xa);
351
352	return xr \| xg \| xb \| xa;
353	}
354
355	void
356	rxvt_img::brightness (int32_t r, int32_t g, int32_t b, int32_t a)
357	{
358	unshare ();
359
360	Display *dpy = s->display->dpy;
361	Picture dst = XRenderCreatePicture (dpy, pm, format, 0, 0);
362
363	// loop should not be needed for brightness, as only -1..1 makes sense
364	//while (r \| g \| b \| a)
365	{
366	unsigned short xr, xg, xb, xa;
367	XRenderColor mask_c;
368
369	if (extract (0, 65535, r, g, b, a, mask_c.red, mask_c.green, mask_c.blue, mask_c.alpha))
370	XRenderFillRectangle (dpy, PictOpAdd, dst, &mask_c, 0, 0, w, h);
371
372	if (extract (-65535, 0, r, g, b, a, mask_c.red, mask_c.green, mask_c.blue, mask_c.alpha))
373	{
374	XRenderColor mask_w = { 65535, 65535, 65535, 65535 };
375	XRenderFillRectangle (dpy, PictOpDifference, dst, &mask_w, 0, 0, w, h);
376	mask_c.red = -mask_c.red; //TODO: verify that doing clamp, assign, and negation does the right thing
377	mask_c.green = -mask_c.green;
378	mask_c.blue = -mask_c.blue;
379	mask_c.alpha = -mask_c.alpha;
380	XRenderFillRectangle (dpy, PictOpAdd, dst, &mask_c, 0, 0, w, h);
381	XRenderFillRectangle (dpy, PictOpDifference, dst, &mask_w, 0, 0, w, h);
382	}
383	}
384
385	XRenderFreePicture (dpy, dst);
386	}
387
388	void
389	rxvt_img::contrast (int32_t r, int32_t g, int32_t b, int32_t a)
390	{
391	if (r < 0 \|\| g < 0 \|\| b < 0 \|\| a < 0)
392	rxvt_fatal ("rxvt_img::contrast does not support negative values.\n");
393
394	rxvt_img *img = new rxvt_img (s, format, x, y, w, h, repeat);
395	img->alloc ();
396
397	{
398	rxvt_color empty;
399	empty.set (s, rgba (0, 0, 0, 0));
400	img->fill (empty);
401	}
402
403	// premultiply (yeah, these are not exact, sue me or fix it)
404	r = (r * (a >> 8)) >> 8;
405	g = (g * (a >> 8)) >> 8;
406	b = (b * (a >> 8)) >> 8;
407
408	Display *dpy = s->display->dpy;
409
410	Picture src = src_picture ();
411	Picture dst = XRenderCreatePicture (dpy, img->pm, format, 0, 0);
412	Picture mul = create_xrender_mask (dpy, pm, True, True);
413
414	//TODO: this operator does not yet implement some useful contrast
415	while (r \| g \| b \| a)
416	{
417	unsigned short xr, xg, xb, xa;
418	XRenderColor mask_c;
419
420	if (extract (0, 65535, r, g, b, a, mask_c.red, mask_c.green, mask_c.blue, mask_c.alpha))
421	{
422	XRenderFillRectangle (dpy, PictOpSrc, mul, &mask_c, 0, 0, 1, 1);
423	XRenderComposite (dpy, PictOpAdd, src, mul, dst, 0, 0, 0, 0, 0, 0, w, h);
424	}
425	}
426
427	XRenderFreePicture (dpy, mul);
428	XRenderFreePicture (dpy, dst);
429	XRenderFreePicture (dpy, src);
430
431	::swap (img->ref, ref);
432	::swap (img->pm , pm );
433
434	delete img;
435	}
436
437	rxvt_img *
438	rxvt_img::clone ()
439	{
440	return new rxvt_img (*this);
441	}
442
443	static XRenderPictFormat *
444	find_alpha_format_for (Display dpy, XRenderPictFormat format)
445	{
446	if (format->direct.alphaMask)
447	return format; // already has alpha
448
449	// try to find a suitable alpha format, one bit alpha is enough for our purposes
450	if (format->type == PictTypeDirect)
451	for (int n = 0; XRenderPictFormat *f = XRenderFindFormat (dpy, 0, 0, n); ++n)
452	if (f->direct.alphaMask
453	&& f->type == PictTypeDirect
454	&& ecb_popcount32 (f->direct.redMask ) >= ecb_popcount32 (format->direct.redMask )
455	&& ecb_popcount32 (f->direct.greenMask) >= ecb_popcount32 (format->direct.greenMask)
456	&& ecb_popcount32 (f->direct.blueMask ) >= ecb_popcount32 (format->direct.blueMask ))
457	return f;
458
459	// should be a very good fallback
460	return XRenderFindStandardFormat (dpy, PictStandardARGB32);
461	}
462
463	rxvt_img *
464	rxvt_img::reify ()
465	{
466	if (x == 0 && y == 0 && w == ref->w && h == ref->h)
467	return clone ();
468
469	Display *dpy = s->display->dpy;
470
471	// add an alpha channel if...
472	bool alpha = !format->direct.alphaMask // pixmap has none yet
473	&& (x \|\| y) // we need one because of non-zero offset
474	&& repeat == RepeatNone; // and we have no good pixels to fill with
475
476	rxvt_img *img = new rxvt_img (s, alpha ? find_alpha_format_for (dpy, format) : format, 0, 0, w, h, repeat);
477	img->alloc ();
478
479	Picture src = src_picture ();
480	Picture dst = XRenderCreatePicture (dpy, img->pm, img->format, 0, 0);
481
482	if (alpha)
483	{
484	XRenderColor rc = { 0, 0, 0, 0 };
485	XRenderFillRectangle (dpy, PictOpSrc, dst, &rc, 0, 0, w, h);//TODO: split into four fillrectangles
486	XRenderComposite (dpy, PictOpSrc, src, None, dst, 0, 0, 0, 0, -x, -y, ref->w, ref->h);
487	}
488	else
489	XRenderComposite (dpy, PictOpSrc, src, None, dst, x, y, 0, 0, 0, 0, w, h);
490
491	XRenderFreePicture (dpy, src);
492	XRenderFreePicture (dpy, dst);
493
494	return img;
495	}
496
497	rxvt_img *
498	rxvt_img::sub_rect (int x, int y, int width, int height)
499	{
500	rxvt_img *img = clone ();
501
502	img->x += x;
503	img->y += y;
504
505	if (w != width \|\| h != height)
506	{
507	img->w = width;
508	img->h = height;
509
510	rxvt_img *img2 = img->reify ();
511	delete img;
512	img = img2;
513	}
514
515	return img;
516	}
517
518	rxvt_img *
519	rxvt_img::transform (int new_width, int new_height, double matrix[9])
520	{
521	rxvt_img *img = new rxvt_img (s, format, 0, 0, new_width, new_height, repeat);
522	img->alloc ();
523
524	Display *dpy = s->display->dpy;
525	Picture src = src_picture ();
526	Picture dst = XRenderCreatePicture (dpy, img->pm, img->format, 0, 0);
527
528	XTransform xfrm;
529
530	for (int i = 0; i < 3; ++i)
531	for (int j = 0; j < 3; ++j)
532	xfrm.matrix [i][j] = XDoubleToFixed (matrix [i * 3 + j]);
533
534	xfrm.matrix [0][2] -= XDoubleToFixed (x);//TODO
535	xfrm.matrix [1][2] -= XDoubleToFixed (y);
536
537	XRenderSetPictureFilter (dpy, src, "good", 0, 0);
538	XRenderSetPictureTransform (dpy, src, &xfrm);
539	XRenderComposite (dpy, PictOpSrc, src, None, dst, 0, 0, 0, 0, 0, 0, new_width, new_height);
540
541	XRenderFreePicture (dpy, src);
542	XRenderFreePicture (dpy, dst);
543
544	return img;
545	}
546
547	rxvt_img *
548	rxvt_img::scale (int new_width, int new_height)
549	{
550	if (w == new_width && h == new_height)
551	return clone ();
552
553	double matrix[9] = {
554	w / (double)new_width, 0, 0,
555	0, h / (double)new_height, 0,
556	0, 0, 1
557	};
558
559	int old_repeat_mode = repeat;
560	repeat = RepeatPad; // not right, but xrender can't proeprly scale it seems
561
562	rxvt_img *img = transform (new_width, new_height, matrix);
563
564	repeat = old_repeat_mode;
565	img->repeat = repeat;
566
567	return img;
568	}
569
570	rxvt_img *
571	rxvt_img::rotate (int new_width, int new_height, int x, int y, double phi)
572	{
573	double s = sin (phi);
574	double c = cos (phi);
575
576	double matrix[9] = {
577	c, -s, -c * x + s * y + x,
578	s, c, -s * x - c * y + y,
579	0, 0, 1
580	};
581
582	return transform (new_width, new_height, matrix);
583	}
584
585	rxvt_img *
586	rxvt_img::convert_format (XRenderPictFormat *new_format, const rxvt_color &bg)
587	{
588	if (new_format == format)
589	return clone ();
590
591	rxvt_img *img = new rxvt_img (s, new_format, x, y, w, h, repeat);
592	img->alloc ();
593
594	Display *dpy = s->display->dpy;
595	Picture src = src_picture ();
596	Picture dst = XRenderCreatePicture (dpy, img->pm, new_format, 0, 0);
597	int op = PictOpSrc;
598
599	if (format->direct.alphaMask && !new_format->direct.alphaMask)
600	{
601	// does it have to be that complicated
602	rgba c;
603	bg.get (c);
604
605	XRenderColor rc = { c.r, c.g, c.b, 0xffff };
606	XRenderFillRectangle (dpy, PictOpSrc, dst, &rc, 0, 0, w, h);
607
608	op = PictOpOver;
609	}
610
611	XRenderComposite (dpy, op, src, None, dst, 0, 0, 0, 0, 0, 0, w, h);
612
613	XRenderFreePicture (dpy, src);
614	XRenderFreePicture (dpy, dst);
615
616	return img;
617	}
618
619	rxvt_img *
620	rxvt_img::blend (rxvt_img *img, double factor)
621	{
622	rxvt_img *img2 = clone ();
623	Display *dpy = s->display->dpy;
624	Picture src = img->src_picture ();
625	Picture dst = XRenderCreatePicture (dpy, img2->pm, img2->format, 0, 0);
626	Picture mask = create_xrender_mask (dpy, img->pm, False, False);
627
628	XRenderColor mask_c;
629
630	mask_c.alpha = float_to_component (factor);
631	mask_c.red =
632	mask_c.green =
633	mask_c.blue = 0;
634	XRenderFillRectangle (dpy, PictOpSrc, mask, &mask_c, 0, 0, 1, 1);
635
636	XRenderComposite (dpy, PictOpOver, src, mask, dst, 0, 0, 0, 0, 0, 0, w, h);
637
638	XRenderFreePicture (dpy, src);
639	XRenderFreePicture (dpy, dst);
640	XRenderFreePicture (dpy, mask);
641
642	return img2;
643	}
644
645	#endif
646