render/gradient.c

   1 /* -*- indent-tabs-mode: nil; tab-width: 4; c-basic-offset: 4; -*-
   2
   3    gradient.c for the Openbox window manager
   4    Copyright (c) 2006        Mikael Magnusson
   5    Copyright (c) 2003-2007   Dana Jansens
   6    Copyright (c) 2003        Derek Foreman
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    See the COPYING file for a copy of the GNU General Public License.
  19 */
  20
  21 #include "render.h"
  22 #include "gradient.h"
  23 #include "color.h"
  24 #include <glib.h>
  25
  26 static void highlight(RrSurface *s, RrPixel32 *x, RrPixel32 *y,
  27                       gboolean raised);
  28 static void gradient_parentrelative(RrAppearance *a, gint w, gint h);
  29 static void gradient_solid(RrAppearance *l, gint w, gint h);
  30 static void gradient_splitvertical(RrAppearance *a, gint w, gint h);
  31 static void gradient_vertical(RrSurface *sf, gint w, gint h);
  32 static void gradient_horizontal(RrSurface *sf, gint w, gint h);
  33 static void gradient_mirrorhorizontal(RrSurface *sf, gint w, gint h);
  34 static void gradient_diagonal(RrSurface *sf, gint w, gint h);
  35 static void gradient_crossdiagonal(RrSurface *sf, gint w, gint h);
  36 static void gradient_pyramid(RrSurface *sf, gint inw, gint inh);
  37
  38 void RrRender(RrAppearance *a, gint w, gint h)
  39 {
  40     RrPixel32 *data = a->surface.pixel_data;
  41     RrPixel32 current;
  42     guint r,g,b;
  43     gint off, x;
  44
  45     switch (a->surface.grad) {
  46     case RR_SURFACE_PARENTREL:
  47         gradient_parentrelative(a, w, h);
  48         break;
  49     case RR_SURFACE_SOLID:
  50         gradient_solid(a, w, h);
  51         break;
  52     case RR_SURFACE_SPLIT_VERTICAL:
  53         gradient_splitvertical(a, w, h);
  54         break;
  55     case RR_SURFACE_VERTICAL:
  56         gradient_vertical(&a->surface, w, h);
  57         break;
  58     case RR_SURFACE_HORIZONTAL:
  59         gradient_horizontal(&a->surface, w, h);
  60         break;
  61     case RR_SURFACE_MIRROR_HORIZONTAL:
  62         gradient_mirrorhorizontal(&a->surface, w, h);
  63         break;
  64     case RR_SURFACE_DIAGONAL:
  65         gradient_diagonal(&a->surface, w, h);
  66         break;
  67     case RR_SURFACE_CROSS_DIAGONAL:
  68         gradient_crossdiagonal(&a->surface, w, h);
  69         break;
  70     case RR_SURFACE_PYRAMID:
  71         gradient_pyramid(&a->surface, w, h);
  72         break;
  73     default:
  74         g_assert_not_reached(); /* unhandled gradient */
  75         return;
  76     }
  77
  78     if (a->surface.interlaced) {
  79         gint i;
  80         RrPixel32 *p;
  81
  82         r = a->surface.interlace_color->r;
  83         g = a->surface.interlace_color->g;
  84         b = a->surface.interlace_color->b;
  85         current = (r << RrDefaultRedOffset)
  86             + (g << RrDefaultGreenOffset)
  87             + (b << RrDefaultBlueOffset);
  88         p = data;
  89         for (i = 0; i < h; i += 2, p += w)
  90             for (x = 0; x < w; ++x, ++p)
  91                 *p = current;
  92     }
  93
  94     if (a->surface.relief == RR_RELIEF_FLAT && a->surface.border) {
  95         r = a->surface.border_color->r;
  96         g = a->surface.border_color->g;
  97         b = a->surface.border_color->b;
  98         current = (r << RrDefaultRedOffset)
  99             + (g << RrDefaultGreenOffset)
 100             + (b << RrDefaultBlueOffset);
 101         for (off = 0, x = 0; x < w; ++x, off++) {
 102             *(data + off) = current;
 103             *(data + off + ((h-1) * w)) = current;
 104         }
 105         for (off = 0, x = 0; x < h; ++x, off++) {
 106             *(data + (off * w)) = current;
 107             *(data + (off * w) + w - 1) = current;
 108         }
 109     }
 110
 111     if (a->surface.relief != RR_RELIEF_FLAT) {
 112         if (a->surface.bevel == RR_BEVEL_1) {
 113             for (off = 1, x = 1; x < w - 1; ++x, off++)
 114                 highlight(&a->surface, data + off,
 115                           data + off + (h-1) * w,
 116                           a->surface.relief==RR_RELIEF_RAISED);
 117             for (off = 0, x = 0; x < h; ++x, off++)
 118                 highlight(&a->surface, data + off * w,
 119                           data + off * w + w - 1,
 120                           a->surface.relief==RR_RELIEF_RAISED);
 121         }
 122
 123         if (a->surface.bevel == RR_BEVEL_2) {
 124             for (off = 2, x = 2; x < w - 2; ++x, off++)
 125                 highlight(&a->surface, data + off + w,
 126                           data + off + (h-2) * w,
 127                           a->surface.relief==RR_RELIEF_RAISED);
 128             for (off = 1, x = 1; x < h-1; ++x, off++)
 129                 highlight(&a->surface, data + off * w + 1,
 130                           data + off * w + w - 2,
 131                           a->surface.relief==RR_RELIEF_RAISED);
 132         }
 133     }
 134 }
 135
 136 static void highlight(RrSurface *s, RrPixel32 *x, RrPixel32 *y, gboolean raised)
 137 {
 138     gint r, g, b;
 139
 140     RrPixel32 *up, *down;
 141     if (raised) {
 142         up = x;
 143         down = y;
 144     } else {
 145         up = y;
 146         down = x;
 147     }
 148
 149     r = (*up >> RrDefaultRedOffset) & 0xFF;
 150     r += (r * s->bevel_light_adjust) >> 8;
 151     g = (*up >> RrDefaultGreenOffset) & 0xFF;
 152     g += (g * s->bevel_light_adjust) >> 8;
 153     b = (*up >> RrDefaultBlueOffset) & 0xFF;
 154     b += (b * s->bevel_light_adjust) >> 8;
 155     if (r > 0xFF) r = 0xFF;
 156     if (g > 0xFF) g = 0xFF;
 157     if (b > 0xFF) b = 0xFF;
 158     *up = (r << RrDefaultRedOffset) + (g << RrDefaultGreenOffset)
 159         + (b << RrDefaultBlueOffset);
 160
 161     r = (*down >> RrDefaultRedOffset) & 0xFF;
 162     r -= (r * s->bevel_dark_adjust) >> 8;
 163     g = (*down >> RrDefaultGreenOffset) & 0xFF;
 164     g -= (g * s->bevel_dark_adjust) >> 8;
 165     b = (*down >> RrDefaultBlueOffset) & 0xFF;
 166     b -= (b * s->bevel_dark_adjust) >> 8;
 167     *down = (r << RrDefaultRedOffset) + (g << RrDefaultGreenOffset)
 168         + (b << RrDefaultBlueOffset);
 169 }
 170
 171 static void create_bevel_colors(RrAppearance *l)
 172 {
 173     gint r, g, b;
 174
 175     /* light color */
 176     r = l->surface.primary->r;
 177     r += (r * l->surface.bevel_light_adjust) >> 8;
 178     g = l->surface.primary->g;
 179     g += (g * l->surface.bevel_light_adjust) >> 8;
 180     b = l->surface.primary->b;
 181     b += (b * l->surface.bevel_light_adjust) >> 8;
 182     if (r > 0xFF) r = 0xFF;
 183     if (g > 0xFF) g = 0xFF;
 184     if (b > 0xFF) b = 0xFF;
 185     g_assert(!l->surface.bevel_light);
 186     l->surface.bevel_light = RrColorNew(l->inst, r, g, b);
 187
 188     /* dark color */
 189     r = l->surface.primary->r;
 190     r -= (r * l->surface.bevel_dark_adjust) >> 8;
 191     g = l->surface.primary->g;
 192     g -= (g * l->surface.bevel_dark_adjust) >> 8;
 193     b = l->surface.primary->b;
 194     b -= (b * l->surface.bevel_dark_adjust) >> 8;
 195     g_assert(!l->surface.bevel_dark);
 196     l->surface.bevel_dark = RrColorNew(l->inst, r, g, b);
 197 }
 198
 199 static void gradient_parentrelative(RrAppearance *a, gint w, gint h)
 200 {
 201     RrPixel32 *source, *dest;
 202     gint sw, sh, partial_w, partial_h, i;
 203
 204     g_assert (a->surface.parent);
 205     g_assert (a->surface.parent->w);
 206
 207     sw = a->surface.parent->w;
 208     sh = a->surface.parent->h;
 209
 210     /* This is a little hack. When a texture is parentrelative, and the same
 211        area as the parent, and has a bevel, it will draw its bevel on top
 212        of the parent's, amplifying it. So instead, rerender the child with
 213        the parent's settings, but the child's bevel and interlace */
 214     if (a->surface.relief != RR_RELIEF_FLAT &&
 215         (a->surface.parent->surface.relief != RR_RELIEF_FLAT ||
 216          a->surface.parent->surface.border) &&
 217         !a->surface.parentx && !a->surface.parenty &&
 218         sw == w && sh == h)
 219     {
 220         RrSurface old = a->surface;
 221         a->surface = a->surface.parent->surface;
 222
 223         /* turn these off for the parent */
 224         a->surface.relief = RR_RELIEF_FLAT;
 225         a->surface.border = FALSE;
 226
 227         a->surface.pixel_data = old.pixel_data;
 228
 229         RrRender(a, w, h);
 230         a->surface = old;
 231     } else {
 232         source = (a->surface.parent->surface.pixel_data +
 233                   a->surface.parentx + sw * a->surface.parenty);
 234         dest = a->surface.pixel_data;
 235
 236         if (a->surface.parentx + w > sw) {
 237             partial_w = sw - a->surface.parentx;
 238         } else partial_w = w;
 239
 240         if (a->surface.parenty + h > sh) {
 241             partial_h = sh - a->surface.parenty;
 242         } else partial_h = h;
 243
 244         for (i = 0; i < partial_h; i++, source += sw, dest += w) {
 245             memcpy(dest, source, partial_w * sizeof(RrPixel32));
 246         }
 247     }
 248 }
 249
 250 static void gradient_solid(RrAppearance *l, gint w, gint h)
 251 {
 252     gint i;
 253     RrPixel32 pix;
 254     RrPixel32 *data = l->surface.pixel_data;
 255     RrSurface *sp = &l->surface;
 256     gint left = 0, top = 0, right = w - 1, bottom = h - 1;
 257
 258     pix = (sp->primary->r << RrDefaultRedOffset)
 259         + (sp->primary->g << RrDefaultGreenOffset)
 260         + (sp->primary->b << RrDefaultBlueOffset);
 261
 262     for (i = 0; i < w * h; i++)
 263         *data++ = pix;
 264
 265     if (sp->interlaced)
 266         return;
 267
 268     XFillRectangle(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->primary),
 269                    0, 0, w, h);
 270
 271     switch (sp->relief) {
 272     case RR_RELIEF_RAISED:
 273         if (!sp->bevel_dark)
 274             create_bevel_colors(l);
 275
 276         switch (sp->bevel) {
 277         case RR_BEVEL_1:
 278             XDrawLine(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->bevel_dark),
 279                       left, bottom, right, bottom);
 280             XDrawLine(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->bevel_dark),
 281                       right, bottom, right, top);
 282
 283             XDrawLine(RrDisplay(l->inst), l->pixmap,RrColorGC(sp->bevel_light),
 284                       left, top, right, top);
 285             XDrawLine(RrDisplay(l->inst), l->pixmap,RrColorGC(sp->bevel_light),
 286                       left, bottom, left, top);
 287             break;
 288         case RR_BEVEL_2:
 289             XDrawLine(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->bevel_dark),
 290                       left + 2, bottom - 1, right - 2, bottom - 1);
 291             XDrawLine(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->bevel_dark),
 292                       right - 1, bottom - 1, right - 1, top + 1);
 293
 294             XDrawLine(RrDisplay(l->inst), l->pixmap,RrColorGC(sp->bevel_light),
 295                       left + 2, top + 1, right - 2, top + 1);
 296             XDrawLine(RrDisplay(l->inst), l->pixmap,RrColorGC(sp->bevel_light),
 297                       left + 1, bottom - 1, left + 1, top + 1);
 298             break;
 299         default:
 300             g_assert_not_reached(); /* unhandled BevelType */
 301         }
 302         break;
 303     case RR_RELIEF_SUNKEN:
 304         if (!sp->bevel_dark)
 305             create_bevel_colors(l);
 306
 307         switch (sp->bevel) {
 308         case RR_BEVEL_1:
 309             XDrawLine(RrDisplay(l->inst), l->pixmap,RrColorGC(sp->bevel_light),
 310                       left, bottom, right, bottom);
 311             XDrawLine(RrDisplay(l->inst), l->pixmap,RrColorGC(sp->bevel_light),
 312                       right, bottom, right, top);
 313
 314             XDrawLine(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->bevel_dark),
 315                       left, top, right, top);
 316             XDrawLine(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->bevel_dark),
 317                       left, bottom, left, top);
 318             break;
 319         case RR_BEVEL_2:
 320             XDrawLine(RrDisplay(l->inst), l->pixmap,RrColorGC(sp->bevel_light),
 321                       left + 2, bottom - 1, right - 2, bottom - 1);
 322             XDrawLine(RrDisplay(l->inst), l->pixmap,RrColorGC(sp->bevel_light),
 323                       right - 1, bottom - 1, right - 1, top + 1);
 324
 325             XDrawLine(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->bevel_dark),
 326                       left + 2, top + 1, right - 2, top + 1);
 327             XDrawLine(RrDisplay(l->inst), l->pixmap, RrColorGC(sp->bevel_dark),
 328                       left + 1, bottom - 1, left + 1, top + 1);
 329             break;
 330         default:
 331             g_assert_not_reached(); /* unhandled BevelType */
 332         }
 333         break;
 334     case RR_RELIEF_FLAT:
 335         if (sp->border) {
 336             XDrawRectangle(RrDisplay(l->inst), l->pixmap,
 337                            RrColorGC(sp->border_color),
 338                            left, top, right, bottom);
 339         }
 340         break;
 341     default:
 342         g_assert_not_reached(); /* unhandled ReliefType */
 343     }
 344 }
 345
 346 /* * * * * * * * * * * * * * GRADIENT MAGIC WOOT * * * * * * * * * * * * * * */
 347
 348 #define VARS(x)                                                     \
 349     guint color##x[3];                                       \
 350     gint len##x, cdelta##x[3], error##x[3] = { 0, 0, 0 }, inc##x[3]; \
 351     gboolean bigslope##x[3] /* color slope > 1 */
 352
 353 #define SETUP(x, from, to, w)         \
 354     len##x = w;                       \
 355                                       \
 356     color##x[0] = from->r;            \
 357     color##x[1] = from->g;            \
 358     color##x[2] = from->b;            \
 359                                       \
 360     cdelta##x[0] = to->r - from->r;   \
 361     cdelta##x[1] = to->g - from->g;   \
 362     cdelta##x[2] = to->b - from->b;   \
 363                                       \
 364     if (cdelta##x[0] < 0) {           \
 365         cdelta##x[0] = -cdelta##x[0]; \
 366         inc##x[0] = -1;               \
 367     } else                            \
 368         inc##x[0] = 1;                \
 369     if (cdelta##x[1] < 0) {           \
 370         cdelta##x[1] = -cdelta##x[1]; \
 371         inc##x[1] = -1;               \
 372     } else                            \
 373         inc##x[1] = 1;                \
 374     if (cdelta##x[2] < 0) {           \
 375         cdelta##x[2] = -cdelta##x[2]; \
 376         inc##x[2] = -1;               \
 377     } else                            \
 378         inc##x[2] = 1;                \
 379     bigslope##x[0] = cdelta##x[0] > w;\
 380     bigslope##x[1] = cdelta##x[1] > w;\
 381     bigslope##x[2] = cdelta##x[2] > w
 382
 383 #define COLOR_RR(x, c)                       \
 384     c->r = color##x[0];                      \
 385     c->g = color##x[1];                      \
 386     c->b = color##x[2]
 387
 388 #define COLOR(x)                             \
 389     ((color##x[0] << RrDefaultRedOffset) +   \
 390      (color##x[1] << RrDefaultGreenOffset) + \
 391      (color##x[2] << RrDefaultBlueOffset))
 392
 393 #define INCREMENT(x, i) \
 394     (inc##x[i])
 395
 396 #define NEXT(x)                                           \
 397 {                                                         \
 398     gint i;                                                \
 399     for (i = 2; i >= 0; --i) {                            \
 400         if (!cdelta##x[i]) continue;                      \
 401                                                           \
 402         if (!bigslope##x[i]) {                            \
 403             /* Y (color) is dependant on X */             \
 404             error##x[i] += cdelta##x[i];                  \
 405             if ((error##x[i] << 1) >= len##x) {           \
 406                 color##x[i] += INCREMENT(x, i);           \
 407                 error##x[i] -= len##x;                    \
 408             }                                             \
 409         } else {                                          \
 410             /* X is dependant on Y (color) */             \
 411             while (1) {                                   \
 412                 color##x[i] += INCREMENT(x, i);           \
 413                 error##x[i] += len##x;                    \
 414                 if ((error##x[i] << 1) >= cdelta##x[i]) { \
 415                     error##x[i] -= cdelta##x[i];          \
 416                     break;                                \
 417                 }                                         \
 418             }                                             \
 419         }                                                 \
 420     }                                                     \
 421 }
 422
 423 static void gradient_splitvertical(RrAppearance *a, gint w, gint h)
 424 {
 425     gint x, y1, y2, y3;
 426     RrSurface *sf = &a->surface;
 427     RrPixel32 *data = sf->pixel_data;
 428     RrPixel32 current;
 429     gint y1sz, y2sz, y3sz;
 430
 431     VARS(y1);
 432     VARS(y2);
 433     VARS(y3);
 434
 435     /* if h <= 5, then a 0 or 1px middle gradient.
 436        if h > 5, then always a 1px middle gradient.
 437     */
 438     if (h <= 5) {
 439         y1sz = MAX(h/2, 0);
 440         y2sz = (h < 3 ? 0 : h % 2);
 441         y3sz = MAX(h/2, 1);
 442     }
 443     else {
 444         y1sz = h/2 - (1 - (h % 2));
 445         y2sz = 1;
 446         y3sz = h/2;
 447     }
 448
 449     SETUP(y1, sf->split_primary, sf->primary, y1sz);
 450     if (y2sz) {
 451         /* setup to get the colors _in between_ these other 2 */
 452         SETUP(y2, sf->primary, sf->secondary, y2sz + 2);
 453         NEXT(y2); /* skip the first one, its the same as the last of y1 */
 454     }
 455     SETUP(y3, sf->secondary, sf->split_secondary,  y3sz);
 456
 457     for (y1 = y1sz; y1 > 0; --y1) {
 458         current = COLOR(y1);
 459         for (x = w - 1; x >= 0; --x)
 460             *(data++) = current;
 461
 462         NEXT(y1);
 463     }
 464
 465     for (y2 = y2sz; y2 > 0; --y2) {
 466         current = COLOR(y2);
 467         for (x = w - 1; x >= 0; --x)
 468             *(data++) = current;
 469
 470         NEXT(y2);
 471     }
 472
 473     for (y3 = y3sz; y3 > 0; --y3) {
 474         current = COLOR(y3);
 475         for (x = w - 1; x >= 0; --x)
 476             *(data++) = current;
 477
 478         NEXT(y3);
 479     }
 480 }
 481
 482 static void gradient_horizontal(RrSurface *sf, gint w, gint h)
 483 {
 484     gint x, y;
 485     RrPixel32 *data = sf->pixel_data, *datav;
 486     RrPixel32 current;
 487
 488     VARS(x);
 489     SETUP(x, sf->primary, sf->secondary, w);
 490
 491     for (x = w - 1; x > 0; --x) {  /* 0 -> w-1 */
 492         current = COLOR(x);
 493         datav = data;
 494         for (y = h - 1; y >= 0; --y) {  /* 0 -> h */
 495             *datav = current;
 496             datav += w;
 497         }
 498         ++data;
 499
 500         NEXT(x);
 501     }
 502     current = COLOR(x);
 503     for (y = h - 1; y >= 0; --y)  /* 0 -> h */
 504         *(data + y * w) = current;
 505 }
 506
 507 static void gradient_mirrorhorizontal(RrSurface *sf, gint w, gint h)
 508 {
 509     gint x, y;
 510     RrPixel32 *data = sf->pixel_data, *datav;
 511     RrPixel32 current;
 512
 513     VARS(x);
 514     SETUP(x, sf->primary, sf->secondary, w/2);
 515
 516     if (w > 1) {
 517         for (x = w - 1; x > w/2-1; --x) {  /* 0 -> w-1 */
 518             current = COLOR(x);
 519             datav = data;
 520             for (y = h - 1; y >= 0; --y) {  /* 0 -> h */
 521                 *datav = current;
 522                 datav += w;
 523             }
 524             ++data;
 525
 526             NEXT(x);
 527         }
 528         SETUP(x, sf->secondary, sf->primary, w/2);
 529         for (x = w/2 - 1; x > 0; --x) {  /* 0 -> w-1 */
 530             current = COLOR(x);
 531             datav = data;
 532             for (y = h - 1; y >= 0; --y) {  /* 0 -> h */
 533                 *datav = current;
 534                 datav += w;
 535             }
 536             ++data;
 537
 538             NEXT(x);
 539         }
 540     }
 541     current = COLOR(x);
 542     for (y = h - 1; y >= 0; --y)  /* 0 -> h */
 543         *(data + y * w) = current;
 544 }
 545
 546 static void gradient_vertical(RrSurface *sf, gint w, gint h)
 547 {
 548     gint x, y;
 549     RrPixel32 *data = sf->pixel_data;
 550     RrPixel32 current;
 551
 552     VARS(y);
 553     SETUP(y, sf->primary, sf->secondary, h);
 554
 555     for (y = h - 1; y > 0; --y) {  /* 0 -> h-1 */
 556         current = COLOR(y);
 557         for (x = w - 1; x >= 0; --x)  /* 0 -> w */
 558             *(data++) = current;
 559
 560         NEXT(y);
 561     }
 562     current = COLOR(y);
 563     for (x = w - 1; x >= 0; --x)  /* 0 -> w */
 564         *(data++) = current;
 565 }
 566
 567
 568 static void gradient_diagonal(RrSurface *sf, gint w, gint h)
 569 {
 570     gint x, y;
 571     RrPixel32 *data = sf->pixel_data;
 572     RrColor left, right;
 573     RrColor extracorner;
 574
 575     VARS(lefty);
 576     VARS(righty);
 577     VARS(x);
 578
 579     extracorner.r = (sf->primary->r + sf->secondary->r) / 2;
 580     extracorner.g = (sf->primary->g + sf->secondary->g) / 2;
 581     extracorner.b = (sf->primary->b + sf->secondary->b) / 2;
 582
 583     SETUP(lefty, sf->primary, (&extracorner), h);
 584     SETUP(righty, (&extracorner), sf->secondary, h);
 585
 586     for (y = h - 1; y > 0; --y) {  /* 0 -> h-1 */
 587         COLOR_RR(lefty, (&left));
 588         COLOR_RR(righty, (&right));
 589
 590         SETUP(x, (&left), (&right), w);
 591
 592         for (x = w - 1; x > 0; --x) {  /* 0 -> w-1 */
 593             *(data++) = COLOR(x);
 594
 595             NEXT(x);
 596         }
 597         *(data++) = COLOR(x);
 598
 599         NEXT(lefty);
 600         NEXT(righty);
 601     }
 602     COLOR_RR(lefty, (&left));
 603     COLOR_RR(righty, (&right));
 604
 605     SETUP(x, (&left), (&right), w);
 606
 607     for (x = w - 1; x > 0; --x) {  /* 0 -> w-1 */
 608         *(data++) = COLOR(x);
 609
 610         NEXT(x);
 611     }
 612     *data = COLOR(x);
 613 }
 614
 615 static void gradient_crossdiagonal(RrSurface *sf, gint w, gint h)
 616 {
 617     gint x, y;
 618     RrPixel32 *data = sf->pixel_data;
 619     RrColor left, right;
 620     RrColor extracorner;
 621
 622     VARS(lefty);
 623     VARS(righty);
 624     VARS(x);
 625
 626     extracorner.r = (sf->primary->r + sf->secondary->r) / 2;
 627     extracorner.g = (sf->primary->g + sf->secondary->g) / 2;
 628     extracorner.b = (sf->primary->b + sf->secondary->b) / 2;
 629
 630     SETUP(lefty, (&extracorner), sf->secondary, h);
 631     SETUP(righty, sf->primary, (&extracorner), h);
 632
 633     for (y = h - 1; y > 0; --y) {  /* 0 -> h-1 */
 634         COLOR_RR(lefty, (&left));
 635         COLOR_RR(righty, (&right));
 636
 637         SETUP(x, (&left), (&right), w);
 638
 639         for (x = w - 1; x > 0; --x) {  /* 0 -> w-1 */
 640             *(data++) = COLOR(x);
 641
 642             NEXT(x);
 643         }
 644         *(data++) = COLOR(x);
 645
 646         NEXT(lefty);
 647         NEXT(righty);
 648     }
 649     COLOR_RR(lefty, (&left));
 650     COLOR_RR(righty, (&right));
 651
 652     SETUP(x, (&left), (&right), w);
 653
 654     for (x = w - 1; x > 0; --x) {  /* 0 -> w-1 */
 655         *(data++) = COLOR(x);
 656
 657         NEXT(x);
 658     }
 659     *data = COLOR(x);
 660 }
 661
 662 static void gradient_pyramid(RrSurface *sf, gint inw, gint inh)
 663 {
 664     gint x, y, w = (inw >> 1) + 1, h = (inh >> 1) + 1;
 665     RrPixel32 *data = sf->pixel_data;
 666     RrPixel32 *end = data + inw*inh - 1;
 667     RrPixel32 current;
 668     RrColor left, right;
 669     RrColor extracorner;
 670
 671     VARS(lefty);
 672     VARS(righty);
 673     VARS(x);
 674
 675     extracorner.r = (sf->primary->r + sf->secondary->r) / 2;
 676     extracorner.g = (sf->primary->g + sf->secondary->g) / 2;
 677     extracorner.b = (sf->primary->b + sf->secondary->b) / 2;
 678
 679     SETUP(lefty, (&extracorner), sf->secondary, h);
 680     SETUP(righty, sf->primary, (&extracorner), h);
 681
 682     for (y = h - 1; y > 0; --y) {  /* 0 -> h-1 */
 683         COLOR_RR(lefty, (&left));
 684         COLOR_RR(righty, (&right));
 685
 686         SETUP(x, (&left), (&right), w);
 687
 688         for (x = w - 1; x > 0; --x) {  /* 0 -> w-1 */
 689             current = COLOR(x);
 690             *(data+x) = current;
 691             *(data+inw-x) = current;
 692             *(end-x) = current;
 693             *(end-(inw-x)) = current;
 694
 695             NEXT(x);
 696         }
 697         current = COLOR(x);
 698         *(data+x) = current;
 699         *(data+inw-x) = current;
 700         *(end-x) = current;
 701         *(end-(inw-x)) = current;
 702
 703         data+=inw;
 704         end-=inw;
 705
 706         NEXT(lefty);
 707         NEXT(righty);
 708     }
 709     COLOR_RR(lefty, (&left));
 710     COLOR_RR(righty, (&right));
 711
 712     SETUP(x, (&left), (&right), w);
 713
 714     for (x = w - 1; x > 0; --x) {  /* 0 -> w-1 */
 715         current = COLOR(x);
 716         *(data+x) = current;
 717         *(data+inw-x) = current;
 718         *(end-x) = current;
 719         *(end-(inw-x)) = current;
 720
 721         NEXT(x);
 722     }
 723     current = COLOR(x);
 724     *(data+x) = current;
 725     *(data+inw-x) = current;
 726     *(end-x) = current;
 727     *(end-(inw-x)) = current;
 728 }
 729