Source Browser ?

1%D \module
2%D   [       file=colo-dem, % moved from colo-rgb,
3%D        version=1995.01.01,
4%D          title=\CONTEXT\ Color Macros,
5%D       subtitle=Demo Palets and Groups,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14%D Like colors, we first define the english colorgroups. These colorgroups are
15%D tuned for distinctive gray scale printing. The yellow range is not really
16%D all yellow but is at least visible.
17
18\definecolorgroup
19  [gray]
20  [0.95:0.95:0.95,
21   0.90:0.90:0.90,
22   0.80:0.80:0.80,
23   0.70:0.70:0.70,
24   0.60:0.60:0.60,
25   0.50:0.50:0.50,
26   0.40:0.40:0.40,
27   0.30:0.30:0.30,
28   0.20:0.20:0.20,
29   0.10:0.10:0.10,
30   0.00:0.00:0.00]
31
32\definecolorgroup
33  [red]
34  [1.00:0.90:0.90,
35   1.00:0.80:0.80,
36   1.00:0.70:0.70,
37   1.00:0.55:0.55,
38   1.00:0.40:0.40,
39   1.00:0.25:0.25,
40   1.00:0.15:0.15,
41   0.90:0.00:0.00]
42
43\definecolorgroup
44  [green]
45  [0.90:1.00:0.90,
46   0.70:1.00:0.70,
47   0.50:1.00:0.50,
48   0.30:1.00:0.30,
49   0.15:0.90:0.15,
50   0.00:0.80:0.00,
51   0.00:0.65:0.00,
52   0.00:0.50:0.00]
53
54\definecolorgroup
55  [blue]
56  [0.90:0.95:1.00,
57   0.80:0.90:1.00,
58   0.55:0.85:1.00,
59   0.30:0.80:1.00,
60   0.15:0.75:1.00,
61   0.00:0.70:1.00,
62   0.00:0.55:1.00,
63   0.00:0.40:1.00]
64
65\definecolorgroup
66  [cyan]
67  [0.80:1.00:1.00,
68   0.60:1.00:1.00,
69   0.30:1.00:1.00,
70   0.00:0.95:0.95,
71   0.00:0.85:0.85,
72   0.00:0.75:0.75,
73   0.00:0.60:0.60,
74   0.00:0.50:0.50]
75
76\definecolorgroup
77  [magenta]
78  [1.00:0.90:1.00,
79   1.00:0.80:1.00,
80   1.00:0.65:1.00,
81   1.00:0.50:1.00,
82   1.00:0.35:1.00,
83   1.00:0.15:1.00,
84   0.90:0.05:0.90,
85   0.80:0.00:0.80]
86
87\definecolorgroup
88   [yellow]
89   [1.00:1.00:0.70,
90    1.00:1.00:0.00,
91    1.00:0.85:0.05,
92    1.00:0.70:0.00,
93    1.00:0.55:0.00,
94    0.95:0.40:0.00,
95    0.80:0.30:0.00,
96    0.60:0.30:0.00]
97
98\definecolorgroup
99  [red*]
100  [1.00:0.95:0.95,
101   1.00:0.90:0.90,
102   1.00:0.80:0.80,
103   1.00:0.70:0.70,
104   1.00:0.60:0.60,
105   1.00:0.50:0.50,
106   1.00:0.40:0.40,
107   1.00:0.30:0.30]
108
109\definecolorgroup
110  [green*]
111  [0.95:1.00:0.95,
112   0.90:1.00:0.90,
113   0.80:1.00:0.80,
114   0.70:1.00:0.70,
115   0.60:1.00:0.60,
116   0.50:1.00:0.50,
117   0.40:1.00:0.40,
118   0.30:1.00:0.30]
119
120\definecolorgroup
121  [blue*]
122  [0.95:0.95:1.00,
123   0.90:0.90:1.00,
124   0.80:0.80:1.00,
125   0.70:0.70:1.00,
126   0.60:0.60:1.00,
127   0.50:0.50:1.00,
128   0.40:0.40:1.00,
129   0.30:0.30:1.00]
130
131\definecolorgroup
132  [yellow*]
133  [1.00:1.00:0.10,
134   1.00:1.00:0.00,
135   0.90:0.90:0.00,
136   0.80:0.80:0.00,
137   0.70:0.70:0.00,
138   0.60:0.60:0.00,
139   0.50:0.50:0.00,
140   0.40:0.40:0.00]
141
142%D For the sake of implementing interface dependant color
143%D groups we support colorgroup duplication.
144
145\startinterface dutch
146  \definecolorgroup [grijs]   [gray]
147  \definecolorgroup [rood]    [red]
148  \definecolorgroup [groen]   [green]
149  \definecolorgroup [blauw]   [blue]
150  \definecolorgroup [cyaan]   [cyan]
151  \definecolorgroup [magenta] [magenta]
152  \definecolorgroup [geel]    [yellow]
153  \definecolorgroup [rood*]   [red*]
154  \definecolorgroup [groen*]  [green*]
155  \definecolorgroup [blauw*]  [blue*]
156  \definecolorgroup [geel*]   [yellow*]
157\stopinterface
158
159\startinterface german
160  \definecolorgroup [grau]    [gray]
161  \definecolorgroup [rot]     [red]
162  \definecolorgroup [gruen]   [green]
163  \definecolorgroup [blau]    [blue]
164  \definecolorgroup [cyan]    [cyan]
165  \definecolorgroup [magenta] [magenta]
166  \definecolorgroup [gelb]    [yellow]
167  \definecolorgroup [rot*]    [red*]
168  \definecolorgroup [gruen*]  [green*]
169  \definecolorgroup [blau*]   [blue*]
170  \definecolorgroup [gelb*]   [yellow*]
171\stopinterface
172
173\startinterface czech
174  \definecolorgroup [seda]     [gray]
175  \definecolorgroup [cervena]  [red]
176  \definecolorgroup [zelena]   [green]
177  \definecolorgroup [modra]    [blue]
178  \definecolorgroup [azurova]  [cyan]
179  \definecolorgroup [fialova]  [magenta]
180  \definecolorgroup [zluta]    [yellow]
181  \definecolorgroup [cervena*] [red*]
182  \definecolorgroup [zelena*]  [green*]
183  \definecolorgroup [modra*]   [blue*]
184  \definecolorgroup [zluta*]   [yellow*]
185\stopinterface
186
187\startinterface italian
188  \definecolorgroup [grigio]  [gray]
189  \definecolorgroup [rosso]   [red]
190  \definecolorgroup [verde]   [green]
191  \definecolorgroup [blu]     [blue]
192  \definecolorgroup [ciano]   [cyan]
193  \definecolorgroup [azzurro] [cyan]
194  \definecolorgroup [turchino][cyan]
195  \definecolorgroup [magenta] [magenta]
196  \definecolorgroup [cremisi] [magenta]
197  \definecolorgroup [giallo]  [yellow]
198  \definecolorgroup [rosso*]  [red*]
199  \definecolorgroup [verde*]  [green*]
200  \definecolorgroup [blu*]    [blue*]
201  \definecolorgroup [giallo*] [yellow*]
202\stopinterface
203
204\startinterface french
205  \definecolorgroup [gris]    [gray]
206  \definecolorgroup [rouge]   [red]
207  \definecolorgroup [vert]    [green]
208  \definecolorgroup [bleu]    [blue]
209  \definecolorgroup [cyan]    [cyan]
210  \definecolorgroup [magenta] [magenta]
211  \definecolorgroup [jaune]   [yellow]
212  \definecolorgroup [rouge*]  [red*]
213  \definecolorgroup [vert*]   [green*]
214  \definecolorgroup [bleu*]   [blue*]
215  \definecolorgroup [jaune*] [yellow*]
216\stopinterface
217
218%D The next set of color palets is quite language independant.
219%D These palets are meant as examples.
220
221\definepalet
222  [alfa]
223  [     top=red:7,
224     bottom=green:6,
225         up=blue:5,
226       down=cyan:4,
227    strange=magenta:3,
228      charm=yellow:2]
229
230\definepalet
231  [beta]
232  [     top=red:7,
233     bottom=green:5,
234         up=blue:3,
235       down=cyan:6,
236    strange=magenta:2,
237      charm=yellow:1]
238
239\definepalet
240  [gamma]
241  [     top=red:2,
242     bottom=green:5,
243         up=blue:3,
244       down=cyan:6,
245    strange=magenta:7,
246      charm=yellow:4]
247
248\definepalet
249  [delta]
250  [     top=yellow*:5,
251     bottom=yellow*:3,
252         up=yellow*:2,
253       down=magenta:6,
254    strange=blue:4,
255      charm=blue:1]
256
257\definepalet
258  [epsilon]
259  [     top=cyan:7,
260     bottom=cyan:5,
261         up=blue:3,
262       down=yellow:6,
263    strange=yellow:4,
264      charm=yellow:2]
265
266\definepalet
267  [zeta]
268  [     top=red:6,
269     bottom=green:5,
270         up=blue:7,
271       down=cyan:4,
272    strange=magenta:3,
273      charm=yellow:2]
274
275\endinput
276