xcompmgr.c

   1 /*
   2  * $Id$
   3  *
   4  * Copyright © 2003 Keith Packard
   5  *
   6  * Permission to use, copy, modify, distribute, and sell this software and its
   7  * documentation for any purpose is hereby granted without fee, provided that
   8  * the above copyright notice appear in all copies and that both that
   9  * copyright notice and this permission notice appear in supporting
  10  * documentation, and that the name of Keith Packard not be used in
  11  * advertising or publicity pertaining to distribution of the software without
  12  * specific, written prior permission.  Keith Packard makes no
  13  * representations about the suitability of this software for any purpose.  It
  14  * is provided "as is" without express or implied warranty.
  15  *
  16  * KEITH PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  17  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
  18  * EVENT SHALL KEITH PACKARD BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  19  * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
  20  * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
  21  * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  22  * PERFORMANCE OF THIS SOFTWARE.
  23  */
  24
  25
  26 /* Modified by Matthew Hawn. I don't know what to say here so follow what it
  27    says above. Not that I can really do anything about it
  28 */
  29
  30
  31 #include <stdlib.h>
  32 #include <stdio.h>
  33 #include <string.h>
  34 #include <math.h>
  35 #include <sys/poll.h>
  36 #include <sys/time.h>
  37 #include <time.h>
  38 #include <unistd.h>
  39 #include <X11/Xlib.h>
  40 #include <X11/Xutil.h>
  41 #include <X11/Xatom.h>
  42 #include <X11/extensions/Xcomposite.h>
  43 #include <X11/extensions/Xdamage.h>
  44 #include <X11/extensions/Xrender.h>
  45
  46 #if COMPOSITE_MAJOR > 0 || COMPOSITE_MINOR >= 2
  47 #define HAS_NAME_WINDOW_PIXMAP 1
  48 #endif
  49
  50 #define CAN_DO_USABLE 0
  51
  52 typedef struct _ignore {
  53     struct _ignore      *next;
  54     unsigned long       sequence;
  55 } ignore;
  56
  57 typedef struct _win {
  58     struct _win         *next;
  59     Window              id;
  60 #if HAS_NAME_WINDOW_PIXMAP
  61     Pixmap              pixmap;
  62 #endif
  63     XWindowAttributes   a;
  64 #if CAN_DO_USABLE
  65     Bool                usable;             /* mapped and all damaged at one point */
  66     XRectangle          damage_bounds;      /* bounds of damage */
  67 #endif
  68     int                 mode;
  69     int                 damaged;
  70     Damage              damage;
  71     Picture             picture;
  72     Picture             alphaPict;
  73     Picture             shadowPict;
  74     XserverRegion       borderSize;
  75     XserverRegion       extents;
  76     Picture             shadow;
  77     int                 shadow_dx;
  78     int                 shadow_dy;
  79     int                 shadow_width;
  80     int                 shadow_height;
  81     unsigned int        opacity;
  82     Atom                windowType;
  83     unsigned long       damage_sequence;    /* sequence when damage was created */
  84
  85     /* for drawing translucent windows */
  86     XserverRegion       borderClip;
  87     struct _win         *prev_trans;
  88 } win;
  89
  90 typedef struct _conv {
  91     int     size;
  92     double  *data;
  93 } conv;
  94
  95 typedef struct _fade {
  96     struct _fade        *next;
  97     win                 *w;
  98     double              cur;
  99     double              finish;
 100     double              step;
 101     void                (*callback) (Display *dpy, win *w, Bool gone);
 102     Display             *dpy;
 103     Bool                gone;
 104 } fade;
 105
 106 win             *list;
 107 fade            *fades;
 108 Display         *dpy;
 109 int             scr;
 110 Window          root;
 111 Picture         rootPicture;
 112 Picture         rootBuffer;
 113 Picture         blackPicture;
 114 Picture         transBlackPicture;
 115 Picture         rootTile;
 116 XserverRegion   allDamage;
 117 Bool            clipChanged;
 118 #if HAS_NAME_WINDOW_PIXMAP
 119 Bool            hasNamePixmap;
 120 #endif
 121 int             root_height, root_width;
 122 ignore          *ignore_head, **ignore_tail = &ignore_head;
 123 int             xfixes_event, xfixes_error;
 124 int             damage_event, damage_error;
 125 int             composite_event, composite_error;
 126 int             render_event, render_error;
 127 Bool            synchronize;
 128 int             composite_opcode;
 129
 130 /* find these once and be done with it */
 131 Atom            opacityAtom;
 132 Atom            winTypeAtom;
 133 Atom            winDesktopAtom;
 134 Atom            winDockAtom;
 135 Atom            winToolbarAtom;
 136 Atom            winMenuAtom;
 137 Atom            winUtilAtom;
 138 Atom            winSplashAtom;
 139 Atom            winDialogAtom;
 140 Atom            winNormalAtom;
 141
 142 /* opacity property name; sometime soon I'll write up an EWMH spec for it */
 143 #define OPACITY_PROP    "_NET_WM_WINDOW_OPACITY"
 144
 145 #define TRANSLUCENT     0xe0000000
 146 #define OPAQUE          0xffffffff
 147
 148 conv            *gaussianMap;
 149
 150 #define WINDOW_SOLID    0
 151 #define WINDOW_TRANS    1
 152 #define WINDOW_ARGB     2
 153
 154 #define TRANS_OPACITY   0.75
 155
 156 #define DEBUG_REPAINT 0
 157 #define DEBUG_EVENTS 0
 158 #define MONITOR_REPAINT 0
 159
 160 #define SHADOWS         1
 161 #define SHARP_SHADOW    0
 162
 163 typedef enum _compMode {
 164     CompSimple,         /* looks like a regular X server */
 165     CompServerShadows,  /* use window alpha for shadow; sharp, but precise */
 166     CompClientShadows,  /* use window extents for shadow, blurred */
 167 } CompMode;
 168
 169 static void
 170 determine_mode(Display *dpy, win *w);
 171
 172 static double
 173 get_opacity_percent(Display *dpy, win *w, double def);
 174
 175 static XserverRegion
 176 win_extents (Display *dpy, win *w);
 177
 178 CompMode    compMode = CompSimple;
 179
 180 int         shadowRadius = 12;
 181 int         shadowOffsetX = -15;
 182 int         shadowOffsetY = -15;
 183 double      shadowOpacity = .75;
 184
 185 double  fade_in_step =  0.028;
 186 double  fade_out_step = 0.03;
 187 int     fade_delta =    10;
 188 int     fade_time =     0;
 189 Bool    fadeWindows = False;
 190 Bool    excludeDockShadows = False;
 191 Bool    fadeTrans = False;
 192
 193 Bool    autoRedirect = False;
 194
 195 /* For shadow precomputation */
 196 int            Gsize = -1;
 197 unsigned char *shadowCorner = NULL;
 198 unsigned char *shadowTop = NULL;
 199
 200 int
 201 get_time_in_milliseconds ()
 202 {
 203     struct timeval  tv;
 204
 205     gettimeofday (&tv, NULL);
 206     return tv.tv_sec * 1000 + tv.tv_usec / 1000;
 207 }
 208
 209 fade *
 210 find_fade (win *w)
 211 {
 212     fade    *f;
 213
 214     for (f = fades; f; f = f->next)
 215     {
 216         if (f->w == w)
 217             return f;
 218     }
 219     return 0;
 220 }
 221
 222 void
 223 dequeue_fade (Display *dpy, fade *f)
 224 {
 225     fade    **prev;
 226
 227     for (prev = &fades; *prev; prev = &(*prev)->next)
 228         if (*prev == f)
 229         {
 230             *prev = f->next;
 231             if (f->callback)
 232                 (*f->callback) (dpy, f->w, f->gone);
 233             free (f);
 234             break;
 235         }
 236 }
 237
 238 void
 239 cleanup_fade (Display *dpy, win *w)
 240 {
 241     fade *f = find_fade (w);
 242     if (f)
 243         dequeue_fade (dpy, f);
 244 }
 245
 246 void
 247 enqueue_fade (Display *dpy, fade *f)
 248 {
 249     if (!fades)
 250         fade_time = get_time_in_milliseconds () + fade_delta;
 251     f->next = fades;
 252     fades = f;
 253 }
 254
 255 static void
 256 set_fade (Display *dpy, win *w, double start, double finish, double step,
 257           void (*callback) (Display *dpy, win *w, Bool gone),
 258           Bool gone, Bool exec_callback, Bool override)
 259 {
 260     fade    *f;
 261
 262     f = find_fade (w);
 263     if (!f)
 264     {
 265         f = malloc (sizeof (fade));
 266         f->next = 0;
 267         f->w = w;
 268         f->cur = start;
 269         enqueue_fade (dpy, f);
 270     }
 271     else if(!override)
 272         return;
 273     else
 274     {
 275         if (exec_callback)
 276             if (f->callback)
 277                 (*f->callback)(dpy, f->w, f->gone);
 278     }
 279
 280     if (finish < 0)
 281         finish = 0;
 282     if (finish > 1)
 283         finish = 1;
 284     f->finish = finish;
 285     if (f->cur < finish)
 286         f->step = step;
 287     else if (f->cur > finish)
 288         f->step = -step;
 289     f->callback = callback;
 290     f->gone = gone;
 291     w->opacity = f->cur * OPAQUE;
 292 #if 0
 293     printf ("set_fade start %g step %g\n", f->cur, f->step);
 294 #endif
 295     determine_mode (dpy, w);
 296     if (w->shadow)
 297     {
 298         XRenderFreePicture (dpy, w->shadow);
 299         w->shadow = None;
 300         w->extents = win_extents (dpy, w);
 301     }
 302 }
 303
 304 int
 305 fade_timeout (void)
 306 {
 307     int now;
 308     int delta;
 309     if (!fades)
 310         return -1;
 311     now = get_time_in_milliseconds();
 312     delta = fade_time - now;
 313     if (delta < 0)
 314         delta = 0;
 315 /*    printf ("timeout %d\n", delta); */
 316     return delta;
 317 }
 318
 319 void
 320 run_fades (Display *dpy)
 321 {
 322     int     now = get_time_in_milliseconds();
 323     fade    *f, *next;
 324     int     steps;
 325
 326 #if 0
 327     printf ("run fades\n");
 328 #endif
 329     if (fade_time - now > 0)
 330         return;
 331     steps = 1 + (now - fade_time) / fade_delta;
 332     for (next = fades; f = next; )
 333     {
 334         win *w = f->w;
 335         next = f->next;
 336         f->cur += f->step * steps;
 337         if (f->cur >= 1)
 338             f->cur = 1;
 339         else if (f->cur < 0)
 340             f->cur = 0;
 341 #if 0
 342         printf ("opacity now %g\n", f->cur);
 343 #endif
 344         w->opacity = f->cur * OPAQUE;
 345         if (f->step > 0)
 346         {
 347             if (f->cur >= f->finish)
 348             {
 349                 w->opacity = f->finish*OPAQUE;
 350                 dequeue_fade (dpy, f);
 351         }
 352         }
 353         else
 354         {
 355             if (f->cur <= f->finish)
 356             {
 357                 w->opacity = f->finish*OPAQUE;
 358                 dequeue_fade (dpy, f);
 359         }
 360         }
 361         determine_mode (dpy, w);
 362         if (w->shadow)
 363         {
 364             XRenderFreePicture (dpy, w->shadow);
 365             w->shadow = None;
 366             w->extents = win_extents(dpy, w);
 367         }
 368     }
 369     fade_time = now + fade_delta;
 370 }
 371
 372 static double
 373 gaussian (double r, double x, double y)
 374 {
 375     return ((1 / (sqrt (2 * M_PI * r))) *
 376             exp ((- (x * x + y * y)) / (2 * r * r)));
 377 }
 378
 379
 380 static conv *
 381 make_gaussian_map (Display *dpy, double r)
 382 {
 383     conv            *c;
 384     int             size = ((int) ceil ((r * 3)) + 1) & ~1;
 385     int             center = size / 2;
 386     int             x, y;
 387     double          t;
 388     double          g;
 389
 390     c = malloc (sizeof (conv) + size * size * sizeof (double));
 391     c->size = size;
 392     c->data = (double *) (c + 1);
 393     t = 0.0;
 394     for (y = 0; y < size; y++)
 395         for (x = 0; x < size; x++)
 396         {
 397             g = gaussian (r, (double) (x - center), (double) (y - center));
 398             t += g;
 399             c->data[y * size + x] = g;
 400         }
 401 /*    printf ("gaussian total %f\n", t); */
 402     for (y = 0; y < size; y++)
 403         for (x = 0; x < size; x++)
 404         {
 405             c->data[y*size + x] /= t;
 406         }
 407     return c;
 408 }
 409
 410 /*
 411  * A picture will help
 412  *
 413  *      -center   0                width  width+center
 414  *  -center +-----+-------------------+-----+
 415  *          |     |                   |     |
 416  *          |     |                   |     |
 417  *        0 +-----+-------------------+-----+
 418  *          |     |                   |     |
 419  *          |     |                   |     |
 420  *          |     |                   |     |
 421  *   height +-----+-------------------+-----+
 422  *          |     |                   |     |
 423  * height+  |     |                   |     |
 424  *  center  +-----+-------------------+-----+
 425  */
 426
 427 static unsigned char
 428 sum_gaussian (conv *map, double opacity, int x, int y, int width, int height)
 429 {
 430     int     fx, fy;
 431     double  *g_data;
 432     double  *g_line = map->data;
 433     int     g_size = map->size;
 434     int     center = g_size / 2;
 435     int     fx_start, fx_end;
 436     int     fy_start, fy_end;
 437     double  v;
 438
 439     /*
 440      * Compute set of filter values which are "in range",
 441      * that's the set with:
 442      *  0 <= x + (fx-center) && x + (fx-center) < width &&
 443      *  0 <= y + (fy-center) && y + (fy-center) < height
 444      *
 445      *  0 <= x + (fx - center)  x + fx - center < width
 446      *  center - x <= fx        fx < width + center - x
 447      */
 448
 449     fx_start = center - x;
 450     if (fx_start < 0)
 451         fx_start = 0;
 452     fx_end = width + center - x;
 453     if (fx_end > g_size)
 454         fx_end = g_size;
 455
 456     fy_start = center - y;
 457     if (fy_start < 0)
 458         fy_start = 0;
 459     fy_end = height + center - y;
 460     if (fy_end > g_size)
 461         fy_end = g_size;
 462
 463     g_line = g_line + fy_start * g_size + fx_start;
 464
 465     v = 0;
 466     for (fy = fy_start; fy < fy_end; fy++)
 467     {
 468         g_data = g_line;
 469         g_line += g_size;
 470
 471         for (fx = fx_start; fx < fx_end; fx++)
 472             v += *g_data++;
 473     }
 474     if (v > 1)
 475         v = 1;
 476
 477     return ((unsigned char) (v * opacity * 255.0));
 478 }
 479
 480 /* precompute shadow corners and sides to save time for large windows */
 481 static void
 482 presum_gaussian (conv *map)
 483 {
 484     int center = map->size/2;
 485     int opacity, x, y;
 486
 487     Gsize = map->size;
 488
 489     if (shadowCorner)
 490         free ((void *)shadowCorner);
 491     if (shadowTop)
 492         free ((void *)shadowTop);
 493
 494     shadowCorner = (unsigned char *)(malloc ((Gsize + 1) * (Gsize + 1) * 26));
 495     shadowTop = (unsigned char *)(malloc ((Gsize + 1) * 26));
 496
 497     for (x = 0; x <= Gsize; x++)
 498     {
 499         shadowTop[25 * (Gsize + 1) + x] = sum_gaussian (map, 1, x - center, center, Gsize * 2, Gsize * 2);
 500         for(opacity = 0; opacity < 25; opacity++)
 501             shadowTop[opacity * (Gsize + 1) + x] = shadowTop[25 * (Gsize + 1) + x] * opacity / 25;
 502         for(y = 0; y <= x; y++)
 503         {
 504             shadowCorner[25 * (Gsize + 1) * (Gsize + 1) + y * (Gsize + 1) + x]
 505                 = sum_gaussian (map, 1, x - center, y - center, Gsize * 2, Gsize * 2);
 506             shadowCorner[25 * (Gsize + 1) * (Gsize + 1) + x * (Gsize + 1) + y]
 507                 = shadowCorner[25 * (Gsize + 1) * (Gsize + 1) + y * (Gsize + 1) + x];
 508             for(opacity = 0; opacity < 25; opacity++)
 509                 shadowCorner[opacity * (Gsize + 1) * (Gsize + 1) + y * (Gsize + 1) + x]
 510                     = shadowCorner[opacity * (Gsize + 1) * (Gsize + 1) + x * (Gsize + 1) + y]
 511                     = shadowCorner[25 * (Gsize + 1) * (Gsize + 1) + y * (Gsize + 1) + x] * opacity / 25;
 512         }
 513     }
 514 }
 515
 516 static XImage *
 517 make_shadow (Display *dpy, double opacity, int width, int height)
 518 {
 519     XImage          *ximage;
 520     unsigned char   *data;
 521     int             gsize = gaussianMap->size;
 522     int             ylimit, xlimit;
 523     int             swidth = width + gsize;
 524     int             sheight = height + gsize;
 525     int             center = gsize / 2;
 526     int             x, y;
 527     unsigned char   d;
 528     int             x_diff;
 529     int             opacity_int = (int)(opacity * 25);
 530     data = malloc (swidth * sheight * sizeof (unsigned char));
 531     if (!data)
 532         return 0;
 533     ximage = XCreateImage (dpy,
 534                            DefaultVisual(dpy, DefaultScreen(dpy)),
 535                            8,
 536                            ZPixmap,
 537                            0,
 538                            (char *) data,
 539                            swidth, sheight, 8, swidth * sizeof (unsigned char));
 540     if (!ximage)
 541     {
 542         free (data);
 543         return 0;
 544     }
 545     /*
 546      * Build the gaussian in sections
 547      */
 548
 549     /*
 550      * center (fill the complete data array)
 551      */
 552     if (Gsize > 0)
 553         d = shadowTop[opacity_int * (Gsize + 1) + Gsize];
 554     else
 555         d = sum_gaussian (gaussianMap, opacity, center, center, width, height);
 556     memset(data, d, sheight * swidth);
 557
 558     /*
 559      * corners
 560      */
 561     ylimit = gsize;
 562     if (ylimit > sheight / 2)
 563         ylimit = (sheight + 1) / 2;
 564     xlimit = gsize;
 565     if (xlimit > swidth / 2)
 566         xlimit = (swidth + 1) / 2;
 567
 568     for (y = 0; y < ylimit; y++)
 569         for (x = 0; x < xlimit; x++)
 570         {
 571             if (xlimit == Gsize && ylimit == Gsize)
 572                 d = shadowCorner[opacity_int * (Gsize + 1) * (Gsize + 1) + y * (Gsize + 1) + x];
 573             else
 574                 d = sum_gaussian (gaussianMap, opacity, x - center, y - center, width, height);
 575             data[y * swidth + x] = d;
 576             data[(sheight - y - 1) * swidth + x] = d;
 577             data[(sheight - y - 1) * swidth + (swidth - x - 1)] = d;
 578             data[y * swidth + (swidth - x - 1)] = d;
 579         }
 580
 581     /*
 582      * top/bottom
 583      */
 584     x_diff = swidth - (gsize * 2);
 585     if (x_diff > 0 && ylimit > 0)
 586     {
 587         for (y = 0; y < ylimit; y++)
 588         {
 589             if (ylimit == Gsize)
 590                 d = shadowTop[opacity_int * (Gsize + 1) + y];
 591             else
 592                 d = sum_gaussian (gaussianMap, opacity, center, y - center, width, height);
 593             memset (&data[y * swidth + gsize], d, x_diff);
 594             memset (&data[(sheight - y - 1) * swidth + gsize], d, x_diff);
 595         }
 596     }
 597
 598     /*
 599      * sides
 600      */
 601
 602     for (x = 0; x < xlimit; x++)
 603     {
 604         if (xlimit == Gsize)
 605             d = shadowTop[opacity_int * (Gsize + 1) + x];
 606         else
 607             d = sum_gaussian (gaussianMap, opacity, x - center, center, width, height);
 608         for (y = gsize; y < sheight - gsize; y++)
 609         {
 610             data[y * swidth + x] = d;
 611             data[y * swidth + (swidth - x - 1)] = d;
 612         }
 613     }
 614
 615     return ximage;
 616 }
 617
 618 static Picture
 619 shadow_picture (Display *dpy, double opacity, Picture alpha_pict, int width, int height, int *wp, int *hp)
 620 {
 621     XImage  *shadowImage;
 622     Pixmap  shadowPixmap;
 623     Pixmap  finalPixmap;
 624     Picture shadowPicture;
 625     Picture finalPicture;
 626     GC      gc;
 627
 628     shadowImage = make_shadow (dpy, opacity, width, height);
 629     if (!shadowImage)
 630         return None;
 631     shadowPixmap = XCreatePixmap (dpy, root,
 632                                   shadowImage->width,
 633                                   shadowImage->height,
 634                                   8);
 635     if (!shadowPixmap)
 636     {
 637         XDestroyImage (shadowImage);
 638         return None;
 639     }
 640
 641     shadowPicture = XRenderCreatePicture (dpy, shadowPixmap,
 642                                           XRenderFindStandardFormat (dpy, PictStandardA8),
 643                                           0, 0);
 644     if (!shadowPicture)
 645     {
 646         XDestroyImage (shadowImage);
 647         XFreePixmap (dpy, shadowPixmap);
 648         return None;
 649     }
 650
 651     gc = XCreateGC (dpy, shadowPixmap, 0, 0);
 652     if (!gc)
 653     {
 654         XDestroyImage (shadowImage);
 655         XFreePixmap (dpy, shadowPixmap);
 656         XRenderFreePicture (dpy, shadowPicture);
 657         return None;
 658     }
 659
 660     XPutImage (dpy, shadowPixmap, gc, shadowImage, 0, 0, 0, 0,
 661                shadowImage->width,
 662                shadowImage->height);
 663     *wp = shadowImage->width;
 664     *hp = shadowImage->height;
 665     XFreeGC (dpy, gc);
 666     XDestroyImage (shadowImage);
 667     XFreePixmap (dpy, shadowPixmap);
 668     return shadowPicture;
 669 }
 670
 671 Picture
 672 solid_picture (Display *dpy, Bool argb, double a, double r, double g, double b)
 673 {
 674     Pixmap                      pixmap;
 675     Picture                     picture;
 676     XRenderPictureAttributes    pa;
 677     XRenderColor                c;
 678
 679     pixmap = XCreatePixmap (dpy, root, 1, 1, argb ? 32 : 8);
 680     pa.repeat = True;
 681     picture = XRenderCreatePicture (dpy, pixmap,
 682                                     XRenderFindStandardFormat (dpy, argb ? PictStandardARGB32 : PictStandardA8),
 683                                     CPRepeat,
 684                                     &pa);
 685     c.alpha = a * 0xffff;
 686     c.red = r * 0xffff;
 687     c.green = g * 0xffff;
 688     c.blue = b * 0xffff;
 689     XRenderFillRectangle (dpy, PictOpSrc, picture, &c, 0, 0, 1, 1);
 690     XFreePixmap (dpy, pixmap);
 691     return picture;
 692 }
 693
 694 void
 695 discard_ignore (Display *dpy, unsigned long sequence)
 696 {
 697     while (ignore_head)
 698     {
 699         if ((long) (sequence - ignore_head->sequence) > 0)
 700         {
 701             ignore  *next = ignore_head->next;
 702             free (ignore_head);
 703             ignore_head = next;
 704             if (!ignore_head)
 705                 ignore_tail = &ignore_head;
 706         }
 707         else
 708             break;
 709     }
 710 }
 711
 712 void
 713 set_ignore (Display *dpy, unsigned long sequence)
 714 {
 715     ignore  *i = malloc (sizeof (ignore));
 716     if (!i)
 717         return;
 718     i->sequence = sequence;
 719     i->next = 0;
 720     *ignore_tail = i;
 721     ignore_tail = &i->next;
 722 }
 723
 724 int
 725 should_ignore (Display *dpy, unsigned long sequence)
 726 {
 727     discard_ignore (dpy, sequence);
 728     return ignore_head && ignore_head->sequence == sequence;
 729 }
 730
 731 static win *
 732 find_win (Display *dpy, Window id)
 733 {
 734     win *w;
 735
 736     for (w = list; w; w = w->next)
 737         if (w->id == id)
 738             return w;
 739     return 0;
 740 }
 741
 742 static char *backgroundProps[] = {
 743     "_XROOTPMAP_ID",
 744     "_XSETROOT_ID",
 745     0,
 746 };
 747
 748 static Picture
 749 root_tile (Display *dpy)
 750 {
 751     Picture         picture;
 752     Atom            actual_type;
 753     Pixmap          pixmap;
 754     int             actual_format;
 755     unsigned long   nitems;
 756     unsigned long   bytes_after;
 757     unsigned char   *prop;
 758     Bool            fill;
 759     XRenderPictureAttributes    pa;
 760     int             p;
 761
 762     pixmap = None;
 763     for (p = 0; backgroundProps[p]; p++)
 764     {
 765         if (XGetWindowProperty (dpy, root, XInternAtom (dpy, backgroundProps[p], False),
 766                                 0, 4, False, AnyPropertyType,
 767                                 &actual_type, &actual_format, &nitems, &bytes_after, &prop) == Success &&
 768             actual_type == XInternAtom (dpy, "PIXMAP", False) && actual_format == 32 && nitems == 1)
 769         {
 770             memcpy (&pixmap, prop, 4);
 771             XFree (prop);
 772             fill = False;
 773             break;
 774         }
 775     }
 776     if (!pixmap)
 777     {
 778         pixmap = XCreatePixmap (dpy, root, 1, 1, DefaultDepth (dpy, scr));
 779         fill = True;
 780     }
 781     pa.repeat = True;
 782     picture = XRenderCreatePicture (dpy, pixmap,
 783                                     XRenderFindVisualFormat (dpy,
 784                                                              DefaultVisual (dpy, scr)),
 785                                     CPRepeat, &pa);
 786     if (fill)
 787     {
 788         XRenderColor    c;
 789
 790         c.red = c.green = c.blue = 0x8080;
 791         c.alpha = 0xffff;
 792         XRenderFillRectangle (dpy, PictOpSrc, picture, &c,
 793                               0, 0, 1, 1);
 794     }
 795     return picture;
 796 }
 797
 798 static void
 799 paint_root (Display *dpy)
 800 {
 801     if (!rootTile)
 802         rootTile = root_tile (dpy);
 803
 804     XRenderComposite (dpy, PictOpSrc,
 805                       rootTile, None, rootBuffer,
 806                       0, 0, 0, 0, 0, 0, root_width, root_height);
 807 }
 808
 809 static XserverRegion
 810 win_extents (Display *dpy, win *w)
 811 {
 812     XRectangle      r;
 813
 814     r.x = w->a.x;
 815     r.y = w->a.y;
 816     r.width = w->a.width + w->a.border_width * 2;
 817     r.height = w->a.height + w->a.border_width * 2;
 818     if (compMode != CompSimple && !(w->windowType == winDockAtom && excludeDockShadows))
 819     {
 820         if (compMode == CompServerShadows || w->mode != WINDOW_ARGB)
 821         {
 822             XRectangle  sr;
 823
 824             if (compMode == CompServerShadows)
 825             {
 826                 w->shadow_dx = 2;
 827                 w->shadow_dy = 7;
 828                 w->shadow_width = w->a.width;
 829                 w->shadow_height = w->a.height;
 830             }
 831             else
 832             {
 833                 w->shadow_dx = shadowOffsetX;
 834                 w->shadow_dy = shadowOffsetY;
 835                 if (!w->shadow)
 836                 {
 837                     double      opacity = shadowOpacity;
 838                     if (w->mode == WINDOW_TRANS)
 839                         opacity = opacity * ((double)w->opacity)/((double)OPAQUE);
 840                     w->shadow = shadow_picture (dpy, opacity, w->alphaPict,
 841                                                 w->a.width + w->a.border_width * 2,
 842                                                 w->a.height + w->a.border_width * 2,
 843                                                 &w->shadow_width, &w->shadow_height);
 844                 }
 845             }
 846             sr.x = w->a.x + w->shadow_dx;
 847             sr.y = w->a.y + w->shadow_dy;
 848             sr.width = w->shadow_width;
 849             sr.height = w->shadow_height;
 850             if (sr.x < r.x)
 851             {
 852                 r.width = (r.x + r.width) - sr.x;
 853                 r.x = sr.x;
 854             }
 855             if (sr.y < r.y)
 856             {
 857                 r.height = (r.y + r.height) - sr.y;
 858                 r.y = sr.y;
 859             }
 860             if (sr.x + sr.width > r.x + r.width)
 861                 r.width = sr.x + sr.width - r.x;
 862             if (sr.y + sr.height > r.y + r.height)
 863                 r.height = sr.y + sr.height - r.y;
 864         }
 865     }
 866     return XFixesCreateRegion (dpy, &r, 1);
 867 }
 868
 869 static XserverRegion
 870 border_size (Display *dpy, win *w)
 871 {
 872     XserverRegion   border;
 873     /*
 874      * if window doesn't exist anymore,  this will generate an error
 875      * as well as not generate a region.  Perhaps a better XFixes
 876      * architecture would be to have a request that copies instead
 877      * of creates, that way you'd just end up with an empty region
 878      * instead of an invalid XID.
 879      */
 880     set_ignore (dpy, NextRequest (dpy));
 881     border = XFixesCreateRegionFromWindow (dpy, w->id, WindowRegionBounding);
 882     /* translate this */
 883     set_ignore (dpy, NextRequest (dpy));
 884     XFixesTranslateRegion (dpy, border,
 885                            w->a.x + w->a.border_width,
 886                            w->a.y + w->a.border_width);
 887     return border;
 888 }
 889
 890 static void
 891 paint_all (Display *dpy, XserverRegion region)
 892 {
 893     win *w;
 894     win *t = 0;
 895
 896     if (!region)
 897     {
 898         XRectangle  r;
 899         r.x = 0;
 900         r.y = 0;
 901         r.width = root_width;
 902         r.height = root_height;
 903         region = XFixesCreateRegion (dpy, &r, 1);
 904     }
 905 #if MONITOR_REPAINT
 906     rootBuffer = rootPicture;
 907 #else
 908     if (!rootBuffer)
 909     {
 910         Pixmap  rootPixmap = XCreatePixmap (dpy, root, root_width, root_height,
 911                                             DefaultDepth (dpy, scr));
 912         rootBuffer = XRenderCreatePicture (dpy, rootPixmap,
 913                                            XRenderFindVisualFormat (dpy,
 914                                                                     DefaultVisual (dpy, scr)),
 915                                            0, 0);
 916         XFreePixmap (dpy, rootPixmap);
 917     }
 918 #endif
 919     XFixesSetPictureClipRegion (dpy, rootPicture, 0, 0, region);
 920 #if MONITOR_REPAINT
 921     XRenderComposite (dpy, PictOpSrc, blackPicture, None, rootPicture,
 922                       0, 0, 0, 0, 0, 0, root_width, root_height);
 923 #endif
 924 #if DEBUG_REPAINT
 925     printf ("paint:");
 926 #endif
 927     for (w = list; w; w = w->next)
 928     {
 929 #if CAN_DO_USABLE
 930         if (!w->usable)
 931             continue;
 932 #endif
 933         /* never painted, ignore it */
 934         if (!w->damaged)
 935             continue;
 936         if (!w->picture)
 937         {
 938             XRenderPictureAttributes    pa;
 939             XRenderPictFormat           *format;
 940             Drawable                    draw = w->id;
 941
 942 #if HAS_NAME_WINDOW_PIXMAP
 943             if (hasNamePixmap && !w->pixmap)
 944                 w->pixmap = XCompositeNameWindowPixmap (dpy, w->id);
 945             if (w->pixmap)
 946                 draw = w->pixmap;
 947 #endif
 948             format = XRenderFindVisualFormat (dpy, w->a.visual);
 949             pa.subwindow_mode = IncludeInferiors;
 950             w->picture = XRenderCreatePicture (dpy, draw,
 951                                                format,
 952                                                CPSubwindowMode,
 953                                                &pa);
 954         }
 955 #if DEBUG_REPAINT
 956         printf (" 0x%x", w->id);
 957 #endif
 958         if (clipChanged)
 959         {
 960             if (w->borderSize)
 961             {
 962                 set_ignore (dpy, NextRequest (dpy));
 963                 XFixesDestroyRegion (dpy, w->borderSize);
 964                 w->borderSize = None;
 965             }
 966             if (w->extents)
 967             {
 968                 XFixesDestroyRegion (dpy, w->extents);
 969                 w->extents = None;
 970             }
 971             if (w->borderClip)
 972             {
 973                 XFixesDestroyRegion (dpy, w->borderClip);
 974                 w->borderClip = None;
 975             }
 976         }
 977         if (!w->borderSize)
 978             w->borderSize = border_size (dpy, w);
 979         if (!w->extents)
 980             w->extents = win_extents (dpy, w);
 981         if (w->mode == WINDOW_SOLID)
 982         {
 983             int x, y, wid, hei;
 984 #if HAS_NAME_WINDOW_PIXMAP
 985             x = w->a.x;
 986             y = w->a.y;
 987             wid = w->a.width + w->a.border_width * 2;
 988             hei = w->a.height + w->a.border_width * 2;
 989 #else
 990             x = w->a.x + w->a.border_width;
 991             y = w->a.y + w->a.border_width;
 992             wid = w->a.width;
 993             hei = w->a.height;
 994 #endif
 995             XFixesSetPictureClipRegion (dpy, rootBuffer, 0, 0, region);
 996             set_ignore (dpy, NextRequest (dpy));
 997             XFixesSubtractRegion (dpy, region, region, w->borderSize);
 998             set_ignore (dpy, NextRequest (dpy));
 999             XRenderComposite (dpy, PictOpSrc, w->picture, None, rootBuffer,
1000                               0, 0, 0, 0,
1001                               x, y, wid, hei);
1002         }
1003         if (!w->borderClip)
1004         {
1005             w->borderClip = XFixesCreateRegion (dpy, 0, 0);
1006             XFixesCopyRegion (dpy, w->borderClip, region);
1007         }
1008         w->prev_trans = t;
1009         t = w;
1010     }
1011 #if DEBUG_REPAINT
1012     printf ("\n");
1013     fflush (stdout);
1014 #endif
1015     XFixesSetPictureClipRegion (dpy, rootBuffer, 0, 0, region);
1016     paint_root (dpy);
1017     for (w = t; w; w = w->prev_trans)
1018     {
1019         XFixesSetPictureClipRegion (dpy, rootBuffer, 0, 0, w->borderClip);
1020         switch (compMode) {
1021         case CompSimple:
1022             break;
1023         case CompServerShadows:
1024             set_ignore (dpy, NextRequest (dpy));
1025             if (w->opacity != OPAQUE && !w->shadowPict)
1026                 w->shadowPict = solid_picture (dpy, True,
1027                                                (double) w->opacity / OPAQUE * 0.3,
1028                                                0, 0, 0);
1029             XRenderComposite (dpy, PictOpOver,
1030                               w->shadowPict ? w->shadowPict : transBlackPicture,
1031                               w->picture, rootBuffer,
1032                               0, 0, 0, 0,
1033                               w->a.x + w->shadow_dx,
1034                               w->a.y + w->shadow_dy,
1035                               w->shadow_width, w->shadow_height);
1036             break;
1037         case CompClientShadows:
1038             if (w->shadow)
1039             {
1040                 XRenderComposite (dpy, PictOpOver, blackPicture, w->shadow, rootBuffer,
1041                                   0, 0, 0, 0,
1042                                   w->a.x + w->shadow_dx,
1043                                   w->a.y + w->shadow_dy,
1044                                   w->shadow_width, w->shadow_height);
1045             }
1046             break;
1047         }
1048         if (w->opacity != OPAQUE && !w->alphaPict)
1049             w->alphaPict = solid_picture (dpy, False,
1050                                           (double) w->opacity / OPAQUE, 0, 0, 0);
1051         if (w->mode == WINDOW_TRANS)
1052         {
1053             int x, y, wid, hei;
1054 #if HAS_NAME_WINDOW_PIXMAP
1055             x = w->a.x;
1056             y = w->a.y;
1057             wid = w->a.width + w->a.border_width * 2;
1058             hei = w->a.height + w->a.border_width * 2;
1059 #else
1060             x = w->a.x + w->a.border_width;
1061             y = w->a.y + w->a.border_width;
1062             wid = w->a.width;
1063             hei = w->a.height;
1064 #endif
1065             set_ignore (dpy, NextRequest (dpy));
1066             XRenderComposite (dpy, PictOpOver, w->picture, w->alphaPict, rootBuffer,
1067                               0, 0, 0, 0,
1068                               x, y, wid, hei);
1069         }
1070         else if (w->mode == WINDOW_ARGB)
1071         {
1072             int x, y, wid, hei;
1073 #if HAS_NAME_WINDOW_PIXMAP
1074             x = w->a.x;
1075             y = w->a.y;
1076             wid = w->a.width + w->a.border_width * 2;
1077             hei = w->a.height + w->a.border_width * 2;
1078 #else
1079             x = w->a.x + w->a.border_width;
1080             y = w->a.y + w->a.border_width;
1081             wid = w->a.width;
1082             hei = w->a.height;
1083 #endif
1084             set_ignore (dpy, NextRequest (dpy));
1085             XRenderComposite (dpy, PictOpOver, w->picture, w->alphaPict, rootBuffer,
1086                               0, 0, 0, 0,
1087                               x, y, wid, hei);
1088         }
1089         XFixesDestroyRegion (dpy, w->borderClip);
1090         w->borderClip = None;
1091     }
1092     XFixesDestroyRegion (dpy, region);
1093     if (rootBuffer != rootPicture)
1094     {
1095         XFixesSetPictureClipRegion (dpy, rootBuffer, 0, 0, None);
1096         XRenderComposite (dpy, PictOpSrc, rootBuffer, None, rootPicture,
1097                           0, 0, 0, 0, 0, 0, root_width, root_height);
1098     }
1099 }
1100
1101 static void
1102 add_damage (Display *dpy, XserverRegion damage)
1103 {
1104     if (allDamage)
1105     {
1106         XFixesUnionRegion (dpy, allDamage, allDamage, damage);
1107         XFixesDestroyRegion (dpy, damage);
1108     }
1109     else
1110         allDamage = damage;
1111 }
1112
1113 static void
1114 repair_win (Display *dpy, win *w)
1115 {
1116     XserverRegion   parts;
1117
1118     if (!w->damaged)
1119     {
1120         parts = win_extents (dpy, w);
1121         set_ignore (dpy, NextRequest (dpy));
1122         XDamageSubtract (dpy, w->damage, None, None);
1123     }
1124     else
1125     {
1126         XserverRegion   o;
1127         parts = XFixesCreateRegion (dpy, 0, 0);
1128         set_ignore (dpy, NextRequest (dpy));
1129         XDamageSubtract (dpy, w->damage, None, parts);
1130         XFixesTranslateRegion (dpy, parts,
1131                                w->a.x + w->a.border_width,
1132                                w->a.y + w->a.border_width);
1133         if (compMode == CompServerShadows)
1134         {
1135             o = XFixesCreateRegion (dpy, 0, 0);
1136             XFixesCopyRegion (dpy, o, parts);
1137             XFixesTranslateRegion (dpy, o, w->shadow_dx, w->shadow_dy);
1138             XFixesUnionRegion (dpy, parts, parts, o);
1139             XFixesDestroyRegion (dpy, o);
1140         }
1141     }
1142     add_damage (dpy, parts);
1143     w->damaged = 1;
1144 }
1145
1146 static void
1147 map_win (Display *dpy, Window id, unsigned long sequence, Bool fade)
1148 {
1149     win         *w = find_win (dpy, id);
1150     Drawable    back;
1151
1152     if (!w)
1153         return;
1154
1155     w->a.map_state = IsViewable;
1156
1157     /* This needs to be here or else we lose transparency messages */
1158     XSelectInput (dpy, id, PropertyChangeMask);
1159
1160 #if CAN_DO_USABLE
1161     w->damage_bounds.x = w->damage_bounds.y = 0;
1162     w->damage_bounds.width = w->damage_bounds.height = 0;
1163 #endif
1164     w->damaged = 0;
1165
1166     if (fade && fadeWindows)
1167         set_fade (dpy, w, 0, get_opacity_percent (dpy, w, 1.0), fade_in_step, 0, False, True, True);
1168 }
1169
1170 static void
1171 finish_unmap_win (Display *dpy, win *w)
1172 {
1173     w->damaged = 0;
1174 #if CAN_DO_USABLE
1175     w->usable = False;
1176 #endif
1177     if (w->extents != None)
1178     {
1179         add_damage (dpy, w->extents);    /* destroys region */
1180         w->extents = None;
1181     }
1182
1183 #if HAS_NAME_WINDOW_PIXMAP
1184     if (w->pixmap)
1185     {
1186         XFreePixmap (dpy, w->pixmap);
1187         w->pixmap = None;
1188     }
1189 #endif
1190
1191     if (w->picture)
1192     {
1193         set_ignore (dpy, NextRequest (dpy));
1194         XRenderFreePicture (dpy, w->picture);
1195         w->picture = None;
1196     }
1197
1198     /* don't care about properties anymore */
1199     set_ignore (dpy, NextRequest (dpy));
1200     XSelectInput(dpy, w->id, 0);
1201
1202     if (w->borderSize)
1203     {
1204         set_ignore (dpy, NextRequest (dpy));
1205         XFixesDestroyRegion (dpy, w->borderSize);
1206         w->borderSize = None;
1207     }
1208     if (w->shadow)
1209     {
1210         XRenderFreePicture (dpy, w->shadow);
1211         w->shadow = None;
1212     }
1213     if (w->borderClip)
1214     {
1215         XFixesDestroyRegion (dpy, w->borderClip);
1216         w->borderClip = None;
1217     }
1218
1219     clipChanged = True;
1220 }
1221
1222 #if HAS_NAME_WINDOW_PIXMAP
1223 static void
1224 unmap_callback (Display *dpy, win *w, Bool gone)
1225 {
1226     finish_unmap_win (dpy, w);
1227 }
1228 #endif
1229
1230 static void
1231 unmap_win (Display *dpy, Window id, Bool fade)
1232 {
1233     win *w = find_win (dpy, id);
1234     if (!w)
1235         return;
1236     w->a.map_state = IsUnmapped;
1237 #if HAS_NAME_WINDOW_PIXMAP
1238     if (w->pixmap && fade && fadeWindows)
1239         set_fade (dpy, w, w->opacity*1.0/OPAQUE, 0.0, fade_out_step, unmap_callback, False, False, True);
1240     else
1241 #endif
1242         finish_unmap_win (dpy, w);
1243 }
1244
1245 /* Get the opacity prop from window
1246    not found: default
1247    otherwise the value
1248  */
1249 static unsigned int
1250 get_opacity_prop(Display *dpy, win *w, unsigned int def)
1251 {
1252     Atom actual;
1253     int format;
1254     unsigned long n, left;
1255
1256     unsigned char *data;
1257     int result = XGetWindowProperty(dpy, w->id, opacityAtom, 0L, 1L, False,
1258                        XA_CARDINAL, &actual, &format,
1259                                     &n, &left, &data);
1260     if (result == Success && data != None)
1261     {
1262         unsigned int i;
1263         memcpy (&i, data, sizeof (unsigned int));
1264         XFree( (void *) data);
1265         return i;
1266     }
1267     return def;
1268 }
1269
1270 /* Get the opacity property from the window in a percent format
1271    not found: default
1272    otherwise: the value
1273 */
1274 static double
1275 get_opacity_percent(Display *dpy, win *w, double def)
1276 {
1277     unsigned int opacity = get_opacity_prop (dpy, w, (unsigned int)(OPAQUE*def));
1278
1279     return opacity*1.0/OPAQUE;
1280 }
1281
1282 /* determine mode for window all in one place.
1283    Future might check for menu flag and other cool things
1284 */
1285
1286 static Atom
1287 get_wintype_prop(Display * dpy, Window w)
1288 {
1289     Atom actual;
1290     int format;
1291     unsigned long n, left;
1292
1293     unsigned char *data;
1294     int result = XGetWindowProperty (dpy, w, winTypeAtom, 0L, 1L, False,
1295                                      XA_ATOM, &actual, &format,
1296                                      &n, &left, &data);
1297
1298     if (result == Success && data != None)
1299     {
1300         Atom a;
1301         memcpy (&a, data, sizeof (Atom));
1302         XFree ( (void *) data);
1303         return a;
1304     }
1305     return winNormalAtom;
1306 }
1307
1308 static void
1309 determine_mode(Display *dpy, win *w)
1310 {
1311     int mode;
1312     XRenderPictFormat *format;
1313     unsigned int default_opacity;
1314
1315     /* if trans prop == -1 fall back on  previous tests*/
1316
1317     if (w->alphaPict)
1318     {
1319         XRenderFreePicture (dpy, w->alphaPict);
1320         w->alphaPict = None;
1321     }
1322     if (w->shadowPict)
1323     {
1324         XRenderFreePicture (dpy, w->shadowPict);
1325         w->shadowPict = None;
1326     }
1327
1328     if (w->a.class == InputOnly)
1329     {
1330         format = 0;
1331     }
1332     else
1333     {
1334         format = XRenderFindVisualFormat (dpy, w->a.visual);
1335     }
1336
1337     if (format && format->type == PictTypeDirect && format->direct.alphaMask)
1338     {
1339         mode = WINDOW_ARGB;
1340     }
1341     else if (w->opacity != OPAQUE)
1342     {
1343         mode = WINDOW_TRANS;
1344     }
1345     else
1346     {
1347         mode = WINDOW_SOLID;
1348     }
1349     w->mode = mode;
1350     if (w->extents)
1351     {
1352         XserverRegion damage;
1353         damage = XFixesCreateRegion (dpy, 0, 0);
1354         XFixesCopyRegion (dpy, damage, w->extents);
1355         add_damage (dpy, damage);
1356     }
1357 }
1358
1359 static Atom
1360 determine_wintype (Display *dpy, Window w)
1361 {
1362     Window       root_return, parent_return;
1363     Window      *children;
1364     unsigned int nchildren, i;
1365     Atom         type;
1366
1367     type = get_wintype_prop (dpy, w);
1368     if (type != winNormalAtom)
1369         return type;
1370
1371     if (!XQueryTree (dpy, w, &root_return, &parent_return, &children,
1372                             &nchildren))
1373     {
1374         /* XQueryTree failed. */
1375         return winNormalAtom;
1376     }
1377
1378     for (i = 0;i < nchildren;i++)
1379     {
1380         type = determine_wintype (dpy, children[i]);
1381         if (type != winNormalAtom)
1382             return type;
1383     }
1384
1385     return winNormalAtom;
1386 }
1387
1388 static void
1389 add_win (Display *dpy, Window id, Window prev)
1390 {
1391     win                         *new = malloc (sizeof (win));
1392     win                         **p;
1393
1394     if (!new)
1395         return;
1396     if (prev)
1397     {
1398         for (p = &list; *p; p = &(*p)->next)
1399             if ((*p)->id == prev)
1400                 break;
1401     }
1402     else
1403         p = &list;
1404     new->id = id;
1405     set_ignore (dpy, NextRequest (dpy));
1406     if (!XGetWindowAttributes (dpy, id, &new->a))
1407     {
1408         free (new);
1409         return;
1410     }
1411     new->damaged = 0;
1412 #if CAN_DO_USABLE
1413     new->usable = False;
1414 #endif
1415 #if HAS_NAME_WINDOW_PIXMAP
1416     new->pixmap = None;
1417 #endif
1418     new->picture = None;
1419     if (new->a.class == InputOnly)
1420     {
1421         new->damage_sequence = 0;
1422         new->damage = None;
1423     }
1424     else
1425     {
1426         new->damage_sequence = NextRequest (dpy);
1427         new->damage = XDamageCreate (dpy, id, XDamageReportNonEmpty);
1428     }
1429     new->alphaPict = None;
1430     new->shadowPict = None;
1431     new->borderSize = None;
1432     new->extents = None;
1433     new->shadow = None;
1434     new->shadow_dx = 0;
1435     new->shadow_dy = 0;
1436     new->shadow_width = 0;
1437     new->shadow_height = 0;
1438     new->opacity = OPAQUE;
1439
1440     new->borderClip = None;
1441     new->prev_trans = 0;
1442
1443     /* moved mode setting to one place */
1444     new->opacity = get_opacity_prop (dpy, new, OPAQUE);
1445     new->windowType = determine_wintype (dpy, new->id);
1446     determine_mode (dpy, new);
1447
1448     new->next = *p;
1449     *p = new;
1450     if (new->a.map_state == IsViewable)
1451         map_win (dpy, id, new->damage_sequence - 1, True);
1452 }
1453
1454 void
1455 restack_win (Display *dpy, win *w, Window new_above)
1456 {
1457     Window  old_above;
1458
1459     if (w->next)
1460         old_above = w->next->id;
1461     else
1462         old_above = None;
1463     if (old_above != new_above)
1464     {
1465         win **prev;
1466
1467         /* unhook */
1468         for (prev = &list; *prev; prev = &(*prev)->next)
1469             if ((*prev) == w)
1470                 break;
1471         *prev = w->next;
1472
1473         /* rehook */
1474         for (prev = &list; *prev; prev = &(*prev)->next)
1475         {
1476             if ((*prev)->id == new_above)
1477                 break;
1478         }
1479         w->next = *prev;
1480         *prev = w;
1481     }
1482 }
1483
1484 static void
1485 configure_win (Display *dpy, XConfigureEvent *ce)
1486 {
1487     win             *w = find_win (dpy, ce->window);
1488     Window          above;
1489     XserverRegion   damage = None;
1490
1491     if (!w)
1492     {
1493         if (ce->window == root)
1494         {
1495             if (rootBuffer)
1496             {
1497                 XRenderFreePicture (dpy, rootBuffer);
1498                 rootBuffer = None;
1499             }
1500             root_width = ce->width;
1501             root_height = ce->height;
1502         }
1503         return;
1504     }
1505 #if CAN_DO_USABLE
1506     if (w->usable)
1507 #endif
1508     {
1509         damage = XFixesCreateRegion (dpy, 0, 0);
1510         if (w->extents != None)
1511             XFixesCopyRegion (dpy, damage, w->extents);
1512     }
1513     w->a.x = ce->x;
1514     w->a.y = ce->y;
1515     if (w->a.width != ce->width || w->a.height != ce->height)
1516     {
1517 #if HAS_NAME_WINDOW_PIXMAP
1518         if (w->pixmap)
1519         {
1520             XFreePixmap (dpy, w->pixmap);
1521             w->pixmap = None;
1522             if (w->picture)
1523             {
1524                 XRenderFreePicture (dpy, w->picture);
1525                 w->picture = None;
1526             }
1527         }
1528 #endif
1529         if (w->shadow)
1530         {
1531             XRenderFreePicture (dpy, w->shadow);
1532             w->shadow = None;
1533         }
1534     }
1535     w->a.width = ce->width;
1536     w->a.height = ce->height;
1537     w->a.border_width = ce->border_width;
1538     w->a.override_redirect = ce->override_redirect;
1539     restack_win (dpy, w, ce->above);
1540     if (damage)
1541     {
1542         XserverRegion   extents = win_extents (dpy, w);
1543         XFixesUnionRegion (dpy, damage, damage, extents);
1544         XFixesDestroyRegion (dpy, extents);
1545         add_damage (dpy, damage);
1546     }
1547     clipChanged = True;
1548 }
1549
1550 static void
1551 circulate_win (Display *dpy, XCirculateEvent *ce)
1552 {
1553     win     *w = find_win (dpy, ce->window);
1554     Window  new_above;
1555
1556     if (ce->place == PlaceOnTop)
1557         new_above = list->id;
1558     else
1559         new_above = None;
1560     restack_win (dpy, w, new_above);
1561     clipChanged = True;
1562 }
1563
1564 static void
1565 finish_destroy_win (Display *dpy, Window id, Bool gone)
1566 {
1567     win **prev, *w;
1568
1569     for (prev = &list; (w = *prev); prev = &w->next)
1570         if (w->id == id)
1571         {
1572             if (!gone)
1573                 finish_unmap_win (dpy, w);
1574             *prev = w->next;
1575             if (w->picture)
1576             {
1577                 set_ignore (dpy, NextRequest (dpy));
1578                 XRenderFreePicture (dpy, w->picture);
1579                 w->picture = None;
1580             }
1581             if (w->alphaPict)
1582             {
1583                 XRenderFreePicture (dpy, w->alphaPict);
1584                 w->alphaPict = None;
1585             }
1586             if (w->shadowPict)
1587             {
1588                 XRenderFreePicture (dpy, w->shadowPict);
1589                 w->shadowPict = None;
1590             }
1591             if (w->damage != None)
1592             {
1593                 set_ignore (dpy, NextRequest (dpy));
1594                 XDamageDestroy (dpy, w->damage);
1595                 w->damage = None;
1596             }
1597             cleanup_fade (dpy, w);
1598             free (w);
1599             break;
1600         }
1601 }
1602
1603 #if HAS_NAME_WINDOW_PIXMAP
1604 static void
1605 destroy_callback (Display *dpy, win *w, Bool gone)
1606 {
1607     finish_destroy_win (dpy, w->id, gone);
1608 }
1609 #endif
1610
1611 static void
1612 destroy_win (Display *dpy, Window id, Bool gone, Bool fade)
1613 {
1614     win *w = find_win (dpy, id);
1615 #if HAS_NAME_WINDOW_PIXMAP
1616     if (w && w->pixmap && fade && fadeWindows)
1617         set_fade (dpy, w, w->opacity*1.0/OPAQUE, 0.0, fade_out_step, destroy_callback, gone, False, True);
1618     else
1619 #endif
1620     {
1621         finish_destroy_win (dpy, id, gone);
1622     }
1623 }
1624
1625 /*
1626 static void
1627 dump_win (win *w)
1628 {
1629     printf ("\t%08lx: %d x %d + %d + %d (%d)\n", w->id,
1630             w->a.width, w->a.height, w->a.x, w->a.y, w->a.border_width);
1631 }
1632
1633
1634 static void
1635 dump_wins (void)
1636 {
1637     win *w;
1638
1639     printf ("windows:\n");
1640     for (w = list; w; w = w->next)
1641         dump_win (w);
1642 }
1643 */
1644
1645 static void
1646 damage_win (Display *dpy, XDamageNotifyEvent *de)
1647 {
1648     win *w = find_win (dpy, de->drawable);
1649
1650     if (!w)
1651         return;
1652 #if CAN_DO_USABLE
1653     if (!w->usable)
1654     {
1655         if (w->damage_bounds.width == 0 || w->damage_bounds.height == 0)
1656         {
1657             w->damage_bounds = de->area;
1658         }
1659         else
1660         {
1661             if (de->area.x < w->damage_bounds.x)
1662             {
1663                 w->damage_bounds.width += (w->damage_bounds.x - de->area.x);
1664                 w->damage_bounds.x = de->area.x;
1665             }
1666             if (de->area.y < w->damage_bounds.y)
1667             {
1668                 w->damage_bounds.height += (w->damage_bounds.y - de->area.y);
1669                 w->damage_bounds.y = de->area.y;
1670             }
1671             if (de->area.x + de->area.width > w->damage_bounds.x + w->damage_bounds.width)
1672                 w->damage_bounds.width = de->area.x + de->area.width - w->damage_bounds.x;
1673             if (de->area.y + de->area.height > w->damage_bounds.y + w->damage_bounds.height)
1674                 w->damage_bounds.height = de->area.y + de->area.height - w->damage_bounds.y;
1675         }
1676 #if 0
1677         printf ("unusable damage %d, %d: %d x %d bounds %d, %d: %d x %d\n",
1678                 de->area.x,
1679                 de->area.y,
1680                 de->area.width,
1681                 de->area.height,
1682                 w->damage_bounds.x,
1683                 w->damage_bounds.y,
1684                 w->damage_bounds.width,
1685                 w->damage_bounds.height);
1686 #endif
1687         if (w->damage_bounds.x <= 0 &&
1688             w->damage_bounds.y <= 0 &&
1689             w->a.width <= w->damage_bounds.x + w->damage_bounds.width &&
1690             w->a.height <= w->damage_bounds.y + w->damage_bounds.height)
1691         {
1692             clipChanged = True;
1693             if (fadeWindows)
1694                 set_fade (dpy, w, 0, get_opacity_percent (dpy, w, 1.0), fade_in_step, 0, False, True, True);
1695             w->usable = True;
1696         }
1697     }
1698     if (w->usable)
1699 #endif
1700         repair_win (dpy, w);
1701 }
1702
1703 static int
1704 error (Display *dpy, XErrorEvent *ev)
1705 {
1706     int     o;
1707     char    *name = 0;
1708
1709     if (should_ignore (dpy, ev->serial))
1710         return 0;
1711
1712     if (ev->request_code == composite_opcode &&
1713         ev->minor_code == X_CompositeRedirectSubwindows)
1714     {
1715         fprintf (stderr, "Another composite manager is already running\n");
1716         exit (1);
1717     }
1718
1719     o = ev->error_code - xfixes_error;
1720     switch (o) {
1721     case BadRegion: name = "BadRegion"; break;
1722     default: break;
1723     }
1724     o = ev->error_code - damage_error;
1725     switch (o) {
1726     case BadDamage: name = "BadDamage"; break;
1727     default: break;
1728     }
1729     o = ev->error_code - render_error;
1730     switch (o) {
1731     case BadPictFormat: name ="BadPictFormat"; break;
1732     case BadPicture: name ="BadPicture"; break;
1733     case BadPictOp: name ="BadPictOp"; break;
1734     case BadGlyphSet: name ="BadGlyphSet"; break;
1735     case BadGlyph: name ="BadGlyph"; break;
1736     default: break;
1737     }
1738
1739     printf ("error %d request %d minor %d serial %d\n",
1740             ev->error_code, ev->request_code, ev->minor_code, ev->serial);
1741
1742 /*    abort ();     this is just annoying to most people */
1743     return 0;
1744 }
1745
1746 static void
1747 expose_root (Display *dpy, Window root, XRectangle *rects, int nrects)
1748 {
1749     XserverRegion  region = XFixesCreateRegion (dpy, rects, nrects);
1750
1751     add_damage (dpy, region);
1752 }
1753
1754
1755 static int
1756 ev_serial (XEvent *ev)
1757 {
1758     if (ev->type & 0x7f != KeymapNotify)
1759         return ev->xany.serial;
1760     return NextRequest (ev->xany.display);
1761 }
1762
1763
1764 static char *
1765 ev_name (XEvent *ev)
1766 {
1767     static char buf[128];
1768     switch (ev->type & 0x7f) {
1769     case Expose:
1770         return "Expose";
1771     case MapNotify:
1772         return "Map";
1773     case UnmapNotify:
1774         return "Unmap";
1775     case ReparentNotify:
1776         return "Reparent";
1777     case CirculateNotify:
1778         return "Circulate";
1779     default:
1780         if (ev->type == damage_event + XDamageNotify)
1781             return "Damage";
1782         sprintf (buf, "Event %d", ev->type);
1783         return buf;
1784     }
1785 }
1786
1787 static Window
1788 ev_window (XEvent *ev)
1789 {
1790     switch (ev->type) {
1791     case Expose:
1792         return ev->xexpose.window;
1793     case MapNotify:
1794         return ev->xmap.window;
1795     case UnmapNotify:
1796         return ev->xunmap.window;
1797     case ReparentNotify:
1798         return ev->xreparent.window;
1799     case CirculateNotify:
1800         return ev->xcirculate.window;
1801     default:
1802         if (ev->type == damage_event + XDamageNotify)
1803             return ((XDamageNotifyEvent *) ev)->drawable;
1804         return 0;
1805     }
1806 }
1807
1808 void
1809 usage (char *program)
1810 {
1811     fprintf (stderr, "%s v1.0\n", program);
1812     fprintf (stderr, "usage: %s [options]\n", program);
1813     fprintf (stderr, "Options\n");
1814     fprintf (stderr, "   -d display\n      Specifies which display should be managed.\n");
1815     fprintf (stderr, "   -r radius\n      Specifies the blur radius for client-side shadows. (default 12)\n");
1816     fprintf (stderr, "   -o opacity\n      Specifies the translucency for client-side shadows. (default .75)\n");
1817     fprintf (stderr, "   -l left-offset\n      Specifies the left offset for client-side shadows. (default -15)\n");
1818     fprintf (stderr, "   -t top-offset\n      Specifies the top offset for clinet-side shadows. (default -15)\n");
1819     fprintf (stderr, "   -a\n      Use automatic server-side compositing. Faster, but no special effects.\n");
1820     fprintf (stderr, "   -c\n      Draw client-side shadows with fuzzy edges.\n");
1821     fprintf (stderr, "   -C\n      Avoid drawing shadows on dock/panel windows.\n");
1822     fprintf (stderr, "   -f\n      Fade windows in/out when opening/closing.\n");
1823     fprintf (stderr, "   -F\n      Fade windows during opacity changes.\n");
1824     fprintf (stderr, "   -n\n      Normal client-side compositing with transparency support\n");
1825     fprintf (stderr, "   -s\n      Draw server-side shadows with sharp edges.\n");
1826     fprintf (stderr, "   -S\n      Enable synchronous operation (for debugging).\n");
1827     exit (1);
1828 }
1829
1830 int
1831 main (int argc, char **argv)
1832 {
1833     XEvent          ev;
1834     Window          root_return, parent_return;
1835     Window          *children;
1836     Pixmap          transPixmap;
1837     Pixmap          blackPixmap;
1838     unsigned int    nchildren;
1839     int             i;
1840     XRenderPictureAttributes    pa;
1841     XRenderColor                c;
1842     XRectangle      *expose_rects = 0;
1843     int             size_expose = 0;
1844     int             n_expose = 0;
1845     struct pollfd   ufd;
1846     int             n;
1847     int             last_update;
1848     int             now;
1849     int             p;
1850     int             composite_major, composite_minor;
1851     char            *display = 0;
1852     int             o;
1853
1854     while ((o = getopt (argc, argv, "d:r:o:l:t:scnfFCaS")) != -1)
1855     {
1856         switch (o) {
1857         case 'd':
1858             display = optarg;
1859             break;
1860         case 's':
1861             compMode = CompServerShadows;
1862             break;
1863         case 'c':
1864             compMode = CompClientShadows;
1865             break;
1866         case 'C':
1867             excludeDockShadows = True;
1868             break;
1869         case 'n':
1870             compMode = CompSimple;
1871             break;
1872         case 'f':
1873             fadeWindows = True;
1874             break;
1875         case 'F':
1876             fadeTrans = True;
1877             break;
1878         case 'a':
1879             autoRedirect = True;
1880             break;
1881         case 'S':
1882             synchronize = True;
1883             break;
1884         case 'r':
1885             shadowRadius = atoi (optarg);
1886             break;
1887         case 'o':
1888             shadowOpacity = atof (optarg);
1889             break;
1890         case 'l':
1891             shadowOffsetX = atoi (optarg);
1892             break;
1893         case 't':
1894             shadowOffsetY = atoi (optarg);
1895             break;
1896         default:
1897             usage (argv[0]);
1898             break;
1899         }
1900     }
1901
1902     dpy = XOpenDisplay (display);
1903     if (!dpy)
1904     {
1905         fprintf (stderr, "Can't open display\n");
1906         exit (1);
1907     }
1908     XSetErrorHandler (error);
1909     if (synchronize)
1910         XSynchronize (dpy, 1);
1911     scr = DefaultScreen (dpy);
1912     root = RootWindow (dpy, scr);
1913
1914     if (!XRenderQueryExtension (dpy, &render_event, &render_error))
1915     {
1916         fprintf (stderr, "No render extension\n");
1917         exit (1);
1918     }
1919     if (!XQueryExtension (dpy, COMPOSITE_NAME, &composite_opcode,
1920                           &composite_event, &composite_error))
1921     {
1922         fprintf (stderr, "No composite extension\n");
1923         exit (1);
1924     }
1925     XCompositeQueryVersion (dpy, &composite_major, &composite_minor);
1926 #if HAS_NAME_WINDOW_PIXMAP
1927     if (composite_major > 0 || composite_minor >= 2)
1928         hasNamePixmap = True;
1929 #endif
1930
1931     if (!XDamageQueryExtension (dpy, &damage_event, &damage_error))
1932     {
1933         fprintf (stderr, "No damage extension\n");
1934         exit (1);
1935     }
1936     if (!XFixesQueryExtension (dpy, &xfixes_event, &xfixes_error))
1937     {
1938         fprintf (stderr, "No XFixes extension\n");
1939         exit (1);
1940     }
1941     /* get atoms */
1942     opacityAtom = XInternAtom (dpy, OPACITY_PROP, False);
1943     winTypeAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE", False);
1944     winDesktopAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_DESKTOP", False);
1945     winDockAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_DOCK", False);
1946     winToolbarAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_TOOLBAR", False);
1947     winMenuAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_MENU", False);
1948     winUtilAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_UTILITY", False);
1949     winSplashAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_SPLASH", False);
1950     winDialogAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_DIALOG", False);
1951     winNormalAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_NORMAL", False);
1952
1953     pa.subwindow_mode = IncludeInferiors;
1954
1955     if (compMode == CompClientShadows)
1956     {
1957         gaussianMap = make_gaussian_map(dpy, shadowRadius);
1958         presum_gaussian (gaussianMap);
1959     }
1960
1961     root_width = DisplayWidth (dpy, scr);
1962     root_height = DisplayHeight (dpy, scr);
1963
1964     rootPicture = XRenderCreatePicture (dpy, root,
1965                                         XRenderFindVisualFormat (dpy,
1966                                                                  DefaultVisual (dpy, scr)),
1967                                         CPSubwindowMode,
1968                                         &pa);
1969     blackPicture = solid_picture (dpy, True, 1, 0, 0, 0);
1970     if (compMode == CompServerShadows)
1971         transBlackPicture = solid_picture (dpy, True, 0.3, 0, 0, 0);
1972     allDamage = None;
1973     clipChanged = True;
1974     XGrabServer (dpy);
1975     if (autoRedirect)
1976         XCompositeRedirectSubwindows (dpy, root, CompositeRedirectAutomatic);
1977     else
1978     {
1979         XCompositeRedirectSubwindows (dpy, root, CompositeRedirectManual);
1980         XSelectInput (dpy, root,
1981                       SubstructureNotifyMask|
1982                       ExposureMask|
1983                       StructureNotifyMask|
1984                       PropertyChangeMask);
1985         XQueryTree (dpy, root, &root_return, &parent_return, &children, &nchildren);
1986         for (i = 0; i < nchildren; i++)
1987             add_win (dpy, children[i], i ? children[i-1] : None);
1988         XFree (children);
1989     }
1990     XUngrabServer (dpy);
1991     ufd.fd = ConnectionNumber (dpy);
1992     ufd.events = POLLIN;
1993     if (!autoRedirect)
1994         paint_all (dpy, None);
1995     for (;;)
1996     {
1997         /*      dump_wins (); */
1998         do {
1999             if (autoRedirect)
2000                 XFlush (dpy);
2001             if (!QLength (dpy))
2002             {
2003                  if (poll (&ufd, 1, fade_timeout()) == 0)
2004                  {
2005                     run_fades (dpy);
2006                     break;
2007                  }
2008             }
2009
2010             XNextEvent (dpy, &ev);
2011             if (ev.type & 0x7f != KeymapNotify)
2012                 discard_ignore (dpy, ev.xany.serial);
2013 #if DEBUG_EVENTS
2014             printf ("event %10.10s serial 0x%08x window 0x%08x\n",
2015                     ev_name(&ev), ev_serial (&ev), ev_window (&ev));
2016 #endif
2017             if (!autoRedirect) switch (ev.type) {
2018             case CreateNotify:
2019                 add_win (dpy, ev.xcreatewindow.window, 0);
2020                 break;
2021             case ConfigureNotify:
2022                 configure_win (dpy, &ev.xconfigure);
2023                 break;
2024             case DestroyNotify:
2025                 destroy_win (dpy, ev.xdestroywindow.window, True, True);
2026                 break;
2027             case MapNotify:
2028                 map_win (dpy, ev.xmap.window, ev.xmap.serial, True);
2029                 break;
2030             case UnmapNotify:
2031                 unmap_win (dpy, ev.xunmap.window, True);
2032                 break;
2033             case ReparentNotify:
2034                 if (ev.xreparent.parent == root)
2035                     add_win (dpy, ev.xreparent.window, 0);
2036                 else
2037                     destroy_win (dpy, ev.xreparent.window, False, True);
2038                 break;
2039             case CirculateNotify:
2040                 circulate_win (dpy, &ev.xcirculate);
2041                 break;
2042             case Expose:
2043                 if (ev.xexpose.window == root)
2044                 {
2045                     int more = ev.xexpose.count + 1;
2046                     if (n_expose == size_expose)
2047                     {
2048                         if (expose_rects)
2049                         {
2050                             expose_rects = realloc (expose_rects,
2051                                                     (size_expose + more) *
2052                                                     sizeof (XRectangle));
2053                             size_expose += more;
2054                         }
2055                         else
2056                         {
2057                             expose_rects = malloc (more * sizeof (XRectangle));
2058                             size_expose = more;
2059                         }
2060                     }
2061                     expose_rects[n_expose].x = ev.xexpose.x;
2062                     expose_rects[n_expose].y = ev.xexpose.y;
2063                     expose_rects[n_expose].width = ev.xexpose.width;
2064                     expose_rects[n_expose].height = ev.xexpose.height;
2065                     n_expose++;
2066                     if (ev.xexpose.count == 0)
2067                     {
2068                         expose_root (dpy, root, expose_rects, n_expose);
2069                         n_expose = 0;
2070                     }
2071                 }
2072                 break;
2073             case PropertyNotify:
2074                 for (p = 0; backgroundProps[p]; p++)
2075                 {
2076                     if (ev.xproperty.atom == XInternAtom (dpy, backgroundProps[p], False))
2077                     {
2078                         if (rootTile)
2079                         {
2080                             XClearArea (dpy, root, 0, 0, 0, 0, True);
2081                             XRenderFreePicture (dpy, rootTile);
2082                             rootTile = None;
2083                             break;
2084                         }
2085                     }
2086                 }
2087                 /* check if Trans property was changed */
2088                 if (ev.xproperty.atom == opacityAtom)
2089                 {
2090                     /* reset mode and redraw window */
2091                     win * w = find_win(dpy, ev.xproperty.window);
2092                     if (w)
2093                     {
2094                         if (fadeTrans)
2095                             set_fade (dpy, w, w->opacity*1.0/OPAQUE, get_opacity_percent (dpy, w, 1.0),
2096                                       fade_out_step, 0, False, True, False);
2097                         else
2098                         {
2099                         w->opacity = get_opacity_prop(dpy, w, OPAQUE);
2100                         determine_mode(dpy, w);
2101                             if (w->shadow)
2102                             {
2103                                 XRenderFreePicture (dpy, w->shadow);
2104                                 w->shadow = None;
2105                                 w->extents = win_extents (dpy, w);
2106                             }
2107                         }
2108                     }
2109                 }
2110                 break;
2111             default:
2112                 if (ev.type == damage_event + XDamageNotify)
2113                     damage_win (dpy, (XDamageNotifyEvent *) &ev);
2114                 break;
2115             }
2116         } while (QLength (dpy));
2117         if (allDamage && !autoRedirect)
2118         {
2119             static int  paint;
2120             paint_all (dpy, allDamage);
2121             paint++;
2122             XSync (dpy, False);
2123             allDamage = None;
2124             clipChanged = False;
2125         }
2126     }
2127 }