source: project/release/4/x11-colors/x11-colors.scm @ 15319

Last change on this file since 15319 was 15319, checked in by felix winkelmann, 11 years ago

initial import

File size: 25.4 KB
Line 
1;;;; colors.scm
2
3
4(module x11-colors (color)
5  (import scheme chicken)
6  (use matchable srfi-1 srfi-69)
7
8(define +colors+ 
9  '(("snow" . #(255 250 250))
10    ("ghost white" . #(248 248 255))
11    ("GhostWhite" . #(248 248 255))
12    ("white smoke" . #(245 245 245))
13    ("WhiteSmoke" . #(245 245 245))
14    ("gainsboro" . #(220 220 220))
15    ("floral white" . #(255 250 240))
16    ("FloralWhite" . #(255 250 240))
17    ("old lace" . #(253 245 230))
18    ("OldLace" . #(253 245 230))
19    ("linen" . #(250 240 230))
20    ("antique white" . #(250 235 215))
21    ("AntiqueWhite" . #(250 235 215))
22    ("papaya whip" . #(255 239 213))
23    ("PapayaWhip" . #(255 239 213))
24    ("blanched almond" . #(255 235 205))
25    ("BlanchedAlmond" . #(255 235 205))
26    ("bisque" . #(255 228 196))
27    ("peach puff" . #(255 218 185))
28    ("PeachPuff" . #(255 218 185))
29    ("navajo white" . #(255 222 173))
30    ("NavajoWhite" . #(255 222 173))
31    ("moccasin" . #(255 228 181))
32    ("cornsilk" . #(255 248 220))
33    ("ivory" . #(255 255 240))
34    ("lemon chiffon" . #(255 250 205))
35    ("LemonChiffon" . #(255 250 205))
36    ("seashell" . #(255 245 238))
37    ("honeydew" . #(240 255 240))
38    ("mint cream" . #(245 255 250))
39    ("MintCream" . #(245 255 250))
40    ("azure" . #(240 255 255))
41    ("alice blue" . #(240 248 255))
42    ("AliceBlue" . #(240 248 255))
43    ("lavender" . #(230 230 250))
44    ("lavender blush" . #(255 240 245))
45    ("LavenderBlush" . #(255 240 245))
46    ("misty rose" . #(255 228 225))
47    ("MistyRose" . #(255 228 225))
48    ("white" . #(255 255 255))
49    ("black" . #(0   0   0))
50    ("dark slate gray" . #(47  79  79))
51    ("DarkSlateGray" . #(47  79  79))
52    ("dark slate grey" . #(47  79  79))
53    ("DarkSlateGrey" . #(47  79  79))
54    ("dim gray" . #(105 105 105))
55    ("DimGray" . #(105 105 105))
56    ("dim grey" . #(105 105 105))
57    ("DimGrey" . #(105 105 105))
58    ("slate gray" . #(112 128 144))
59    ("SlateGray" . #(112 128 144))
60    ("slate grey" . #(112 128 144))
61    ("SlateGrey" . #(112 128 144))
62    ("light slate gray" . #(119 136 153))
63    ("LightSlateGray" . #(119 136 153))
64    ("light slate grey" . #(119 136 153))
65    ("LightSlateGrey" . #(119 136 153))
66    ("gray" . #(190 190 190))
67    ("grey" . #(190 190 190))
68    ("light grey" . #(211 211 211))
69    ("LightGrey" . #(211 211 211))
70    ("light gray" . #(211 211 211))
71    ("LightGray" . #(211 211 211))
72    ("midnight blue" . #(25  25 112))
73    ("MidnightBlue" . #(25  25 112))
74    ("navy" . #(0   0 128))
75    ("navy blue" . #(0   0 128))
76    ("NavyBlue" . #(0   0 128))
77    ("cornflower blue" . #(100 149 237))
78    ("CornflowerBlue" . #(100 149 237))
79    ("dark slate blue" . #(72  61 139))
80    ("DarkSlateBlue" . #(72  61 139))
81    ("slate blue" . #(106  90 205))
82    ("SlateBlue" . #(106  90 205))
83    ("medium slate blue" . #(123 104 238))
84    ("MediumSlateBlue" . #(123 104 238))
85    ("light slate blue" . #(132 112 255))
86    ("LightSlateBlue" . #(132 112 255))
87    ("medium blue" . #(0   0 205))
88    ("MediumBlue" . #(0   0 205))
89    ("royal blue" . #(65 105 225))
90    ("RoyalBlue" . #(65 105 225))
91    ("blue" . #(0   0 255))
92    ("dodger blue" . #(30 144 255))
93    ("DodgerBlue" . #(30 144 255))
94    ("deep sky blue" . #(0 191 255))
95    ("DeepSkyBlue" . #(0 191 255))
96    ("sky blue" . #(135 206 235))
97    ("SkyBlue" . #(135 206 235))
98    ("light sky blue" . #(135 206 250))
99    ("LightSkyBlue" . #(135 206 250))
100    ("steel blue" . #(70 130 180))
101    ("SteelBlue" . #(70 130 180))
102    ("light steel blue" . #(176 196 222))
103    ("LightSteelBlue" . #(176 196 222))
104    ("light blue" . #(173 216 230))
105    ("LightBlue" . #(173 216 230))
106    ("powder blue" . #(176 224 230))
107    ("PowderBlue" . #(176 224 230))
108    ("pale turquoise" . #(175 238 238))
109    ("PaleTurquoise" . #(175 238 238))
110    ("dark turquoise" . #(0 206 209))
111    ("DarkTurquoise" . #(0 206 209))
112    ("medium turquoise" . #(72 209 204))
113    ("MediumTurquoise" . #(72 209 204))
114    ("turquoise" . #(64 224 208))
115    ("cyan" . #(0 255 255))
116    ("light cyan" . #(224 255 255))
117    ("LightCyan" . #(224 255 255))
118    ("cadet blue" . #(95 158 160))
119    ("CadetBlue" . #(95 158 160))
120    ("medium aquamarine" . #(102 205 170))
121    ("MediumAquamarine" . #(102 205 170))
122    ("aquamarine" . #(127 255 212))
123    ("dark green" . #(0 100   0))
124    ("DarkGreen" . #(0 100   0))
125    ("dark olive green" . #(85 107  47))
126    ("DarkOliveGreen" . #(85 107  47))
127    ("dark sea green" . #(143 188 143))
128    ("DarkSeaGreen" . #(143 188 143))
129    ("sea green" . #(46 139  87))
130    ("SeaGreen" . #(46 139  87))
131    ("medium sea green" . #(60 179 113))
132    ("MediumSeaGreen" . #(60 179 113))
133    ("light sea green" . #(32 178 170))
134    ("LightSeaGreen" . #(32 178 170))
135    ("pale green" . #(152 251 152))
136    ("PaleGreen" . #(152 251 152))
137    ("spring green" . #(0 255 127))
138    ("SpringGreen" . #(0 255 127))
139    ("lawn green" . #(124 252   0))
140    ("LawnGreen" . #(124 252   0))
141    ("green" . #(0 255   0))
142    ("chartreuse" . #(127 255   0))
143    ("medium spring green" . #(0 250 154))
144    ("MediumSpringGreen" . #(0 250 154))
145    ("green yellow" . #(173 255  47))
146    ("GreenYellow" . #(173 255  47))
147    ("lime green" . #(50 205  50))
148    ("LimeGreen" . #(50 205  50))
149    ("yellow green" . #(154 205  50))
150    ("YellowGreen" . #(154 205  50))
151    ("forest green" . #(34 139  34))
152    ("ForestGreen" . #(34 139  34))
153    ("olive drab" . #(107 142  35))
154    ("OliveDrab" . #(107 142  35))
155    ("dark khaki" . #(189 183 107))
156    ("DarkKhaki" . #(189 183 107))
157    ("khaki" . #(240 230 140))
158    ("pale goldenrod" . #(238 232 170))
159    ("PaleGoldenrod" . #(238 232 170))
160    ("light goldenrod yellow" . #(250 250 210))
161    ("LightGoldenrodYellow" . #(250 250 210))
162    ("light yellow" . #(255 255 224))
163    ("LightYellow" . #(255 255 224))
164    ("yellow" . #(255 255   0))
165    ("gold" . #(255 215   0))
166    ("light goldenrod" . #(238 221 130))
167    ("LightGoldenrod" . #(238 221 130))
168    ("goldenrod" . #(218 165  32))
169    ("dark goldenrod" . #(184 134  11))
170    ("DarkGoldenrod" . #(184 134  11))
171    ("rosy brown" . #(188 143 143))
172    ("RosyBrown" . #(188 143 143))
173    ("indian red" . #(205  92  92))
174    ("IndianRed" . #(205  92  92))
175    ("saddle brown" . #(139  69  19))
176    ("SaddleBrown" . #(139  69  19))
177    ("sienna" . #(160  82  45))
178    ("peru" . #(205 133  63))
179    ("burlywood" . #(222 184 135))
180    ("beige" . #(245 245 220))
181    ("wheat" . #(245 222 179))
182    ("sandy brown" . #(244 164  96))
183    ("SandyBrown" . #(244 164  96))
184    ("tan" . #(210 180 140))
185    ("chocolate" . #(210 105  30))
186    ("firebrick" . #(178  34  34))
187    ("brown" . #(165  42  42))
188    ("dark salmon" . #(233 150 122))
189    ("DarkSalmon" . #(233 150 122))
190    ("salmon" . #(250 128 114))
191    ("light salmon" . #(255 160 122))
192    ("LightSalmon" . #(255 160 122))
193    ("orange" . #(255 165   0))
194    ("dark orange" . #(255 140   0))
195    ("DarkOrange" . #(255 140   0))
196    ("coral" . #(255 127  80))
197    ("light coral" . #(240 128 128))
198    ("LightCoral" . #(240 128 128))
199    ("tomato" . #(255  99  71))
200    ("orange red" . #(255  69   0))
201    ("OrangeRed" . #(255  69   0))
202    ("red" . #(255   0   0))
203    ("hot pink" . #(255 105 180))
204    ("HotPink" . #(255 105 180))
205    ("deep pink" . #(255  20 147))
206    ("DeepPink" . #(255  20 147))
207    ("pink" . #(255 192 203))
208    ("light pink" . #(255 182 193))
209    ("LightPink" . #(255 182 193))
210    ("pale violet red" . #(219 112 147))
211    ("PaleVioletRed" . #(219 112 147))
212    ("maroon" . #(176  48  96))
213    ("medium violet red" . #(199  21 133))
214    ("MediumVioletRed" . #(199  21 133))
215    ("violet red" . #(208  32 144))
216    ("VioletRed" . #(208  32 144))
217    ("magenta" . #(255   0 255))
218    ("violet" . #(238 130 238))
219    ("plum" . #(221 160 221))
220    ("orchid" . #(218 112 214))
221    ("medium orchid" . #(186  85 211))
222    ("MediumOrchid" . #(186  85 211))
223    ("dark orchid" . #(153  50 204))
224    ("DarkOrchid" . #(153  50 204))
225    ("dark violet" . #(148   0 211))
226    ("DarkViolet" . #(148   0 211))
227    ("blue violet" . #(138  43 226))
228    ("BlueViolet" . #(138  43 226))
229    ("purple" . #(160  32 240))
230    ("medium purple" . #(147 112 219))
231    ("MediumPurple" . #(147 112 219))
232    ("thistle" . #(216 191 216))
233    ("snow1" . #(255 250 250))
234    ("snow2" . #(238 233 233))
235    ("snow3" . #(205 201 201))
236    ("snow4" . #(139 137 137))
237    ("seashell1" . #(255 245 238))
238    ("seashell2" . #(238 229 222))
239    ("seashell3" . #(205 197 191))
240    ("seashell4" . #(139 134 130))
241    ("AntiqueWhite1" . #(255 239 219))
242    ("AntiqueWhite2" . #(238 223 204))
243    ("AntiqueWhite3" . #(205 192 176))
244    ("AntiqueWhite4" . #(139 131 120))
245    ("bisque1" . #(255 228 196))
246    ("bisque2" . #(238 213 183))
247    ("bisque3" . #(205 183 158))
248    ("bisque4" . #(139 125 107))
249    ("PeachPuff1" . #(255 218 185))
250    ("PeachPuff2" . #(238 203 173))
251    ("PeachPuff3" . #(205 175 149))
252    ("PeachPuff4" . #(139 119 101))
253    ("NavajoWhite1" . #(255 222 173))
254    ("NavajoWhite2" . #(238 207 161))
255    ("NavajoWhite3" . #(205 179 139))
256    ("NavajoWhite4" . #(139 121 94))
257    ("LemonChiffon1" . #(255 250 205))
258    ("LemonChiffon2" . #(238 233 191))
259    ("LemonChiffon3" . #(205 201 165))
260    ("LemonChiffon4" . #(139 137 112))
261    ("cornsilk1" . #(255 248 220))
262    ("cornsilk2" . #(238 232 205))
263    ("cornsilk3" . #(205 200 177))
264    ("cornsilk4" . #(139 136 120))
265    ("ivory1" . #(255 255 240))
266    ("ivory2" . #(238 238 224))
267    ("ivory3" . #(205 205 193))
268    ("ivory4" . #(139 139 131))
269    ("honeydew1" . #(240 255 240))
270    ("honeydew2" . #(224 238 224))
271    ("honeydew3" . #(193 205 193))
272    ("honeydew4" . #(131 139 131))
273    ("LavenderBlush1" . #(255 240 245))
274    ("LavenderBlush2" . #(238 224 229))
275    ("LavenderBlush3" . #(205 193 197))
276    ("LavenderBlush4" . #(139 131 134))
277    ("MistyRose1" . #(255 228 225))
278    ("MistyRose2" . #(238 213 210))
279    ("MistyRose3" . #(205 183 181))
280    ("MistyRose4" . #(139 125 123))
281    ("azure1" . #(240 255 255))
282    ("azure2" . #(224 238 238))
283    ("azure3" . #(193 205 205))
284    ("azure4" . #(131 139 139))
285    ("SlateBlue1" . #(131 111 255))
286    ("SlateBlue2" . #(122 103 238))
287    ("SlateBlue3" . #(105 89 205))
288    ("SlateBlue4" . #(71 60 139))
289    ("RoyalBlue1" . #(72 118 255))
290    ("RoyalBlue2" . #(67 110 238))
291    ("RoyalBlue3" . #(58 95 205))
292    ("RoyalBlue4" . #(39 64 139))
293    ("blue1" . #(0 0 255))
294    ("blue2" . #(0 0 238))
295    ("blue3" . #(0 0 205))
296    ("blue4" . #(0 0 139))
297    ("DodgerBlue1" . #(30 144 255))
298    ("DodgerBlue2" . #(28 134 238))
299    ("DodgerBlue3" . #(24 116 205))
300    ("DodgerBlue4" . #(16 78 139))
301    ("SteelBlue1" . #(99 184 255))
302    ("SteelBlue2" . #(92 172 238))
303    ("SteelBlue3" . #(79 148 205))
304    ("SteelBlue4" . #(54 100 139))
305    ("DeepSkyBlue1" . #(0 191 255))
306    ("DeepSkyBlue2" . #(0 178 238))
307    ("DeepSkyBlue3" . #(0 154 205))
308    ("DeepSkyBlue4" . #(0 104 139))
309    ("SkyBlue1" . #(135 206 255))
310    ("SkyBlue2" . #(126 192 238))
311    ("SkyBlue3" . #(108 166 205))
312    ("SkyBlue4" . #(74 112 139))
313    ("LightSkyBlue1" . #(176 226 255))
314    ("LightSkyBlue2" . #(164 211 238))
315    ("LightSkyBlue3" . #(141 182 205))
316    ("LightSkyBlue4" . #(96 123 139))
317    ("SlateGray1" . #(198 226 255))
318    ("SlateGray2" . #(185 211 238))
319    ("SlateGray3" . #(159 182 205))
320    ("SlateGray4" . #(108 123 139))
321    ("LightSteelBlue1" . #(202 225 255))
322    ("LightSteelBlue2" . #(188 210 238))
323    ("LightSteelBlue3" . #(162 181 205))
324    ("LightSteelBlue4" . #(110 123 139))
325    ("LightBlue1" . #(191 239 255))
326    ("LightBlue2" . #(178 223 238))
327    ("LightBlue3" . #(154 192 205))
328    ("LightBlue4" . #(104 131 139))
329    ("LightCyan1" . #(224 255 255))
330    ("LightCyan2" . #(209 238 238))
331    ("LightCyan3" . #(180 205 205))
332    ("LightCyan4" . #(122 139 139))
333    ("PaleTurquoise1" . #(187 255 255))
334    ("PaleTurquoise2" . #(174 238 238))
335    ("PaleTurquoise3" . #(150 205 205))
336    ("PaleTurquoise4" . #(102 139 139))
337    ("CadetBlue1" . #(152 245 255))
338    ("CadetBlue2" . #(142 229 238))
339    ("CadetBlue3" . #(122 197 205))
340    ("CadetBlue4" . #(83 134 139))
341    ("turquoise1" . #(0 245 255))
342    ("turquoise2" . #(0 229 238))
343    ("turquoise3" . #(0 197 205))
344    ("turquoise4" . #(0 134 139))
345    ("cyan1" . #(0 255 255))
346    ("cyan2" . #(0 238 238))
347    ("cyan3" . #(0 205 205))
348    ("cyan4" . #(0 139 139))
349    ("DarkSlateGray1" . #(151 255 255))
350    ("DarkSlateGray2" . #(141 238 238))
351    ("DarkSlateGray3" . #(121 205 205))
352    ("DarkSlateGray4" . #(82 139 139))
353    ("aquamarine1" . #(127 255 212))
354    ("aquamarine2" . #(118 238 198))
355    ("aquamarine3" . #(102 205 170))
356    ("aquamarine4" . #(69 139 116))
357    ("DarkSeaGreen1" . #(193 255 193))
358    ("DarkSeaGreen2" . #(180 238 180))
359    ("DarkSeaGreen3" . #(155 205 155))
360    ("DarkSeaGreen4" . #(105 139 105))
361    ("SeaGreen1" . #(84 255 159))
362    ("SeaGreen2" . #(78 238 148))
363    ("SeaGreen3" . #(67 205 128))
364    ("SeaGreen4" . #(46 139 87))
365    ("PaleGreen1" . #(154 255 154))
366    ("PaleGreen2" . #(144 238 144))
367    ("PaleGreen3" . #(124 205 124))
368    ("PaleGreen4" . #(84 139 84))
369    ("SpringGreen1" . #(0 255 127))
370    ("SpringGreen2" . #(0 238 118))
371    ("SpringGreen3" . #(0 205 102))
372    ("SpringGreen4" . #(0 139 69))
373    ("green1" . #(0 255 0))
374    ("green2" . #(0 238 0))
375    ("green3" . #(0 205 0))
376    ("green4" . #(0 139 0))
377    ("chartreuse1" . #(127 255 0))
378    ("chartreuse2" . #(118 238 0))
379    ("chartreuse3" . #(102 205 0))
380    ("chartreuse4" . #(69 139 0))
381    ("OliveDrab1" . #(192 255 62))
382    ("OliveDrab2" . #(179 238 58))
383    ("OliveDrab3" . #(154 205 50))
384    ("OliveDrab4" . #(105 139 34))
385    ("DarkOliveGreen1" . #(202 255 112))
386    ("DarkOliveGreen2" . #(188 238 104))
387    ("DarkOliveGreen3" . #(162 205 90))
388    ("DarkOliveGreen4" . #(110 139 61))
389    ("khaki1" . #(255 246 143))
390    ("khaki2" . #(238 230 133))
391    ("khaki3" . #(205 198 115))
392    ("khaki4" . #(139 134 78))
393    ("LightGoldenrod1" . #(255 236 139))
394    ("LightGoldenrod2" . #(238 220 130))
395    ("LightGoldenrod3" . #(205 190 112))
396    ("LightGoldenrod4" . #(139 129 76))
397    ("LightYellow1" . #(255 255 224))
398    ("LightYellow2" . #(238 238 209))
399    ("LightYellow3" . #(205 205 180))
400    ("LightYellow4" . #(139 139 122))
401    ("yellow1" . #(255 255 0))
402    ("yellow2" . #(238 238 0))
403    ("yellow3" . #(205 205 0))
404    ("yellow4" . #(139 139 0))
405    ("gold1" . #(255 215 0))
406    ("gold2" . #(238 201 0))
407    ("gold3" . #(205 173 0))
408    ("gold4" . #(139 117 0))
409    ("goldenrod1" . #(255 193 37))
410    ("goldenrod2" . #(238 180 34))
411    ("goldenrod3" . #(205 155 29))
412    ("goldenrod4" . #(139 105 20))
413    ("DarkGoldenrod1" . #(255 185 15))
414    ("DarkGoldenrod2" . #(238 173 14))
415    ("DarkGoldenrod3" . #(205 149 12))
416    ("DarkGoldenrod4" . #(139 101 8))
417    ("RosyBrown1" . #(255 193 193))
418    ("RosyBrown2" . #(238 180 180))
419    ("RosyBrown3" . #(205 155 155))
420    ("RosyBrown4" . #(139 105 105))
421    ("IndianRed1" . #(255 106 106))
422    ("IndianRed2" . #(238 99 99))
423    ("IndianRed3" . #(205 85 85))
424    ("IndianRed4" . #(139 58 58))
425    ("sienna1" . #(255 130 71))
426    ("sienna2" . #(238 121 66))
427    ("sienna3" . #(205 104 57))
428    ("sienna4" . #(139 71 38))
429    ("burlywood1" . #(255 211 155))
430    ("burlywood2" . #(238 197 145))
431    ("burlywood3" . #(205 170 125))
432    ("burlywood4" . #(139 115 85))
433    ("wheat1" . #(255 231 186))
434    ("wheat2" . #(238 216 174))
435    ("wheat3" . #(205 186 150))
436    ("wheat4" . #(139 126 102))
437    ("tan1" . #(255 165 79))
438    ("tan2" . #(238 154 73))
439    ("tan3" . #(205 133 63))
440    ("tan4" . #(139 90 43))
441    ("chocolate1" . #(255 127 36))
442    ("chocolate2" . #(238 118 33))
443    ("chocolate3" . #(205 102 29))
444    ("chocolate4" . #(139 69 19))
445    ("firebrick1" . #(255 48 48))
446    ("firebrick2" . #(238 44 44))
447    ("firebrick3" . #(205 38 38))
448    ("firebrick4" . #(139 26 26))
449    ("brown1" . #(255 64 64))
450    ("brown2" . #(238 59 59))
451    ("brown3" . #(205 51 51))
452    ("brown4" . #(139 35 35))
453    ("salmon1" . #(255 140 105))
454    ("salmon2" . #(238 130 98))
455    ("salmon3" . #(205 112 84))
456    ("salmon4" . #(139 76 57))
457    ("LightSalmon1" . #(255 160 122))
458    ("LightSalmon2" . #(238 149 114))
459    ("LightSalmon3" . #(205 129 98))
460    ("LightSalmon4" . #(139 87 66))
461    ("orange1" . #(255 165 0))
462    ("orange2" . #(238 154 0))
463    ("orange3" . #(205 133 0))
464    ("orange4" . #(139 90 0))
465    ("DarkOrange1" . #(255 127 0))
466    ("DarkOrange2" . #(238 118 0))
467    ("DarkOrange3" . #(205 102 0))
468    ("DarkOrange4" . #(139 69 0))
469    ("coral1" . #(255 114 86))
470    ("coral2" . #(238 106 80))
471    ("coral3" . #(205 91 69))
472    ("coral4" . #(139 62 47))
473    ("tomato1" . #(255 99 71))
474    ("tomato2" . #(238 92 66))
475    ("tomato3" . #(205 79 57))
476    ("tomato4" . #(139 54 38))
477    ("OrangeRed1" . #(255 69 0))
478    ("OrangeRed2" . #(238 64 0))
479    ("OrangeRed3" . #(205 55 0))
480    ("OrangeRed4" . #(139 37 0))
481    ("red1" . #(255 0 0))
482    ("red2" . #(238 0 0))
483    ("red3" . #(205 0 0))
484    ("red4" . #(139 0 0))
485    ("DeepPink1" . #(255 20 147))
486    ("DeepPink2" . #(238 18 137))
487    ("DeepPink3" . #(205 16 118))
488    ("DeepPink4" . #(139 10 80))
489    ("HotPink1" . #(255 110 180))
490    ("HotPink2" . #(238 106 167))
491    ("HotPink3" . #(205 96 144))
492    ("HotPink4" . #(139 58 98))
493    ("pink1" . #(255 181 197))
494    ("pink2" . #(238 169 184))
495    ("pink3" . #(205 145 158))
496    ("pink4" . #(139 99 108))
497    ("LightPink1" . #(255 174 185))
498    ("LightPink2" . #(238 162 173))
499    ("LightPink3" . #(205 140 149))
500    ("LightPink4" . #(139 95 101))
501    ("PaleVioletRed1" . #(255 130 171))
502    ("PaleVioletRed2" . #(238 121 159))
503    ("PaleVioletRed3" . #(205 104 137))
504    ("PaleVioletRed4" . #(139 71 93))
505    ("maroon1" . #(255 52 179))
506    ("maroon2" . #(238 48 167))
507    ("maroon3" . #(205 41 144))
508    ("maroon4" . #(139 28 98))
509    ("VioletRed1" . #(255 62 150))
510    ("VioletRed2" . #(238 58 140))
511    ("VioletRed3" . #(205 50 120))
512    ("VioletRed4" . #(139 34 82))
513    ("magenta1" . #(255 0 255))
514    ("magenta2" . #(238 0 238))
515    ("magenta3" . #(205 0 205))
516    ("magenta4" . #(139 0 139))
517    ("orchid1" . #(255 131 250))
518    ("orchid2" . #(238 122 233))
519    ("orchid3" . #(205 105 201))
520    ("orchid4" . #(139 71 137))
521    ("plum1" . #(255 187 255))
522    ("plum2" . #(238 174 238))
523    ("plum3" . #(205 150 205))
524    ("plum4" . #(139 102 139))
525    ("MediumOrchid1" . #(224 102 255))
526    ("MediumOrchid2" . #(209 95 238))
527    ("MediumOrchid3" . #(180 82 205))
528    ("MediumOrchid4" . #(122 55 139))
529    ("DarkOrchid1" . #(191 62 255))
530    ("DarkOrchid2" . #(178 58 238))
531    ("DarkOrchid3" . #(154 50 205))
532    ("DarkOrchid4" . #(104 34 139))
533    ("purple1" . #(155 48 255))
534    ("purple2" . #(145 44 238))
535    ("purple3" . #(125 38 205))
536    ("purple4" . #(85 26 139))
537    ("MediumPurple1" . #(171 130 255))
538    ("MediumPurple2" . #(159 121 238))
539    ("MediumPurple3" . #(137 104 205))
540    ("MediumPurple4" . #(93 71 139))
541    ("thistle1" . #(255 225 255))
542    ("thistle2" . #(238 210 238))
543    ("thistle3" . #(205 181 205))
544    ("thistle4" . #(139 123 139))
545    ("gray0" . #(0 0 0))
546    ("grey0" . #(0 0 0))
547    ("gray1" . #(3 3 3))
548    ("grey1" . #(3 3 3))
549    ("gray2" . #(5 5 5))
550    ("grey2" . #(5 5 5))
551    ("gray3" . #(8 8 8))
552    ("grey3" . #(8 8 8))
553    ("gray4" . #(10 10 10))
554    ("grey4" . #(10 10 10))
555    ("gray5" . #(13 13 13))
556    ("grey5" . #(13 13 13))
557    ("gray6" . #(15 15 15))
558    ("grey6" . #(15 15 15))
559    ("gray7" . #(18 18 18))
560    ("grey7" . #(18 18 18))
561    ("gray8" . #(20 20 20))
562    ("grey8" . #(20 20 20))
563    ("gray9" . #(23 23 23))
564    ("grey9" . #(23 23 23))
565    ("gray10" . #(26 26 26))
566    ("grey10" . #(26 26 26))
567    ("gray11" . #(28 28 28))
568    ("grey11" . #(28 28 28))
569    ("gray12" . #(31 31 31))
570    ("grey12" . #(31 31 31))
571    ("gray13" . #(33 33 33))
572    ("grey13" . #(33 33 33))
573    ("gray14" . #(36 36 36))
574    ("grey14" . #(36 36 36))
575    ("gray15" . #(38 38 38))
576    ("grey15" . #(38 38 38))
577    ("gray16" . #(41 41 41))
578    ("grey16" . #(41 41 41))
579    ("gray17" . #(43 43 43))
580    ("grey17" . #(43 43 43))
581    ("gray18" . #(46 46 46))
582    ("grey18" . #(46 46 46))
583    ("gray19" . #(48 48 48))
584    ("grey19" . #(48 48 48))
585    ("gray20" . #(51 51 51))
586    ("grey20" . #(51 51 51))
587    ("gray21" . #(54 54 54))
588    ("grey21" . #(54 54 54))
589    ("gray22" . #(56 56 56))
590    ("grey22" . #(56 56 56))
591    ("gray23" . #(59 59 59))
592    ("grey23" . #(59 59 59))
593    ("gray24" . #(61 61 61))
594    ("grey24" . #(61 61 61))
595    ("gray25" . #(64 64 64))
596    ("grey25" . #(64 64 64))
597    ("gray26" . #(66 66 66))
598    ("grey26" . #(66 66 66))
599    ("gray27" . #(69 69 69))
600    ("grey27" . #(69 69 69))
601    ("gray28" . #(71 71 71))
602    ("grey28" . #(71 71 71))
603    ("gray29" . #(74 74 74))
604    ("grey29" . #(74 74 74))
605    ("gray30" . #(77 77 77))
606    ("grey30" . #(77 77 77))
607    ("gray31" . #(79 79 79))
608    ("grey31" . #(79 79 79))
609    ("gray32" . #(82 82 82))
610    ("grey32" . #(82 82 82))
611    ("gray33" . #(84 84 84))
612    ("grey33" . #(84 84 84))
613    ("gray34" . #(87 87 87))
614    ("grey34" . #(87 87 87))
615    ("gray35" . #(89 89 89))
616    ("grey35" . #(89 89 89))
617    ("gray36" . #(92 92 92))
618    ("grey36" . #(92 92 92))
619    ("gray37" . #(94 94 94))
620    ("grey37" . #(94 94 94))
621    ("gray38" . #(97 97 97))
622    ("grey38" . #(97 97 97))
623    ("gray39" . #(99 99 99))
624    ("grey39" . #(99 99 99))
625    ("gray40" . #(102 102 102))
626    ("grey40" . #(102 102 102))
627    ("gray41" . #(105 105 105))
628    ("grey41" . #(105 105 105))
629    ("gray42" . #(107 107 107))
630    ("grey42" . #(107 107 107))
631    ("gray43" . #(110 110 110))
632    ("grey43" . #(110 110 110))
633    ("gray44" . #(112 112 112))
634    ("grey44" . #(112 112 112))
635    ("gray45" . #(115 115 115))
636    ("grey45" . #(115 115 115))
637    ("gray46" . #(117 117 117))
638    ("grey46" . #(117 117 117))
639    ("gray47" . #(120 120 120))
640    ("grey47" . #(120 120 120))
641    ("gray48" . #(122 122 122))
642    ("grey48" . #(122 122 122))
643    ("gray49" . #(125 125 125))
644    ("grey49" . #(125 125 125))
645    ("gray50" . #(127 127 127))
646    ("grey50" . #(127 127 127))
647    ("gray51" . #(130 130 130))
648    ("grey51" . #(130 130 130))
649    ("gray52" . #(133 133 133))
650    ("grey52" . #(133 133 133))
651    ("gray53" . #(135 135 135))
652    ("grey53" . #(135 135 135))
653    ("gray54" . #(138 138 138))
654    ("grey54" . #(138 138 138))
655    ("gray55" . #(140 140 140))
656    ("grey55" . #(140 140 140))
657    ("gray56" . #(143 143 143))
658    ("grey56" . #(143 143 143))
659    ("gray57" . #(145 145 145))
660    ("grey57" . #(145 145 145))
661    ("gray58" . #(148 148 148))
662    ("grey58" . #(148 148 148))
663    ("gray59" . #(150 150 150))
664    ("grey59" . #(150 150 150))
665    ("gray60" . #(153 153 153))
666    ("grey60" . #(153 153 153))
667    ("gray61" . #(156 156 156))
668    ("grey61" . #(156 156 156))
669    ("gray62" . #(158 158 158))
670    ("grey62" . #(158 158 158))
671    ("gray63" . #(161 161 161))
672    ("grey63" . #(161 161 161))
673    ("gray64" . #(163 163 163))
674    ("grey64" . #(163 163 163))
675    ("gray65" . #(166 166 166))
676    ("grey65" . #(166 166 166))
677    ("gray66" . #(168 168 168))
678    ("grey66" . #(168 168 168))
679    ("gray67" . #(171 171 171))
680    ("grey67" . #(171 171 171))
681    ("gray68" . #(173 173 173))
682    ("gray68" . #(173 173 173))
683    ("grey68" . #(173 173 173))
684    ("gray69" . #(176 176 176))
685    ("grey69" . #(176 176 176))
686    ("gray70" . #(179 179 179))
687    ("grey70" . #(179 179 179))
688    ("gray71" . #(181 181 181))
689    ("grey71" . #(181 181 181))
690    ("gray72" . #(184 184 184))
691    ("grey72" . #(184 184 184))
692    ("gray73" . #(186 186 186))
693    ("grey73" . #(186 186 186))
694    ("gray74" . #(189 189 189))
695    ("grey74" . #(189 189 189))
696    ("gray75" . #(191 191 191))
697    ("grey75" . #(191 191 191))
698    ("gray76" . #(194 194 194))
699    ("grey76" . #(194 194 194))
700    ("gray77" . #(196 196 196))
701    ("grey77" . #(196 196 196))
702    ("gray78" . #(199 199 199))
703    ("grey78" . #(199 199 199))
704    ("gray79" . #(201 201 201))
705    ("grey79" . #(201 201 201))
706    ("gray80" . #(204 204 204))
707    ("grey80" . #(204 204 204))
708    ("gray81" . #(207 207 207))
709    ("grey81" . #(207 207 207))
710    ("gray82" . #(209 209 209))
711    ("grey82" . #(209 209 209))
712    ("gray83" . #(212 212 212))
713    ("grey83" . #(212 212 212))
714    ("gray84" . #(214 214 214))
715    ("grey84" . #(214 214 214))
716    ("gray85" . #(217 217 217))
717    ("grey85" . #(217 217 217))
718    ("gray86" . #(219 219 219))
719    ("grey86" . #(219 219 219))
720    ("gray87" . #(222 222 222))
721    ("grey87" . #(222 222 222))
722    ("gray88" . #(224 224 224))
723    ("grey88" . #(224 224 224))
724    ("gray89" . #(227 227 227))
725    ("grey89" . #(227 227 227))
726    ("gray90" . #(229 229 229))
727    ("grey90" . #(229 229 229))
728    ("gray91" . #(232 232 232))
729    ("grey91" . #(232 232 232))
730    ("gray92" . #(235 235 235))
731    ("grey92" . #(235 235 235))
732    ("gray93" . #(237 237 237))
733    ("grey93" . #(237 237 237))
734    ("gray94" . #(240 240 240))
735    ("grey94" . #(240 240 240))
736    ("gray95" . #(242 242 242))
737    ("grey95" . #(242 242 242))
738    ("gray96" . #(245 245 245))
739    ("grey96" . #(245 245 245))
740    ("gray97" . #(247 247 247))
741    ("grey97" . #(247 247 247))
742    ("gray98" . #(250 250 250))
743    ("grey98" . #(250 250 250))
744    ("gray99" . #(252 252 252))
745    ("grey99" . #(252 252 252))
746    ("gray100" . #(255 255 255))
747    ("grey100" . #(255 255 255))
748    ("dark grey" . #(169 169 169))
749    ("DarkGrey" . #(169 169 169))
750    ("dark gray" . #(169 169 169))
751    ("DarkGray" . #(169 169 169))
752    ("dark blue" . #(0     0 139))
753    ("DarkBlue" . #(0     0 139))
754    ("dark cyan" . #(0   139 139))
755    ("DarkCyan" . #(0   139 139))
756    ("dark magenta" . #(139   0 139))
757    ("DarkMagenta" . #(139   0 139))
758    ("dark red" . #(139   0   0))
759    ("DarkRed" . #(139   0   0))
760    ("light green" . #(144 238 144))
761    ("LightGreen" . #(144 238 144)) ) )
762
763(define (color x)
764  (match x
765    ((? string?)
766     (and-let* ((c (find (lambda (c) (string-ci=? (car c) x)) +colors+)))
767       (cdr c)))
768    ((? symbol?) (color (symbol->string x)))
769    ((_ _ _) (list->vector x))
770    (#(_ _ _) x)
771    (_ (error 'color "invalid color specification" x))))
772
773)
Note: See TracBrowser for help on using the repository browser.