//// "$Id: cmap.cxx,v 1.1.1.1 2003/08/07 21:18:40 jasonk Exp $"//// Colormap generation program for the Fast Light Tool Kit (FLTK).//// Copyright 1998-1999 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 colorsstatic short cmap[256][3] = {// 3-bit colormap:  {  0,  0,  0},	// black  {III,  0,  0},	// red  {  0,III,  0},	// green  {III,III,  0},	// yellow  {  0,  0,III},	// blue  {III,  0,III},	// magenta  {  0,III,III},	// cyan  {III,III,III},	// white// pastel versions of those colors:  { 85, 85, 85},	// 1/3 gray  {198,113,113},	// salmon? pale red?  {113,198,113},	// pale green  {142,142, 56},	// khaki  {113,113,198},	// pale blue  {142, 56,142},	// purple, orchid, pale magenta  { 56,142,142},	// cadet blue, aquamarine, pale cyan  {170,170,170},	// 2/3 gray// These next 16 are the FL_FREE_COLOR area.  For compatability with// some existing DD programs, I prefill them with the random colors// you get on a 5.3 machine:  { 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},// 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 47typedef 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);  }}int main() {  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(cmap[15][0],cmap[15][1],cmap[15][2]); // 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] = cmap[8][0];  cmap[47][0] = cmap[47][1] = cmap[47][2] = cmap[15][0];  // 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++;      }  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.cxx,v 1.1.1.1 2003/08/07 21:18:40 jasonk Exp $".//