1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
// 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
static 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 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);
}
}
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;
}
|
