/*******************************************************************************/ /* Copyright (C) 2008 Jonathan Moore Liles */ /* */ /* This program is free software; you can redistribute it and/or modify it */ /* under the terms of the GNU General Public License as published by the */ /* Free Software Foundation; either version 2 of the License, or (at your */ /* option) any later version. */ /* */ /* This program is distributed in the hope that it will be useful, but WITHOUT */ /* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or */ /* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for */ /* more details. */ /* */ /* You should have received a copy of the GNU General Public License along */ /* with This program; see the file COPYING. If not,write to the Free Software */ /* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /*******************************************************************************/ #pragma GCC diagnostic ignored "-Wchar-subscripts" #include "Boxtypes.H" #include #include /** This simple box is suitable for use with knob-type widgets. It * comprises a border with shadow, and a cap with glare-lines akin * to those seen on burnished aluminum knobs. */ static void burnished_oval_box ( int x, int y, int w, int h, Fl_Color c ) { /* draw background */ fl_color( fl_darker( c ) ); fl_pie( x, y, w, h, 0, 360 ); fl_color( fl_darker( fl_darker( c ) ) ); fl_pie( x, y, w, h, 180 + 215, 180 + 45 ); /* shrink */ x += 4; y += 4; w -= 7; h -= 7; /* draw cap */ fl_color( c ); fl_pie( x, y, w, h, 0, 360 ); /* draw glare */ const int a1 = 10; const int a2 = 90; fl_color( fl_color_average( FL_WHITE, c, 0.15f ) ); fl_pie( x, y, w, h, a1, a2 ); fl_pie( x, y, w, h, 180 + a1, 180 + a2 ); fl_color( fl_color_average( FL_WHITE, c, 0.25f ) ); const int d = (a2 - a1) / 2; fl_pie( x, y, w, h, a1 + (d / 2), a2 - (d / 2) ); fl_pie( x, y, w, h, 180 + a1 + (d / 2), 180 + a2 - (d / 2) ); } /* Crystal boxes, base (obviously) on the FLTK1 'plastic' boxes, but * without the rude color blending and with a slightly enhanced * appearance. */ extern uchar *fl_gray_ramp(); inline Fl_Color shade_color ( uchar gc, Fl_Color bc ) { return fl_color_average( ( Fl_Color ) gc, bc, 0.25f ); } static void frame_rect ( int x, int y, int w, int h, const char *c, Fl_Color bc ) { uchar *g = fl_gray_ramp(); int b = strlen( c ) / 4 + 1; for ( x += b, y += b, w -= 2 * b, h -= 2 * b; b > 1; b-- ) { // Draw lines around the perimeter of the button, 4 colors per // circuit. fl_color( shade_color( g[*c++], bc ) ); fl_line( x, y + h + b, x + w - 1, y + h + b, x + w + b - 1, y + h ); fl_color( shade_color( g[*c++], bc ) ); fl_line( x + w + b - 1, y + h, x + w + b - 1, y, x + w - 1, y - b ); fl_color( shade_color( g[*c++], bc ) ); fl_line( x + w - 1, y - b, x, y - b, x - b, y ); fl_color( shade_color( g[*c++], bc ) ); fl_line( x - b, y, x - b, y + h, x, y + h + b ); } } static void frame_round ( int x, int y, int w, int h, const char *c, Fl_Color bc ) { uchar *g = fl_gray_ramp(); int b = strlen( c ) / 4 + 1; if ( ! Fl::draw_box_active() ) bc = fl_inactive( bc ); if ( w == h ) { for ( ; b > 1; b--, x++, y++, w -= 2, h -= 2 ) { fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y, w, h, 45.0, 135.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y, w, h, 315.0, 405.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y, w, h, 225.0, 315.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y, w, h, 135.0, 225.0 ); } } else if ( w > h ) { int d = h / 2; for ( ; b > 1; d--, b--, x++, y++, w -= 2, h -= 2 ) { fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y, h, h, 90.0, 135.0 ); fl_xyline( x + d, y, x + w - d ); fl_arc( x + w - h, y, h, h, 45.0, 90.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x + w - h, y, h, h, 315.0, 405.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x + w - h, y, h, h, 270.0, 315.0 ); fl_xyline( x + d, y + h - 1, x + w - d ); fl_arc( x, y, h, h, 225.0, 270.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y, h, h, 135.0, 225.0 ); } } else if ( w < h ) { int d = w / 2; for ( ; b > 1; d--, b--, x++, y++, w -= 2, h -= 2 ) { fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y, w, w, 45.0, 135.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y, w, w, 0.0, 45.0 ); fl_yxline( x + w - 1, y + d, y + h - d ); fl_arc( x, y + h - w, w, w, 315.0, 360.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y + h - w, w, w, 225.0, 315.0 ); fl_color( shade_color( g[*c++], bc ) ); fl_arc( x, y + h - w, w, w, 180.0, 225.0 ); fl_yxline( x, y + d, y + h - d ); fl_arc( x, y, w, w, 135.0, 180.0 ); } } } static void shade_rect ( int x, int y, int w, int h, const char *c, Fl_Color bc ) { uchar *g = fl_gray_ramp(); int i, j; int clen = strlen( c ) - 1; int chalf = clen / 2; int cstep = 1; if ( ! Fl::draw_box_active() ) bc = fl_inactive( bc ); if ( h < ( w * 2 ) ) { // Horizontal shading... if ( clen >= h ) cstep = 2; for ( i = 0, j = 0; j < chalf; i++, j += cstep ) { // Draw the top line and points... fl_color( shade_color( g[c[i]], bc ) ); fl_xyline( x + 1, y + i, x + w - 2 ); fl_color( shade_color( g[c[i] - 2], bc ) ); fl_point( x, y + i + 1 ); fl_point( x + w - 1, y + i + 1 ); // Draw the bottom line and points... fl_color( shade_color( g[c[clen - i]], bc ) ); fl_xyline( x + 1, y + h - i, x + w - 2 ); fl_color( shade_color( g[c[clen - i] - 2], bc ) ); fl_point( x, y + h - i ); fl_point( x + w - 1, y + h - i ); } // Draw the interior and sides... i = chalf / cstep; // fl_color( shade_color( g[c[chalf]], bc ) ); fl_color( bc ); fl_rectf( x + 1, y + i, w - 2, h - 2 * i + 1 ); fl_color( shade_color( g[c[chalf] - 2], bc ) ); fl_yxline( x, y + i, y + h - i ); fl_yxline( x + w - 1, y + i, y + h - i ); } else { // Vertical shading... if ( clen >= w ) cstep = 2; for ( i = 0, j = 0; j < chalf; i++, j += cstep ) { // Draw the left line and points... fl_color( shade_color( g[c[i]], bc ) ); fl_yxline( x + i, y + 1, y + h - 1 ); fl_color( shade_color( g[c[i] - 2], bc ) ); fl_point( x + i + 1, y ); fl_point( x + i + 1, y + h ); // Draw the right line and points... fl_color( shade_color( g[c[clen - i]], bc ) ); fl_yxline( x + w - 1 - i, y + 1, y + h - 1 ); fl_color( shade_color( g[c[clen - i] - 2], bc ) ); fl_point( x + w - 2 - i, y ); fl_point( x + w - 2 - i, y + h ); } // Draw the interior, top, and bottom... i = chalf / cstep; fl_color( shade_color( g[c[chalf]], bc ) ); fl_rectf( x + i, y + 1, w - 2 * i, h - 1 ); fl_color( shade_color( g[c[chalf] - 2], bc ) ); fl_xyline( x + i, y, x + w - i ); fl_xyline( x + i, y + h, x + w - i ); } } static void shade_round ( int x, int y, int w, int h, const char *c, Fl_Color bc ) { uchar *g = fl_gray_ramp(); int i; int clen = strlen( c ) - 1; int chalf = clen / 2; if ( w > h ) { int d = h / 2; const int na = 8; for ( i = 0; i < chalf; i++, d--, x++, y++, w -= 2, h -= 2 ) { fl_color( shade_color( g[c[i]], bc ) ); fl_pie( x, y, h, h, 90.0, 135.0 + i * na ); fl_xyline( x + d, y, x + w - d ); fl_pie( x + w - h, y, h, h, 45.0 + i * na, 90.0 ); fl_color( shade_color( g[c[i] - 2], bc ) ); fl_pie( x + w - h, y, h, h, 315.0 + i * na, 405.0 + i * na ); fl_color( shade_color( g[c[clen - i]], bc ) ); fl_pie( x + w - h, y, h, h, 270.0, 315.0 + i * na ); fl_xyline( x + d, y + h - 1, x + w - d ); fl_pie( x, y, h, h, 225.0 + i * na, 270.0 ); fl_color( shade_color( g[c[clen - i] - 2], bc ) ); fl_pie( x, y, h, h, 135.0 + i * na, 225.0 + i * na ); } // fl_color( shade_color( g[c[chalf]], bc ) ); fl_color( bc ); fl_rectf( x + d, y, w - h + 1, h + 1 ); fl_pie( x, y, h, h, 90.0, 270.0 ); fl_pie( x + w - h, y, h, h, 270.0, 90.0 ); } else { int d = w / 2; const int na = 8; for ( i = 0; i < chalf; i++, d--, x++, y++, w -= 2, h -= 2 ) { fl_color( shade_color( g[c[i]], bc ) ); fl_pie( x, y, w, w, 45.0 + i * na, 135.0 + i * na ); fl_color( shade_color( g[c[i] - 2], bc ) ); fl_pie( x, y, w, w, 0.0, 45.0 + i * na ); fl_yxline( x + w - 1, y + d, y + h - d ); fl_pie( x, y + h - w, w, w, 315.0 + i * na, 360.0 ); fl_color( shade_color( g[c[clen - i]], bc ) ); fl_pie( x, y + h - w, w, w, 225.0 + i * na, 315.0 + i * na ); fl_color( shade_color( g[c[clen - i] - 2], bc ) ); fl_pie( x, y + h - w, w, w, 180.0, 225.0 + i * na ); fl_yxline( x, y + d, y + h - d ); fl_pie( x, y, w, w, 135.0 + i * na, 180.0 ); } // fl_color( shade_color( g[c[chalf]], bc ) ); fl_color( bc ); fl_rectf( x, y + d, w + 1, h - w + 1 ); fl_pie( x, y, w, w, 0.0, 180.0 ); fl_pie( x, y + h - w, w, w, 180.0, 360.0 ); } } static void up_frame ( int x, int y, int w, int h, Fl_Color c ) { frame_rect( x, y, w, h - 1, "KLDIIJLM", c ); } static void narrow_thin_box ( int x, int y, int w, int h, Fl_Color c ) { if ( h <= 0 || w <= 0 ) return; uchar *g = fl_gray_ramp(); fl_color( shade_color( g['R'], c ) ); fl_rectf( x + 1, y + 1, w - 2, h - 2 ); fl_color( shade_color( g['I'], c ) ); if ( w > 1 ) { fl_xyline( x + 1, y, x + w - 2 ); fl_xyline( x + 1, y + h - 1, x + w - 2 ); } if ( h > 1 ) { fl_yxline( x, y + 1, y + h - 2 ); fl_yxline( x + w - 1, y + 1, y + h - 2 ); } } static void thin_up_box ( int x, int y, int w, int h, Fl_Color c ) { if ( w > 4 && h > 4 ) { shade_rect( x + 1, y + 1, w - 2, h - 3, "RQOQSUWQ", c ); frame_rect( x, y, w, h - 1, "IJLM", c ); } else narrow_thin_box( x, y, w, h, c ); } static void up_box ( int x, int y, int w, int h, Fl_Color c ) { if ( w > 8 && h > 8 ) { // shade_rect( x + 1, y + 1, w - 2, h - 3, "RVQNOPQRSTUVWVQ", c ); // shade_rect( x + 1, y + 1, w - 2, h - 3, "STUVWVQRWXVUVVQ", c ); shade_rect( x + 1, y + 1, w - 2, h - 3, "FISPPQQRSSTTUPJ", c ); /* stipple */ fl_color( fl_color_average( FL_GRAY, c, 0.10f ) ); for ( int i = y + 1; i < y + h - 8; i += 5 ) fl_line( x + 1, i, x + w - 2, i ); frame_rect( x, y, w, h - 1, "IJLM", c ); } else thin_up_box( x, y, w, h, c ); } static void up_round ( int x, int y, int w, int h, Fl_Color c ) { shade_round( x, y, w, h, "RVQNOPQRSTUVWVQ", c ); frame_round( x, y, w, h, "IJLM", c ); } static void down_frame ( int x, int y, int w, int h, Fl_Color c ) { frame_rect( x, y, w, h - 1, "LLLLTTRR", c ); } static void down_box ( int x, int y, int w, int h, Fl_Color c ) { if ( w > 6 && h > 6 ) { shade_rect( x + 2, y + 2, w - 4, h - 5, "STUVWWWVT", c ); down_frame( x, y, w, h, c ); } else { narrow_thin_box( x, y, w, h, c ); } } static void down_round ( int x, int y, int w, int h, Fl_Color c ) { shade_round( x, y, w, h, "STUVWWWVT", c ); frame_round( x, y, w, h, "IJLM", c ); } void init_boxtypes ( void ) { Fl::set_boxtype( FL_BURNISHED_OVAL_BOX, burnished_oval_box, 4, 4, 7, 7 ); Fl::set_boxtype( FL_CRYSTAL_UP_BOX, up_box, 4,4,8,8 ); Fl::set_boxtype( FL_CRYSTAL_DOWN_BOX, down_box, 2,2,4,4 ); Fl::set_boxtype( FL_CRYSTAL_UP_FRAME, up_frame, 2,2,4,4 ); Fl::set_boxtype( FL_CRYSTAL_DOWN_FRAME, down_frame, 2,2,4,4 ); Fl::set_boxtype( FL_CRYSTAL_THIN_UP_BOX, thin_up_box, 1,1,2,2 ); Fl::set_boxtype( FL_CRYSTAL_THIN_DOWN_BOX, down_box, 1,1,2,2 ); /* replace the plastic boxes... (is there a better way?) */ Fl::set_boxtype( FL_PLASTIC_UP_BOX, up_box, 4,4,8,8 ); Fl::set_boxtype( FL_PLASTIC_DOWN_BOX, down_box, 2,2,4,4 ); Fl::set_boxtype( FL_PLASTIC_UP_FRAME, up_frame, 2,2,4,4 ); Fl::set_boxtype( FL_PLASTIC_DOWN_FRAME, down_frame, 2,2,4,4 ); Fl::set_boxtype( FL_PLASTIC_THIN_UP_BOX, thin_up_box, 1,1,2,2 ); Fl::set_boxtype( FL_PLASTIC_THIN_DOWN_BOX, down_box, 1,1,2,2 ); Fl::set_boxtype( FL_CRYSTAL_ROUND_UP_BOX, up_round, 1,1,2,2 ); Fl::set_boxtype( FL_CRYSTAL_ROUND_DOWN_BOX, down_round, 1,1,2,2 ); }