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