//
// "$Id: cmap.cpp 437 2002-12-04 10:02:21Z ravne2000 $"
//
// Colormap generation program for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2001 by Bill Spitzak and others.
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Library General Public
// License as published by the Free Software Foundation; either
// version 2 of the License, or (at your option) any later version.
//
// This library 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
// Library General Public License for more details.
//
// You should have received a copy of the GNU Library General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA.
//
// Please report all bugs and problems to "fltk-bugs@easysw.com".
//

// This program produces the contents of "fl_cmap.h" as stdout

// #include <gl/gl.h>
#include <stdio.h>

// This table is initialized with color values I got by reading the
// colormap on an IRIX 4.3 machine:

// "full intensity colors" have been turned down some to make white
// background less intense by default.  The hope is that this will make
// fltk programs more friendly on color-adjusted screens.  If you want
// pure colors you should get them out of the colormap.

//#define III 244 // maximum intensity of the basic colors

// that results in errors and unshared colormap entries, so full intensity:
#define III 255                  // maximum intensity of the basic colors

static short cmap[256][3] =
{
    // 3-bit colormap:
    {                            // black
        0,  0,  0
    },
    {                            // red
        III,  0,  0
    },
    {                            // green
        0,III,  0
    },
    {                            // yellow
        III,III,  0
    },
    {                            // blue
        0,  0,III
    },
    {                            // magenta
        III,  0,III
    },
    {                            // cyan
        0,III,III
    },
    {                            // white
        III,III,III
    },
    // pastel versions of those colors, from SGI's standard color map:
    {                            // 1/3 gray
        85, 85, 85
    },
    {                            // salmon? pale red?
        198,113,113
    },
    {                            // pale green
        113,198,113
    },
    {                            // khaki
        142,142, 56
    },
    {                            // pale blue
        113,113,198
    },
    {                            // purple, orchid, pale magenta
        142, 56,142
    },
    {                            // cadet blue, aquamarine, pale cyan
        56,142,142
    },
    // The next location is used for FL_SELECTION_COLOR. It formerly was 2/3 gray
    // but this is changed to be the Windows blue color. This allows the default
    // behavior on both X and Windows to match:
    {  0,  0,128},
    //{170,170,170},	// old 2/3 gray color
    // These next 16 are the FL_FREE_COLOR area. In some versions of fltk
    // these were filled with random colors that a Irix 5.3 machine placed
    // in these locations. Other versions of fltk filled this with the 1/3
    // gray above to discourage their use. This newest version uses colors
    // that NewTek has assigned for their GUI:
    #if 0
    // The Irix 5.3 colors:
    { 16, 16, 16},
    {128, 40,128},
    {198, 30, 30},
    { 66, 30, 30},
    {176,140,140},
    {  0, 20, 20},
    { 20, 10, 10},
    { 40, 20, 20},
    { 60, 30, 30},
    {  0, 80, 80},
    {  0, 40, 40},
    { 20, 20,  0},
    { 40, 40,  0},
    { 80, 80, 10},
    {150,150, 20},
    {160, 10, 10},
    #else
    // The NewTek colors: (from George Yohng)
    {168,168,152},
    {232,232,216},
    {104,104, 88},
    {152,168,168},
    {216,232,232},
    { 88,104,104},
    {156,156,168},
    {220,220,232},
    { 92, 92,104},
    {156,168,156},
    {220,232,220},
    { 92,104, 92},
    {144,144,144},
    {192,192,192},
    { 80, 80, 80},
    {160,160,160},
    #endif
    // The rest of the colormap is a gray ramp and table, filled in below:
};

// This is Fl::background from Fl_get_system_colors.C, with modifications:

#define FL_GRAY_RAMP 32
#define FL_NUM_GRAY  24
#define FL_GRAY 49               // old value is 47
typedef unsigned char uchar;
#include <math.h>

void background(uchar r, uchar g, uchar b)
{
    // replace the gray ramp so that color 47 (by default 2/3) is this color
    if (!r) r = 1; else if (r==255) r = 254;
    double powr = log(r/255.0)/log((FL_GRAY-FL_GRAY_RAMP)/(FL_NUM_GRAY-1.0));
    if (!g) g = 1; else if (g==255) g = 254;
    double powg = log(g/255.0)/log((FL_GRAY-FL_GRAY_RAMP)/(FL_NUM_GRAY-1.0));
    if (!b) b = 1; else if (b==255) b = 254;
    double powb = log(b/255.0)/log((FL_GRAY-FL_GRAY_RAMP)/(FL_NUM_GRAY-1.0));
    for (int i = 0; i < FL_NUM_GRAY; i++)
    {
        double gray = i/(FL_NUM_GRAY-1.0);
        cmap[i+FL_GRAY_RAMP][0] = uchar(pow(gray,powr)*255+.5);
        cmap[i+FL_GRAY_RAMP][1] = uchar(pow(gray,powg)*255+.5);
        cmap[i+FL_GRAY_RAMP][2] = uchar(pow(gray,powb)*255+.5);
    }
}

/* Exact resulting percentages of the gray map entries:
 A 32 0.0
 B 33 0.0509803921569
 C 34 0.101960784314
 D 35 0.149019607843
 E 36 0.192156862745
 F 37 0.239215686275
 G 38 0.282352941176
 H 39 0.333333333333
 I 40 0.372549019608
 J 41 0.41568627451
 K 42 0.458823529412
 L 43 0.501960784314
 M 44 0.541176470588
 N 45 0.58431372549
 O 46 0.627450980392
 P 47 0.666666666667
 Q 48 0.709803921569
 R 49 0.752941176471
 S 50 0.796078431373
 T 51 0.835294117647
 U 52 0.878431372549
 V 53 0.917647058824
 W 54 0.960784313725
 X 55 1.0
 */

#ifdef _WIN32_WCE
__cdecl main()
#else
int main()
#endif
{
    int i,r,g,b;
    #if 0
    /* Read colormap colors into internal table */
    long cmwin;
    noport();
    cmwin = winopen("CM");
    for (i=0; i<256; i++)
        getmcolor(i,&cmap[i][0],&cmap[i][1],&cmap[i][2]);
    winclose(cmwin);
    #endif
    // overwrite the X allocation area with one color so people are
    // discouraged from using it:
    //for (i=16; i<32; i++) {cmap[i][0]=cmap[i][1]=cmap[i][2] = 85;}

    // fill in the gray ramp:
    background(0xc0, 0xc0, 0xc0);// microsoft colors
    // background(170, 170, 170); // old fltk colors
    // copy the 1/3 and 2/3 gray to the closest locations in gray ramp:
    cmap[39][0] = cmap[39][1] = cmap[39][2] = 85;
    cmap[47][0] = cmap[47][1] = cmap[47][2] = 170;

    // fill in the color cube
    i = 56;
    for (b=0; b<5; b++)
        for (r=0; r<5; r++)
            for (g=0; g<8; g++)
            {
                cmap[i][0] = r*255/4;
                cmap[i][1] = g*255/7;
                cmap[i][2] = b*255/4;
                i++;
            }
    // modify entry used for tooltip colors to match Win32:
    cmap[215][2] = 0xe1;

    for (i=0; i<256; i++)
    {
        printf("\t0x%02x%02x%02x00",cmap[i][0],cmap[i][1],cmap[i][2]);
        if (i < 255) printf(",\n");
    }
    printf("\n");
    return 0;
}


//
// End of "$Id: cmap.cpp 437 2002-12-04 10:02:21Z ravne2000 $".
//
