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