src/Crystal_Theme.cxx

   1
   2 /*******************************************************************************/
   3 /* Copyright (C) 2008 Jonathan Moore Liles                                     */
   4 /*                                                                             */
   5 /* This program is free software; you can redistribute it and/or modify it     */
   6 /* under the terms of the GNU General Public License as published by the       */
   7 /* Free Software Foundation; either version 2 of the License, or (at your      */
   8 /* option) any later version.                                                  */
   9 /*                                                                             */
  10 /* This program is distributed in the hope that it will be useful, but WITHOUT */
  11 /* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or       */
  12 /* FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for   */
  13 /* more details.                                                               */
  14 /*                                                                             */
  15 /* You should have received a copy of the GNU General Public License along     */
  16 /* with This program; see the file COPYING.  If not,write to the Free Software */
  17 /* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  18 /*******************************************************************************/
  19
  20
  21 #pragma GCC diagnostic ignored "-Wchar-subscripts"
  22
  23 #include <FL/fl_draw.H>
  24 #include <string.h>
  25
  26 #include "FL/Fl_Theme.H"
  27
  28 /* Crystal boxes, base (obviously) on the FLTK1 'plastic' boxes, but
  29  * without the rude color blending and with a slightly enhanced
  30  * appearance. */
  31
  32 extern uchar *fl_gray_ramp();
  33
  34 inline Fl_Color
  35 shade_color ( uchar gc, Fl_Color bc )
  36 {
  37     return fl_color_average( ( Fl_Color ) gc, bc, 0.25f );
  38 }
  39
  40
  41 static void
  42 frame_rect ( int x, int y, int w, int h, const char *c, Fl_Color bc )
  43 {
  44     uchar *g = fl_gray_ramp();
  45     int b = strlen( c ) / 4 + 1;
  46
  47     for ( x += b, y += b, w -= 2 * b, h -= 2 * b; b > 1; b-- )
  48     {
  49         // Draw lines around the perimeter of the button, 4 colors per
  50         // circuit.
  51         fl_color( shade_color( g[*c++], bc ) );
  52         fl_line( x, y + h + b, x + w - 1, y + h + b, x + w + b - 1, y + h );
  53         fl_color( shade_color( g[*c++], bc ) );
  54         fl_line( x + w + b - 1, y + h, x + w + b - 1, y, x + w - 1, y - b );
  55         fl_color( shade_color( g[*c++], bc ) );
  56         fl_line( x + w - 1, y - b, x, y - b, x - b, y );
  57         fl_color( shade_color( g[*c++], bc ) );
  58         fl_line( x - b, y, x - b, y + h, x, y + h + b );
  59     }
  60 }
  61
  62
  63 static void
  64 frame_round ( int x, int y, int w, int h, const char *c, Fl_Color bc )
  65 {
  66     uchar *g = fl_gray_ramp();
  67     int b = strlen( c ) / 4 + 1;
  68
  69     if ( ! Fl::draw_box_active() )
  70         bc = fl_inactive( bc );
  71
  72     if ( w == h )
  73     {
  74         for ( ; b > 1; b--, x++, y++, w -= 2, h -= 2 )
  75         {
  76             fl_color( shade_color( g[*c++], bc ) );
  77             fl_arc( x, y, w, h, 45.0, 135.0 );
  78             fl_color( shade_color( g[*c++], bc ) );
  79             fl_arc( x, y, w, h, 315.0, 405.0 );
  80             fl_color( shade_color( g[*c++], bc ) );
  81             fl_arc( x, y, w, h, 225.0, 315.0 );
  82             fl_color( shade_color( g[*c++], bc ) );
  83             fl_arc( x, y, w, h, 135.0, 225.0 );
  84         }
  85     }
  86     else if ( w > h )
  87     {
  88         int d = h / 2;
  89         for ( ; b > 1; d--, b--, x++, y++, w -= 2, h -= 2 )
  90         {
  91             fl_color( shade_color( g[*c++], bc ) );
  92             fl_arc( x, y, h, h, 90.0, 135.0 );
  93             fl_xyline( x + d, y, x + w - d );
  94             fl_arc( x + w - h, y, h, h, 45.0, 90.0 );
  95             fl_color( shade_color( g[*c++], bc ) );
  96             fl_arc( x + w - h, y, h, h, 315.0, 405.0 );
  97             fl_color( shade_color( g[*c++], bc ) );
  98             fl_arc( x + w - h, y, h, h, 270.0, 315.0 );
  99             fl_xyline( x + d, y + h - 1, x + w - d );
 100             fl_arc( x, y, h, h, 225.0, 270.0 );
 101             fl_color( shade_color( g[*c++], bc ) );
 102             fl_arc( x, y, h, h, 135.0, 225.0 );
 103         }
 104     }
 105     else if ( w < h )
 106     {
 107         int d = w / 2;
 108         for ( ; b > 1; d--, b--, x++, y++, w -= 2, h -= 2 )
 109         {
 110             fl_color( shade_color( g[*c++], bc ) );
 111             fl_arc( x, y, w, w, 45.0, 135.0 );
 112             fl_color( shade_color( g[*c++], bc ) );
 113             fl_arc( x, y, w, w, 0.0, 45.0 );
 114             fl_yxline( x + w - 1, y + d, y + h - d );
 115             fl_arc( x, y + h - w, w, w, 315.0, 360.0 );
 116             fl_color( shade_color( g[*c++], bc ) );
 117             fl_arc( x, y + h - w, w, w, 225.0, 315.0 );
 118             fl_color( shade_color( g[*c++], bc ) );
 119             fl_arc( x, y + h - w, w, w, 180.0, 225.0 );
 120             fl_yxline( x, y + d, y + h - d );
 121             fl_arc( x, y, w, w, 135.0, 180.0 );
 122         }
 123     }
 124 }
 125
 126
 127 static void
 128 shade_rect ( int x, int y, int w, int h, const char *c, Fl_Color bc )
 129 {
 130     uchar *g = fl_gray_ramp();
 131     int i, j;
 132     int clen = strlen( c ) - 1;
 133     int chalf = clen / 2;
 134     int cstep = 1;
 135
 136     if ( ! Fl::draw_box_active() )
 137         bc = fl_inactive( bc );
 138
 139     if ( h < ( w * 2 ) )
 140     {
 141         // Horizontal shading...
 142         if ( clen >= h )
 143             cstep = 2;
 144
 145         for ( i = 0, j = 0; j < chalf; i++, j += cstep )
 146         {
 147             // Draw the top line and points...
 148             fl_color( shade_color( g[c[i]], bc ) );
 149             fl_xyline( x + 1, y + i, x + w - 2 );
 150
 151             fl_color( shade_color( g[c[i] - 2], bc ) );
 152             fl_point( x, y + i + 1 );
 153             fl_point( x + w - 1, y + i + 1 );
 154
 155             // Draw the bottom line and points...
 156             fl_color( shade_color( g[c[clen - i]], bc ) );
 157             fl_xyline( x + 1, y + h - i, x + w - 2 );
 158
 159             fl_color( shade_color( g[c[clen - i] - 2], bc ) );
 160             fl_point( x, y + h - i );
 161             fl_point( x + w - 1, y + h - i );
 162         }
 163
 164         // Draw the interior and sides...
 165         i = chalf / cstep;
 166
 167 //        fl_color( shade_color( g[c[chalf]], bc ) );
 168         fl_color( bc );
 169         fl_rectf( x + 1, y + i, w - 2, h - 2 * i + 1 );
 170
 171         fl_color( shade_color( g[c[chalf] - 2], bc ) );
 172         fl_yxline( x, y + i, y + h - i );
 173         fl_yxline( x + w - 1, y + i, y + h - i );
 174     }
 175     else
 176     {
 177         // Vertical shading...
 178         if ( clen >= w )
 179             cstep = 2;
 180
 181         for ( i = 0, j = 0; j < chalf; i++, j += cstep )
 182         {
 183             // Draw the left line and points...
 184             fl_color( shade_color( g[c[i]], bc ) );
 185             fl_yxline( x + i, y + 1, y + h - 1 );
 186
 187             fl_color( shade_color( g[c[i] - 2], bc ) );
 188             fl_point( x + i + 1, y );
 189             fl_point( x + i + 1, y + h );
 190
 191             // Draw the right line and points...
 192             fl_color( shade_color( g[c[clen - i]], bc ) );
 193             fl_yxline( x + w - 1 - i, y + 1, y + h - 1 );
 194
 195             fl_color( shade_color( g[c[clen - i] - 2], bc ) );
 196             fl_point( x + w - 2 - i, y );
 197             fl_point( x + w - 2 - i, y + h );
 198         }
 199
 200         // Draw the interior, top, and bottom...
 201         i = chalf / cstep;
 202
 203         fl_color( shade_color( g[c[chalf]], bc ) );
 204         fl_rectf( x + i, y + 1, w - 2 * i, h - 1 );
 205
 206         fl_color( shade_color( g[c[chalf] - 2], bc ) );
 207         fl_xyline( x + i, y, x + w - i );
 208         fl_xyline( x + i, y + h, x + w - i );
 209     }
 210 }
 211
 212 static void
 213 shade_round ( int x, int y, int w, int h, const char *c, Fl_Color bc )
 214 {
 215     uchar *g = fl_gray_ramp();
 216     int i;
 217     int clen = strlen( c ) - 1;
 218     int chalf = clen / 2;
 219
 220     if ( w > h )
 221     {
 222         int d = h / 2;
 223         const int na = 8;
 224         for ( i = 0; i < chalf; i++, d--, x++, y++, w -= 2, h -= 2 )
 225         {
 226             fl_color( shade_color( g[c[i]], bc ) );
 227             fl_pie( x, y, h, h, 90.0, 135.0 + i * na );
 228             fl_xyline( x + d, y, x + w - d );
 229             fl_pie( x + w - h, y, h, h, 45.0 + i * na, 90.0 );
 230             fl_color( shade_color( g[c[i] - 2], bc ) );
 231             fl_pie( x + w - h, y, h, h, 315.0 + i * na, 405.0 + i * na );
 232             fl_color( shade_color( g[c[clen - i]], bc ) );
 233             fl_pie( x + w - h, y, h, h, 270.0, 315.0 + i * na );
 234             fl_xyline( x + d, y + h - 1, x + w - d );
 235             fl_pie( x, y, h, h, 225.0 + i * na, 270.0 );
 236             fl_color( shade_color( g[c[clen - i] - 2], bc ) );
 237             fl_pie( x, y, h, h, 135.0 + i * na, 225.0 + i * na );
 238
 239
 240         }
 241 //        fl_color( shade_color( g[c[chalf]], bc ) );
 242         fl_color( bc );
 243         fl_rectf( x + d, y, w - h + 1, h + 1 );
 244         fl_pie( x, y, h, h, 90.0, 270.0 );
 245         fl_pie( x + w - h, y, h, h, 270.0, 90.0 );
 246     }
 247     else
 248     {
 249         int d = w / 2;
 250         const int na = 8;
 251         for ( i = 0; i < chalf; i++, d--, x++, y++, w -= 2, h -= 2 )
 252         {
 253             fl_color( shade_color( g[c[i]], bc ) );
 254             fl_pie( x, y, w, w, 45.0 + i * na, 135.0 + i * na );
 255             fl_color( shade_color( g[c[i] - 2], bc ) );
 256             fl_pie( x, y, w, w, 0.0, 45.0 + i * na );
 257             fl_yxline( x + w - 1, y + d, y + h - d );
 258             fl_pie( x, y + h - w, w, w, 315.0 + i * na, 360.0 );
 259             fl_color( shade_color( g[c[clen - i]], bc ) );
 260             fl_pie( x, y + h - w, w, w, 225.0 + i * na, 315.0 + i * na );
 261             fl_color( shade_color( g[c[clen - i] - 2], bc ) );
 262             fl_pie( x, y + h - w, w, w, 180.0, 225.0 + i * na );
 263             fl_yxline( x, y + d, y + h - d );
 264             fl_pie( x, y, w, w, 135.0 + i * na, 180.0 );
 265         }
 266 //        fl_color( shade_color( g[c[chalf]], bc ) );
 267         fl_color( bc );
 268         fl_rectf( x, y + d, w + 1, h - w + 1 );
 269         fl_pie( x, y, w, w, 0.0, 180.0 );
 270         fl_pie( x, y + h - w, w, w, 180.0, 360.0 );
 271     }
 272 }
 273
 274
 275 static void
 276 up_frame ( int x, int y, int w, int h, Fl_Color c )
 277 {
 278     frame_rect( x, y, w, h - 1, "MLJIIDLK", c );
 279 }
 280
 281
 282 static void
 283 narrow_thin_box ( int x, int y, int w, int h, Fl_Color c )
 284 {
 285     if ( h <= 0 || w <= 0 )
 286         return;
 287     uchar *g = fl_gray_ramp();
 288     fl_color( shade_color( g['R'], c ) );
 289     fl_rectf( x + 1, y + 1, w - 2, h - 2 );
 290     fl_color( shade_color( g['I'], c ) );
 291     if ( w > 1 )
 292     {
 293         fl_xyline( x + 1, y, x + w - 2 );
 294         fl_xyline( x + 1, y + h - 1, x + w - 2 );
 295     }
 296     if ( h > 1 )
 297     {
 298         fl_yxline( x, y + 1, y + h - 2 );
 299         fl_yxline( x + w - 1, y + 1, y + h - 2 );
 300     }
 301 }
 302
 303
 304 static void
 305 thin_up_box ( int x, int y, int w, int h, Fl_Color c )
 306 {
 307     if ( w > 4 && h > 4 )
 308     {
 309         shade_rect( x + 1, y + 1, w - 2, h - 3, "QWUSQOQR", c );
 310         frame_rect( x, y, w, h - 1, "MLJI", c );
 311     }
 312     else
 313         narrow_thin_box( x, y, w, h, c );
 314 }
 315
 316
 317 static void
 318 up_box ( int x, int y, int w, int h, Fl_Color c )
 319 {
 320     if ( w > 8 && h > 8 )
 321     {
 322         shade_rect( x + 1, y + 1, w - 2, h - 3, "QVWVUTSRQPONQVR", c );
 323 //      shade_rect( x + 1, y + 1, w - 2, h - 3, "STUVWVQRWXVUVVQ", c );
 324 //      shade_rect( x + 1, y + 1, w - 2, h - 3, "FISPPQQRSSTTUPJ", c );
 325
 326         frame_rect( x, y, w, h - 1, "IJLM", c );
 327
 328     }
 329     else
 330         thin_up_box( x, y, w, h, c );
 331 }
 332
 333
 334 static void
 335 up_round ( int x, int y, int w, int h, Fl_Color c )
 336 {
 337     shade_round( x, y, w, h, "QVWVUTSRQPONQVR", c );
 338     frame_round( x, y, w, h, "MLJI", c );
 339 }
 340
 341
 342 static void
 343 down_frame ( int x, int y, int w, int h, Fl_Color c )
 344 {
 345     frame_rect( x, y, w, h - 1, "RRTTLLLL", c );
 346 }
 347
 348
 349 static void
 350 down_box ( int x, int y, int w, int h, Fl_Color c )
 351 {
 352     if ( w > 6 && h > 6 )
 353     {
 354 //        shade_rect( x + 2, y + 2, w - 4, h - 5, "STUVWWWVT", c );
 355         fl_rectf( x + 2, y + 2, w - 4, h - 5 ,
 356                   FL_BACKGROUND_COLOR == c || FL_BACKGROUND2_COLOR == c
 357                   ? fl_darker(c)
 358                   : c );
 359         down_frame( x, y, w, h, c );
 360     }
 361     else
 362     {
 363         narrow_thin_box( x, y, w, h, c );
 364     }
 365 }
 366
 367
 368 static void
 369 down_round ( int x, int y, int w, int h, Fl_Color c )
 370 {
 371     shade_round( x, y, w, h, "TVWWWVUTS", c );
 372     frame_round( x, y, w, h, "MLJI", c );
 373 }
 374
 375 static void
 376 border_box ( int x, int y, int w, int h, Fl_Color c )
 377 {
 378     fl_color(c);
 379     fl_rectf( x,y,w,h );
 380     fl_color(fl_darker(c));
 381     fl_rect(x,y,w,h);
 382 }
 383
 384
 385 static void
 386 init_theme ( void )
 387 {
 388     printf( "Initializing crystal boxtypes" );
 389
 390     /* replace the plastic boxes... (is there a better way?) */
 391     Fl::set_boxtype(  FL_UP_BOX,         up_box,      4,4,8,8 );
 392     Fl::set_boxtype(  FL_DOWN_BOX,       down_box,    2,2,4,4 );
 393     Fl::set_boxtype(  FL_UP_FRAME,       up_frame,    2,2,4,4 );
 394     Fl::set_boxtype(  FL_DOWN_FRAME,     down_frame,  2,2,4,4 );
 395     Fl::set_boxtype(  FL_THIN_UP_BOX,    thin_up_box, 1,1,2,2 );
 396     Fl::set_boxtype(  FL_THIN_DOWN_BOX,  down_box,    1,1,2,2 );
 397     Fl::set_boxtype(  FL_ROUND_UP_BOX,   up_round,    1,1,2,2 );
 398     Fl::set_boxtype(  FL_ROUND_DOWN_BOX, down_round,  1,1,2,2 );
 399     Fl::set_boxtype(  FL_BORDER_BOX, border_box,  1,1,2,2 );
 400 }
 401
 402 void
 403 init_crystal_theme ( void )
 404 {
 405     Fl_Theme *t = new Fl_Theme( "Crystal", "", "", init_theme );
 406
 407     Fl_Theme::add( t );
 408 }