Dogcows Code - chaz/openbox/blob - render/render.c

   1 #include <X11/Xlib.h>
   2 #include <X11/Xutil.h>
   3
   4 #include <glib.h>
   5 #include "render.h"
   6 #include "gradient.h"
   7 #include "font.h"
   8 #include "mask.h"
   9 #include "color.h"
  10 #include "image.h"
  11 #include "theme.h"
  12 #include "kernel/openbox.h"
  13
  14 #ifdef HAVE_STDLIB_H
  15 #  include <stdlib.h>
  16 #endif
  17
  18 int render_depth;
  19 XVisualInfo render_visual_info;
  20
  21 Visual *render_visual;
  22 Colormap render_colormap;
  23
  24 int render_red_offset = 0, render_green_offset = 0, render_blue_offset = 0;
  25 int render_red_shift, render_green_shift, render_blue_shift;
  26 int render_red_mask, render_green_mask, render_blue_mask;
  27
  28
  29 void render_startup(void)
  30 {
  31     render_depth = DefaultDepth(ob_display, ob_screen);
  32     render_visual = DefaultVisual(ob_display, ob_screen);
  33     render_colormap = DefaultColormap(ob_display, ob_screen);
  34
  35     switch (render_visual->class) {
  36     case TrueColor:
  37         truecolor_startup();
  38         break;
  39     case PseudoColor:
  40     case StaticColor:
  41     case GrayScale:
  42     case StaticGray:
  43         pseudocolor_startup();
  44         break;
  45     default:
  46         g_critical("unsupported visual class.\n");
  47         exit(EXIT_FAILURE);
  48     }
  49 }
  50
  51 void truecolor_startup(void)
  52 {
  53   unsigned long red_mask, green_mask, blue_mask;
  54   XImage *timage = NULL;
  55
  56   timage = XCreateImage(ob_display, render_visual, render_depth,
  57                         ZPixmap, 0, NULL, 1, 1, 32, 0);
  58   g_assert(timage != NULL);
  59   /* find the offsets for each color in the visual's masks */
  60   render_red_mask = red_mask = timage->red_mask;
  61   render_green_mask = green_mask = timage->green_mask;
  62   render_blue_mask = blue_mask = timage->blue_mask;
  63
  64   render_red_offset = 0;
  65   render_green_offset = 0;
  66   render_blue_offset = 0;
  67
  68   while (! (red_mask & 1))   { render_red_offset++;   red_mask   >>= 1; }
  69   while (! (green_mask & 1)) { render_green_offset++; green_mask >>= 1; }
  70   while (! (blue_mask & 1))  { render_blue_offset++;  blue_mask  >>= 1; }
  71
  72   render_red_shift = render_green_shift = render_blue_shift = 8;
  73   while (red_mask)   { red_mask   >>= 1; render_red_shift--;   }
  74   while (green_mask) { green_mask >>= 1; render_green_shift--; }
  75   while (blue_mask)  { blue_mask  >>= 1; render_blue_shift--;  }
  76   XFree(timage);
  77 }
  78
  79 void pseudocolor_startup(void)
  80 {
  81   XColor icolors[256];
  82   int tr, tg, tb, n, r, g, b, i, incolors, ii;
  83   unsigned long dev;
  84   int cpc, _ncolors;
  85   g_message("Initializing PseudoColor RenderControl\n");
  86
  87   /* determine the number of colors and the bits-per-color */
  88   pseudo_bpc = 2; /* XXX THIS SHOULD BE A USER OPTION */
  89   g_assert(pseudo_bpc >= 1);
  90   _ncolors = pseudo_ncolors();
  91
  92   if (_ncolors > 1 << render_depth) {
  93     g_warning("PseudoRenderControl: Invalid colormap size. Resizing.\n");
  94     pseudo_bpc = 1 << (render_depth/3) >> 3;
  95     _ncolors = 1 << (pseudo_bpc * 3);
  96   }
  97
  98   /* build a color cube */
  99   pseudo_colors = malloc(_ncolors * sizeof(XColor));
 100   cpc = 1 << pseudo_bpc; /* colors per channel */
 101
 102   for (n = 0, r = 0; r < cpc; r++)
 103     for (g = 0; g < cpc; g++)
 104       for (b = 0; b < cpc; b++, n++) {
 105         tr = (int)(((float)(r)/(float)(cpc-1)) * 0xFF);
 106         tg = (int)(((float)(g)/(float)(cpc-1)) * 0xFF);
 107         tb = (int)(((float)(b)/(float)(cpc-1)) * 0xFF);
 108         pseudo_colors[n].red = tr | tr << 8;
 109         pseudo_colors[n].green = tg | tg << 8;
 110         pseudo_colors[n].blue = tb | tb << 8;
 111         pseudo_colors[n].flags = DoRed|DoGreen|DoBlue; /* used to track
 112                                                           allocation */
 113       }
 114
 115   /* allocate the colors */
 116   for (i = 0; i < _ncolors; i++)
 117     if (!XAllocColor(ob_display, render_colormap, &pseudo_colors[i]))
 118       pseudo_colors[i].flags = 0; /* mark it as unallocated */
 119
 120   /* try allocate any colors that failed allocation above */
 121
 122   /* get the allocated values from the X server (only the first 256 XXX why!?)
 123    */
 124   incolors = (((1 << render_depth) > 256) ? 256 : (1 << render_depth));
 125   for (i = 0; i < incolors; i++)
 126     icolors[i].pixel = i;
 127   XQueryColors(ob_display, render_colormap, icolors, incolors);
 128
 129   /* try match unallocated ones */
 130   for (i = 0; i < _ncolors; i++) {
 131     if (!pseudo_colors[i].flags) { /* if it wasn't allocated... */
 132       unsigned long closest = 0xffffffff, close = 0;
 133       for (ii = 0; ii < incolors; ii++) {
 134         /* find deviations */
 135         r = (pseudo_colors[i].red - icolors[ii].red) & 0xff;
 136         g = (pseudo_colors[i].green - icolors[ii].green) & 0xff;
 137         b = (pseudo_colors[i].blue - icolors[ii].blue) & 0xff;
 138         /* find a weighted absolute deviation */
 139         dev = (r * r) + (g * g) + (b * b);
 140
 141         if (dev < closest) {
 142           closest = dev;
 143           close = ii;
 144         }
 145       }
 146
 147       pseudo_colors[i].red = icolors[close].red;
 148       pseudo_colors[i].green = icolors[close].green;
 149       pseudo_colors[i].blue = icolors[close].blue;
 150       pseudo_colors[i].pixel = icolors[close].pixel;
 151
 152       /* try alloc this closest color, it had better succeed! */
 153       if (XAllocColor(ob_display, render_colormap, &pseudo_colors[i]))
 154         pseudo_colors[i].flags = DoRed|DoGreen|DoBlue; /* mark as alloced */
 155       else
 156         g_assert(FALSE); /* wtf has gone wrong, its already alloced for
 157                             chissake! */
 158     }
 159   }
 160 }
 161
 162 void paint(Window win, Appearance *l, int w, int h)
 163 {
 164     int i, transferred = 0, sw;
 165     pixel32 *source, *dest;
 166     Pixmap oldp;
 167     Rect tarea; /* area in which to draw textures */
 168     gboolean resized;
 169
 170     if (w <= 0 || h <= 0) return;
 171
 172     resized = (l->w != w || l->h != h);
 173
 174     if (resized) {
 175         oldp = l->pixmap; /* save to free after changing the visible pixmap */
 176         l->pixmap = XCreatePixmap(ob_display, ob_root, w, h, render_depth);
 177     } else
 178         oldp = None;
 179
 180     g_assert(l->pixmap != None);
 181     l->w = w;
 182     l->h = h;
 183
 184     if (l->xftdraw != NULL)
 185         XftDrawDestroy(l->xftdraw);
 186     l->xftdraw = XftDrawCreate(ob_display, l->pixmap, render_visual,
 187                                render_colormap);
 188     g_assert(l->xftdraw != NULL);
 189
 190     g_free(l->surface.pixel_data);
 191     l->surface.pixel_data = g_new(pixel32, w * h);
 192
 193     if (l->surface.grad == Background_ParentRelative) {
 194         g_assert (l->surface.parent);
 195         g_assert (l->surface.parent->w);
 196
 197         sw = l->surface.parent->w;
 198         source = (l->surface.parent->surface.pixel_data + l->surface.parentx +
 199                   sw * l->surface.parenty);
 200         dest = l->surface.pixel_data;
 201         for (i = 0; i < h; i++, source += sw, dest += w) {
 202             memcpy(dest, source, w * sizeof(pixel32));
 203         }
 204     }
 205     else if (l->surface.grad == Background_Solid)
 206         gradient_solid(l, 0, 0, w, h);
 207     else gradient_render(&l->surface, w, h);
 208
 209     RECT_SET(tarea, 0, 0, w, h);
 210     if (l->surface.grad != Background_ParentRelative) {
 211         if (l->surface.relief != Flat) {
 212             switch (l->surface.bevel) {
 213             case Bevel1:
 214                 tarea.x += 1; tarea.y += 1;
 215                 tarea.width -= 2; tarea.height -= 2;
 216                 break;
 217             case Bevel2:
 218                 tarea.x += 2; tarea.y += 2;
 219                 tarea.width -= 4; tarea.height -= 4;
 220                 break;
 221             }
 222         } else if (l->surface.border) {
 223             tarea.x += 1; tarea.y += 1;
 224             tarea.width -= 2; tarea.height -= 2;
 225         }
 226     }
 227
 228     for (i = 0; i < l->textures; i++) {
 229         switch (l->texture[i].type) {
 230         case NoTexture:
 231             break;
 232         case Text:
 233             if (!transferred) {
 234                 transferred = 1;
 235                 if (l->surface.grad != Background_Solid)
 236                     pixel32_to_pixmap(l->surface.pixel_data,
 237                                       l->pixmap, 0, 0, w, h);
 238             }
 239             if (l->xftdraw == NULL) {
 240                 l->xftdraw = XftDrawCreate(ob_display, l->pixmap,
 241                                         render_visual, render_colormap);
 242             }
 243             font_draw(l->xftdraw, &l->texture[i].data.text, &tarea);
 244         break;
 245         case Bitmask:
 246             if (!transferred) {
 247                 transferred = 1;
 248                 if (l->surface.grad != Background_Solid)
 249                     pixel32_to_pixmap(l->surface.pixel_data,
 250                                       l->pixmap, 0, 0, w, h);
 251             }
 252             if (l->texture[i].data.mask.color->gc == None)
 253                 color_allocate_gc(l->texture[i].data.mask.color);
 254             mask_draw(l->pixmap, &l->texture[i].data.mask, &tarea);
 255         break;
 256         case RGBA:
 257             image_draw(l->surface.pixel_data,
 258                        &l->texture[i].data.rgba, &tarea);
 259         break;
 260         }
 261     }
 262
 263     if (!transferred) {
 264         transferred = 1;
 265         if (l->surface.grad != Background_Solid)
 266             pixel32_to_pixmap(l->surface.pixel_data, l->pixmap, 0, 0, w, h);
 267     }
 268
 269
 270     XSetWindowBackgroundPixmap(ob_display, win, l->pixmap);
 271     XClearWindow(ob_display, win);
 272     if (oldp) XFreePixmap(ob_display, oldp);
 273 }
 274
 275 void render_shutdown(void)
 276 {
 277 }
 278
 279 Appearance *appearance_new(int numtex)
 280 {
 281   Surface *p;
 282   Appearance *out;
 283
 284   out = g_new(Appearance, 1);
 285   out->textures = numtex;
 286   out->xftdraw = NULL;
 287   if (numtex) out->texture = g_new0(Texture, numtex);
 288   else out->texture = NULL;
 289   out->pixmap = None;
 290   out->w = out->h = 0;
 291
 292   p = &out->surface;
 293   p->primary = NULL;
 294   p->secondary = NULL;
 295   p->border_color = NULL;
 296   p->bevel_dark = NULL;
 297   p->bevel_light = NULL;
 298   p->pixel_data = NULL;
 299   return out;
 300 }
 301
 302 Appearance *appearance_copy(Appearance *orig)
 303 {
 304     Surface *spo, *spc;
 305     Appearance *copy = g_new(Appearance, 1);
 306
 307     spo = &(orig->surface);
 308     spc = &(copy->surface);
 309     spc->grad = spo->grad;
 310     spc->relief = spo->relief;
 311     spc->bevel = spo->bevel;
 312     if (spo->primary != NULL)
 313         spc->primary = color_new(spo->primary->r,
 314                                  spo->primary->g,
 315                                  spo->primary->b);
 316     else spc->primary = NULL;
 317
 318     if (spo->secondary != NULL)
 319         spc->secondary = color_new(spo->secondary->r,
 320                                    spo->secondary->g,
 321                                    spo->secondary->b);
 322     else spc->secondary = NULL;
 323
 324     if (spo->border_color != NULL)
 325         spc->border_color = color_new(spo->border_color->r,
 326                                       spo->border_color->g,
 327                                       spo->border_color->b);
 328     else spc->border_color = NULL;
 329
 330     if (spo->bevel_dark != NULL)
 331         spc->bevel_dark = color_new(spo->bevel_dark->r,
 332                                     spo->bevel_dark->g,
 333                                     spo->bevel_dark->b);
 334     else spc->bevel_dark = NULL;
 335
 336     if (spo->bevel_light != NULL)
 337         spc->bevel_light = color_new(spo->bevel_light->r,
 338                                      spo->bevel_light->g,
 339                                      spo->bevel_light->b);
 340     else spc->bevel_light = NULL;
 341
 342     spc->interlaced = spo->interlaced;
 343     spc->border = spo->border;
 344     spc->pixel_data = NULL;
 345
 346     copy->textures = orig->textures;
 347     copy->texture = g_memdup(orig->texture, orig->textures * sizeof(Texture));
 348     copy->pixmap = None;
 349     copy->xftdraw = NULL;
 350     copy->w = copy->h = 0;
 351     return copy;
 352 }
 353
 354 void appearance_free(Appearance *a)
 355 {
 356     if (a) {
 357         Surface *p;
 358         if (a->pixmap != None) XFreePixmap(ob_display, a->pixmap);
 359         if (a->xftdraw != NULL) XftDrawDestroy(a->xftdraw);
 360         if (a->textures)
 361             g_free(a->texture);
 362         p = &a->surface;
 363         color_free(p->primary);
 364         color_free(p->secondary);
 365         color_free(p->border_color);
 366         color_free(p->bevel_dark);
 367         color_free(p->bevel_light);
 368         g_free(p->pixel_data);
 369
 370         g_free(a);
 371     }
 372 }
 373
 374
 375 void pixel32_to_pixmap(pixel32 *in, Pixmap out, int x, int y, int w, int h)
 376 {
 377     pixel32 *scratch;
 378     XImage *im = NULL;
 379     im = XCreateImage(ob_display, render_visual, render_depth,
 380                       ZPixmap, 0, NULL, w, h, 32, 0);
 381     g_assert(im != NULL);
 382     im->byte_order = render_endian;
 383 /* this malloc is a complete waste of time on normal 32bpp
 384    as reduce_depth just sets im->data = data and returns
 385 */
 386     scratch = g_new(pixel32, im->width * im->height);
 387     im->data = (char*) scratch;
 388     reduce_depth(in, im);
 389     XPutImage(ob_display, out, DefaultGC(ob_display, ob_screen),
 390               im, 0, 0, x, y, w, h);
 391     im->data = NULL;
 392     XDestroyImage(im);
 393     g_free(scratch);
 394 }
 395
 396 void appearance_minsize(Appearance *l, int *w, int *h)
 397 {
 398     int i;
 399     int m;
 400     *w = *h = 0;
 401
 402     for (i = 0; i < l->textures; ++i) {
 403         switch (l->texture[i].type) {
 404         case Bitmask:
 405             *w = MAX(*w, l->texture[i].data.mask.mask->w);
 406             *h = MAX(*h, l->texture[i].data.mask.mask->h);
 407             break;
 408         case Text:
 409             m = font_measure_string(l->texture[i].data.text.font,
 410                                     l->texture[i].data.text.string,
 411                                     l->texture[i].data.text.shadow,
 412                                     l->texture[i].data.text.offset);
 413             *w = MAX(*w, m);
 414             m = font_height(l->texture[i].data.text.font,
 415                             l->texture[i].data.text.shadow,
 416                             l->texture[i].data.text.offset);
 417             *h += MAX(*h, m);
 418             break;
 419         case RGBA:
 420             *w += MAX(*w, l->texture[i].data.rgba.width);
 421             *h += MAX(*h, l->texture[i].data.rgba.height);
 422             break;
 423         case NoTexture:
 424             break;
 425         }
 426     }
 427
 428     if (l->surface.relief != Flat) {
 429         switch (l->surface.bevel) {
 430         case Bevel1:
 431             *w += 2;
 432             *h += 2;
 433             break;
 434         case Bevel2:
 435             *w += 4;
 436             *h += 4;
 437             break;
 438         }
 439     } else if (l->surface.border) {
 440         *w += 2;
 441         *h += 2;
 442     }
 443
 444     if (*w < 1) *w = 1;
 445     if (*h < 1) *h = 1;
 446 }
 447
 448 gboolean render_pixmap_to_rgba(Pixmap pmap, Pixmap mask,
 449                                int *w, int *h, pixel32 **data)
 450 {
 451     Window xr;
 452     int xx, xy;
 453     guint pw, ph, mw, mh, xb, xd, i, x, y, di;
 454     XImage *xi, *xm = NULL;
 455
 456     if (!XGetGeometry(ob_display, pmap, &xr, &xx, &xy, &pw, &ph, &xb, &xd))
 457         return FALSE;
 458     if (mask) {
 459         if (!XGetGeometry(ob_display, mask, &xr, &xx, &xy, &mw, &mh, &xb, &xd))
 460             return FALSE;
 461         if (pw != mw || ph != mh || xd != 1)
 462             return FALSE;
 463     }
 464
 465     xi = XGetImage(ob_display, pmap, 0, 0, pw, ph, 0xffffffff, ZPixmap);
 466     if (!xi)
 467         return FALSE;
 468
 469     if (mask) {
 470         xm = XGetImage(ob_display, mask, 0, 0, mw, mh, 0xffffffff, ZPixmap);
 471         if (!xm)
 472             return FALSE;
 473     }
 474
 475     *data = g_new(pixel32, pw * ph);
 476     increase_depth(*data, xi);
 477
 478     if (mask) {
 479         /* apply transparency from the mask */
 480         di = 0;
 481         for (i = 0, y = 0; y < ph; ++y) {
 482             for (x = 0; x < pw; ++x, ++i) {
 483                 if (!((((unsigned)xm->data[di + x / 8]) >> (x % 8)) & 0x1))
 484                     (*data)[i] &= ~(0xff << default_alpha_offset);
 485             }
 486             di += xm->bytes_per_line;
 487         }
 488     }
 489
 490     *w = pw;
 491     *h = ph;
 492
 493     return TRUE;
 494 }