/[mcclim]/mcclim/xpm.lisp
ViewVC logotype

Contents of /mcclim/xpm.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Mon Apr 14 16:46:38 2008 UTC (6 years ago) by thenriksen
Branch: MAIN
CVS Tags: McCLIM-0-9-6, HEAD
Converted MCCLIM-IMAGES to CLIM 2.2 bitmap functions (with extensions).

Includes new demo application.
1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-INTERNALS; -*-
2 ;;; ---------------------------------------------------------------------------
3 ;;; Title: XPM Parser
4 ;;; Created: 2003-05-25
5 ;;; Authors: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
6 ;;; Andy Hefner <ahefner@gmail.com>
7 ;;; License: LGPL (See file COPYING for details).
8 ;;; ---------------------------------------------------------------------------
9 ;;; (c) copyright 2003 by Gilbert Baumann
10 ;;; (c) copyright 2006 by Andy Hefner
11
12 ;;; This library is free software; you can redistribute it and/or
13 ;;; modify it under the terms of the GNU Library General Public
14 ;;; License as published by the Free Software Foundation; either
15 ;;; version 2 of the License, or (at your option) any later version.
16 ;;;
17 ;;; This library is distributed in the hope that it will be useful,
18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;;; Library General Public License for more details.
21 ;;;
22 ;;; You should have received a copy of the GNU Library General Public
23 ;;; License along with this library; if not, write to the
24 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;;; Boston, MA 02111-1307 USA.
26
27 (in-package :clim-internals)
28
29 ;;;; Notes
30
31 ;;; This is essentially a rewrite/transliteration of Gilbert's original code,
32 ;;; modified to improve performance. This is achieved primarily by using
33 ;;; read-sequence into an (unsigned-byte 8) array and parsing directly
34 ;;; from this array (the original code read a list of strings using read-line
35 ;;; and further divided these into substrings in various places. It is
36 ;;; substantially faster than the original code, but there are opportunities
37 ;;; to further improve performance by perhaps several times, including:
38 ;;; - Use an array rather than hash table to resolve color tokens
39 ;;; (I avoided doing this for now due to a pathological case of a file
40 ;;; with a small palette but high CPP and sparse color tokens)
41 ;;; - Stricter type declarations (some but not all of the code assumes cpp<3)
42 ;;; - In the worst case (photographs), we spent most of our time parsing
43 ;;; the palette (it may have thousands or millions of entries).
44 ;;; - For the above case, we should be generating an RGB or RGBA image
45 ;;; rather than an indexed-pattern (and consing a ton of color objects).
46 ;;; - People who save photographs in XPM format are morons, so it isn't
47 ;;; worth optimizing.
48
49 ;;; Gilbert's Notes:
50
51 ;; - We lose when the XPM image only specifies colors for say the mono
52 ;; visual.
53 ;;
54 ;; - We need a little refactoring:
55 ;;
56 ;; . The list of colors below is now actually the second place we have
57 ;; that.
58 ;;
59 ;; . Parsing of #rgb style colors is now the upteens place we have
60 ;; that in general.
61 ;;
62 ;; => Put that in utils.lisp and document its interface.
63 ;;
64 ;; - The ASCII-centric approach of XPM makes it suitable for embedding
65 ;; it into sources files. I want a macro which takes a list of
66 ;; strings according the XPM format and turns it into a make-pattern
67 ;; call.
68 ;;
69 ;; - This needs to be incorporated into READ-BITMAP-FILE or what ever
70 ;; that is called.
71 ;;
72 ;; - We might be interested in the hot spot also.
73 ;;
74 ;; --GB 2003-05-25
75
76 ;;;; Summary of the File Format
77
78 ;; [as of the XPM-3.4i documentation by Arnaud Le Hors].
79
80 ;; | The XPM Format
81 ;; |
82 ;; | The XPM format presents a C syntax, in order to provide the ability to
83 ;; | include XPM files in C and C++ programs. It is in fact an array of
84 ;; | strings composed of six different sections as follows:
85 ;; |
86 ;; | /* XPM */
87 ;; | static char* <variable_name>[] = {
88 ;; | <Values>
89 ;; | <Colors>
90 ;; | <Pixels>
91 ;; | <Extensions>
92 ;; | };
93 ;; |
94 ;; | The words are separated by a white space which can be composed of
95 ;; | space and tabulation characters. The <Values> section is a string
96 ;; | containing four or six integers in base 10 that correspond to: the
97 ;; | pixmap width and height, the number of colors, the number of
98 ;; | characters per pixel (so there is no limit on the number of colors),
99 ;; | and, optionally the hotspot coordinates and the XPMEXT tag if there is
100 ;; | any extension following the <Pixels> section.
101 ;; |
102 ;; | <width> <height> <ncolors> <cpp> [<x_hotspot> <y_hotspot>] [XPMEXT]
103 ;; |
104 ;; | The Colors section contains as many strings as there are colors, and
105 ;; | each string is as follows:
106 ;; |
107 ;; | <chars> {<key> <color>}+
108 ;; |
109 ;; | Where <chars> is the <chars_per_pixel> length string (not surrounded
110 ;; | by anything) representing the pixels, <color> is the specified color,
111 ;; | and <key> is a keyword describing in which context this color should
112 ;; | be used. Currently the keys may have the following values:
113 ;; |
114 ;; | m for mono visual
115 ;; | s for symbolic name
116 ;; | g4 for 4-level grayscale
117 ;; | g for grayscale with more than 4 levels
118 ;; | c for color visual
119 ;; |
120 ;; | Colors can be specified by giving the colorname, a # followed by the
121 ;; | RGB code in hexadecimal, or a % followed by the HSV code (not
122 ;; | implemented). The symbolic name provides the ability of specifying the
123 ;; | colors at load time and not to hardcode them in the file.
124 ;; |
125 ;; | Also the string None can be given as a colorname to mean
126 ;; | ``transparent''. Transparency is supported by the XPM library by
127 ;; | providing a masking bitmap in addition to the pixmap. This mask can
128 ;; | then be used either as a clip-mask of an Xlib GC, or a shape-mask of a
129 ;; | window using the X11 Nonrectangular Window Shape Extension [XShape].
130 ;; | The <Pixels> section is composed by <height> strings of <width> *
131 ;; | <chars_per_pixel> characters, where every <chars_per_pixel> length
132 ;; | string must be one of the previously defined groups in the <Colors>
133 ;; | section.
134 ;; |
135 ;; | Then follows the <Extensions> section which must be labeled, if not
136 ;; | empty, in the <Values> section as previously described. This section
137 ;; | may be composed by several <Extension> subsections which may be of two
138 ;; | types:
139 ;; |
140 ;; | . one stand alone string composed as follows:
141 ;; |
142 ;; | XPMEXT <extension-name> <extension-data>
143 ;; |
144 ;; | . or a block composed by several strings:
145 ;; |
146 ;; | XPMEXT <extension-name>
147 ;; | <related extension-data composed of several strings>
148 ;; |
149 ;; | Finally, if not empty, this section must end by the following string:
150 ;; |
151 ;; | XPMENDEXT
152 ;; |
153 ;; | Extensions can be used to store any type of data one might want to
154 ;; | store along with a pixmap, as long as they are properly encoded so
155 ;; | they do not conflict with the general syntax. To avoid possible
156 ;; | conflicts with extension names in shared files, they should be
157 ;; | prefixed by the name of the company. This would ensure uniqueness.
158 ;; |
159
160 (deftype xpm-data-array () `(simple-array (unsigned-byte 8) 1))
161 (deftype array-index ()
162 #-sbcl '(integer 0 #.array-dimension-limit)
163 #+sbcl 'sb-int:index)
164 (deftype xpm-pixcode () `(unsigned-byte 24)) ; Bogus upper limit for speed.. =/
165
166 (defmacro xpm-over-array ((arrayform elt0 idx0 elt1 idx1 start) &body body)
167 (let ((arraysym (gensym))
168 (lengthsym (gensym)))
169 `(let* ((,arraysym ,arrayform)
170 (,lengthsym (length ,arraysym)))
171 (declare (type xpm-data-array ,arraysym)
172 (optimize (speed 3)))
173 (loop for ,idx0 of-type array-index from ,start below (1- ,lengthsym)
174 as ,idx1 of-type array-index = (1+ ,idx0)
175 as ,elt0 = (aref ,arraysym ,idx0)
176 as ,elt1 = (aref ,arraysym ,idx1)
177 do (progn ,@body)))))
178
179 (declaim (inline xpm-whitespace-p)
180 (ftype (function ((unsigned-byte 8)) t) xpm-whitespace-p))
181 (defun xpm-white-space-p (code)
182 (declare (type (unsigned-byte 8) code)
183 (optimize (speed 3)))
184 (or (= code 32) ; #\Space
185 (= code 9) ; #\Tab
186 (= code 10))) ; #\Newline
187
188 (defun xpm-token-terminator-p (code)
189 (declare (type (unsigned-byte 8) code))
190 (or (xpm-white-space-p code)
191 (= code 34))) ; #\"
192
193 (defun xpm-token-bounds (data start)
194 (xpm-over-array (data b0 start b1 i1 start)
195 (when (not (xpm-white-space-p b0))
196 (xpm-over-array (data b0 end b1 i1 start)
197 (when (xpm-token-terminator-p b0) (return-from xpm-token-bounds (values start end))))
198 (error "Unbounded token")))
199 (error "Missing token"))
200
201 (defun xpm-extract-color-token (data start end)
202 (declare (type xpm-data-array data)
203 (type array-index start end)
204 (optimize (speed 3)))
205 (let ((x 0))
206 (declare (type xpm-pixcode x)) ; Bah, this didn't help.
207 (loop for i from start below end do (setf x (+ (ash x 8) (elt data i))))
208 x))
209
210 (defun xpm-parse-color (data cpp index)
211 (declare (type xpm-data-array data)
212 (type (integer 1 4) cpp) ; ??? =p
213 (type array-index index)
214 (optimize (speed 3) (safety 0)))
215 (let* ((color-token-end (the array-index (+ index cpp)))
216 (code (xpm-extract-color-token data index color-token-end))
217 (string-end (1- (xpm-exit-string data color-token-end)))
218 (color (xpm-parse-color-spec data color-token-end string-end)))
219 (declare (type array-index color-token-end string-end)
220 (type xpm-pixcode code))
221 (unless color
222 (error "Color ~S does not parse." (map 'string #'code-char (subseq data color-token-end string-end))))
223 (values code color (1+ string-end))))
224
225 (declaim (inline xpm-key-p))
226 (defun xpm-key-p (x)
227 (or (= x 109)
228 (= x 115)
229 (= x 103)
230 (= x 99)))
231
232 (defun xpm-parse-color-spec (data start end)
233 ;; Gilbert says:
234 ;; > Lossage!
235 ;; > There exist files which say e.g. "c light yellow".
236 ;; > How am I supposed to parse that?
237 ;; >
238 ;; > It seems that the C code just parse everything until one of keys.
239 ;; > That is we do the same although it is quite stupid.
240 ;(declare (optimize (debug 3) (safety 3)))
241 (declare (optimize (speed 3) (space 0) (safety 0))
242 (type xpm-data-array data)
243 (type array-index start end))
244 (let ((original-start start)
245 key last-was-key
246 color-token-start
247 color-token-end)
248 (declare (type (or null array-index) color-token-start color-token-end)
249 (type (or null (unsigned-byte 8)) key))
250 (flet ((find-token (start end)
251 (let* ((p1 (position-if-not #'xpm-white-space-p data :start start :end end))
252 (p2 (and p1 (or (position-if #'xpm-white-space-p data :start p1 :end end) end))))
253 (values p1 p2)))
254 (quux (key color-token-start color-token-end)
255 (let ((ink (xpm-parse-single-color key data color-token-start color-token-end)))
256 (when ink
257 (return-from xpm-parse-color-spec ink))))
258 (stringize () (map 'string #'code-char (subseq data original-start end))))
259 (loop
260 (multiple-value-bind (p1 p2) (find-token start end)
261 (unless p1
262 (when last-was-key
263 (error "Premature end of color line (no color present after key): ~S." (stringize)))
264 (when color-token-start (quux key color-token-start color-token-end))
265 (error "We failed to parse a color out of ~S." (stringize)))
266 (cond (last-was-key
267 (setf last-was-key nil
268 color-token-start p1
269 color-token-end p2))
270 ((xpm-key-p (elt data p1))
271 (when color-token-start (quux key color-token-start color-token-end))
272 (setf last-was-key t
273 color-token-start nil
274 color-token-end nil
275 key (elt data p1)))
276 (t (when (null color-token-start)
277 (error "Color not prefixed by a key: ~S." (stringize)))
278 (setf last-was-key nil)
279 (setf color-token-end p2)))
280 (setf start p2))))))
281
282 (defun xpm-subvector-eql-p (data start end vector) ; FIXME: Guarantee type of input 'vector' and strengthen declaration
283 (declare (type xpm-data-array data)
284 (type array-index start end)
285 (type simple-array vector)
286 (optimize (speed 3)))
287 (and (= (length vector) (- end start))
288 (loop for i from start below end
289 do (unless (= (elt data i) (elt vector (- i start))) (return nil))
290 return t)))
291
292 (defun xpm-parse-single-color (key data start end)
293 (declare (type xpm-data-array data)
294 (type array-index start end)
295 (type (unsigned-byte 8) key)
296 (optimize (speed 3)))
297 (cond ((and (= key 115)
298 (or
299 (xpm-subvector-eql-p data start end #|"None"|# #(78 111 110 101))
300 (xpm-subvector-eql-p data start end #|"background"|# #(98 97 99 107 103 114 111 117 110 100))))
301 clim:+transparent-ink+)
302 ((= key 99) (xpm-parse-single-color-2 data start end))
303 (t (error "Unimplemented key type ~A" key))))
304
305 (declaim (ftype (function ((unsigned-byte 8)) t) xpm-hex-digit-p))
306 (defun xpm-hex-digit-p (byte)
307 (declare (type (unsigned-byte 8) byte)
308 (optimize (speed 3)))
309 (or (<= 48 byte 57)
310 (<= 65 byte 70)
311 (<= 97 byte 102)))
312
313 (defun xpm-parse-integer-hex (data start end)
314 (declare (type xpm-data-array data)
315 (type array-index start end)
316 (optimize (speed 3)))
317 (let ((accumulator 0)) ; stupid optimizer..
318 (loop for index from start below end
319 as byte = (elt data index)
320 do (setf accumulator (+ (ash accumulator 4)
321 (cond ((<= 48 byte 57) (- byte 48))
322 ((<= 65 byte 70) (- byte 65 -10))
323 ((<= 97 byte 102) (- byte 97 -10))
324 (t (error "Unknown hex digit ~A, this should be impossible." byte)))))
325 finally (return accumulator))))
326
327 (defun xpm-parse-single-color-2 (data start end)
328 (declare (type xpm-data-array data)
329 (type array-index start end)
330 (optimize (speed 3)))
331 (or (and (= (elt data start) 35) ; 35 = #\#
332 (= 0 (mod (- end start 1) 3))
333 (loop for i from (1+ start) below end do (unless (xpm-hex-digit-p (elt data i)) (return nil)) finally (return t))
334 (let* ((n (- end start 1))
335 (w (* 4 (/ n 3)))
336 (m (1- (expt 2 w)))
337 (x (xpm-parse-integer-hex data (1+ start) end)))
338 (clim:make-rgb-color (/ (ldb (byte w (* 2 w)) x) m)
339 (/ (ldb (byte w (* 1 w)) x) m)
340 (/ (ldb (byte w (* 0 w)) x) m))))
341 (xpm-find-named-color (map 'string #'code-char (subseq data start end)))))
342
343 (defun xpm-parse-header (data &optional (index 0))
344 (setf index (xpm-find-next-c-string data index))
345 (flet ((token (name)
346 (multiple-value-bind (p1 p2) (xpm-token-bounds data index)
347 (unless p1 (error "~A field missing in header." name))
348 (setf index p2)
349 (parse-integer (map 'string #'code-char (subseq data p1 p2)) :radix 10 :junk-allowed nil))))
350 (values
351 (token "width")
352 (token "height")
353 (token "ncolors")
354 (token "cpp")
355 (xpm-exit-string data index))))
356
357 (defun xpm-parse* (data)
358 (declare (type xpm-data-array data))
359 (multiple-value-bind (width height ncolors cpp index) (xpm-parse-header data)
360 (let ((color-hash (make-hash-table :test #'eql))
361 (designs (make-array ncolors))
362 (j 0))
363
364 (dotimes (i ncolors)
365 (multiple-value-bind (code ink post-index) (xpm-parse-color data cpp (xpm-find-next-c-string data index))
366 (setf (aref designs j) ink
367 (gethash code color-hash) j
368 index post-index)
369 (incf j)))
370
371 ;; It is considerably faster still to make the array below of element type '(unsigned-byte 8),
372 ;; but this would be wrong by failing to load many legal XPM files. To support both, most
373 ;; of this file would have to be compiled twice for the different types, which is more
374 ;; trouble than its worth. =(
375 (let ((res (make-array (list height width) #|:element-type '(unsigned-byte 8)|#)))
376 ;(line-start (xpm-find-next-c-string data index))
377 (setf index (xpm-find-next-c-string data index))
378 (dotimes (y height)
379 (dotimes (x width)
380 (when (= 34 (elt data index)) ; Reached closing quote for this line of pixels?
381 (setf index (xpm-find-next-c-string data (1+ index))))
382 (setf (aref res y x)
383 (or (gethash (xpm-extract-color-token data index (+ index cpp)) color-hash)
384 (error "Color code ~S not defined."
385 (subseq data index (+ index cpp)))))
386 (incf index cpp)))
387 (values res designs)))))
388
389 (declaim (ftype (function (xpm-data-array array-index) array-index) xpm-scan-comment))
390 (defun xpm-scan-comment (data start)
391 (declare (optimize (speed 3)))
392 (xpm-over-array (data b0 i0 b1 i1 start)
393 (when (and (= b0 42)
394 (= b1 47))
395 (return-from xpm-scan-comment (1+ i1))))
396 (error "Unterminated comment starting at byte ~A" (- start 2)))
397
398 (defun xpm-find-next-c-string (data start)
399 (declare (optimize (speed 3))
400 (type array-index start))
401 (xpm-over-array (data b0 i0 b1 i1 start)
402 (cond
403 ((and (= b0 47) ; 47 = #\/
404 (= b1 42)) ; 42 = #\*
405 (setf i0 (1- (xpm-scan-comment data (1+ i1)))))
406 ((= b0 34) (return i1)))))
407
408 (declaim (ftype (function (xpm-data-array array-index) array-index) xpm-exit-string))
409 (defun xpm-exit-string (data start)
410 (declare (optimize (speed 3)))
411 (xpm-over-array (data byte index next-byte next-index start)
412 (when (= byte 34) (return-from xpm-exit-string next-index)) ; 34 = #\"
413 (when (= byte 92) (incf index))) ; 92 = #\\ (escape sequence)
414 (error "Unterminated string"))
415
416 ;(loop for index of-type array-index from start below length
417 ; as byte = (elt data index)
418 ; do (cond
419 ; ( ; 42 = #\*
420 ; (incf index 2)
421 ; ;; a comment
422 ; (do ((c1 0 c2)
423 ; (c2 (elt data index) (elt data index)))
424 ; (and (= c1 42) (= c2
425
426 (defun xpm-parse-stream (input)
427 ;; For not needing to parse an actual subset of C, we take a very lazy approach.
428 ;; We just seek out for the first #\" and parse a C string from there.
429 (let ((data (make-array (file-length input)
430 :element-type '(unsigned-byte 8)
431 :adjustable nil
432 :fill-pointer nil)))
433 (read-sequence data input)
434 (xpm-parse* data)))
435
436 (defun xpm-parse-file (pathname)
437 (with-open-file (input pathname :element-type '(unsigned-byte 8))
438 (xpm-parse-stream input)))
439
440 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
441 ;;;
442 ;;; X11 Colors
443 ;;;
444
445 (defparameter *xpm-x11-colors*
446 '((255 250 250 "snow")
447 (248 248 255 "ghost white")
448 (248 248 255 "GhostWhite")
449 (245 245 245 "white smoke")
450 (245 245 245 "WhiteSmoke")
451 (220 220 220 "gainsboro")
452 (255 250 240 "floral white")
453 (255 250 240 "FloralWhite")
454 (253 245 230 "old lace")
455 (253 245 230 "OldLace")
456 (250 240 230 "linen")
457 (250 235 215 "antique white")
458 (250 235 215 "AntiqueWhite")
459 (255 239 213 "papaya whip")
460 (255 239 213 "PapayaWhip")
461 (255 235 205 "blanched almond")
462 (255 235 205 "BlanchedAlmond")
463 (255 228 196 "bisque")
464 (255 218 185 "peach puff")
465 (255 218 185 "PeachPuff")
466 (255 222 173 "navajo white")
467 (255 222 173 "NavajoWhite")
468 (255 228 181 "moccasin")
469 (255 248 220 "cornsilk")
470 (255 255 240 "ivory")
471 (255 250 205 "lemon chiffon")
472 (255 250 205 "LemonChiffon")
473 (255 245 238 "seashell")
474 (240 255 240 "honeydew")
475 (245 255 250 "mint cream")
476 (245 255 250 "MintCream")
477 (240 255 255 "azure")
478 (240 248 255 "alice blue")
479 (240 248 255 "AliceBlue")
480 (230 230 250 "lavender")
481 (255 240 245 "lavender blush")
482 (255 240 245 "LavenderBlush")
483 (255 228 225 "misty rose")
484 (255 228 225 "MistyRose")
485 (255 255 255 "white")
486 ( 0 0 0 "black")
487 ( 47 79 79 "dark slate gray")
488 ( 47 79 79 "DarkSlateGray")
489 ( 47 79 79 "dark slate grey")
490 ( 47 79 79 "DarkSlateGrey")
491 (105 105 105 "dim gray")
492 (105 105 105 "DimGray")
493 (105 105 105 "dim grey")
494 (105 105 105 "DimGrey")
495 (112 128 144 "slate gray")
496 (112 128 144 "SlateGray")
497 (112 128 144 "slate grey")
498 (112 128 144 "SlateGrey")
499 (119 136 153 "light slate gray")
500 (119 136 153 "LightSlateGray")
501 (119 136 153 "light slate grey")
502 (119 136 153 "LightSlateGrey")
503 (190 190 190 "gray")
504 (190 190 190 "grey")
505 (211 211 211 "light grey")
506 (211 211 211 "LightGrey")
507 (211 211 211 "light gray")
508 (211 211 211 "LightGray")
509 ( 25 25 112 "midnight blue")
510 ( 25 25 112 "MidnightBlue")
511 ( 0 0 128 "navy")
512 ( 0 0 128 "navy blue")
513 ( 0 0 128 "NavyBlue")
514 (100 149 237 "cornflower blue")
515 (100 149 237 "CornflowerBlue")
516 ( 72 61 139 "dark slate blue")
517 ( 72 61 139 "DarkSlateBlue")
518 (106 90 205 "slate blue")
519 (106 90 205 "SlateBlue")
520 (123 104 238 "medium slate blue")
521 (123 104 238 "MediumSlateBlue")
522 (132 112 255 "light slate blue")
523 (132 112 255 "LightSlateBlue")
524 ( 0 0 205 "medium blue")
525 ( 0 0 205 "MediumBlue")
526 ( 65 105 225 "royal blue")
527 ( 65 105 225 "RoyalBlue")
528 ( 0 0 255 "blue")
529 ( 30 144 255 "dodger blue")
530 ( 30 144 255 "DodgerBlue")
531 ( 0 191 255 "deep sky blue")
532 ( 0 191 255 "DeepSkyBlue")
533 (135 206 235 "sky blue")
534 (135 206 235 "SkyBlue")
535 (135 206 250 "light sky blue")
536 (135 206 250 "LightSkyBlue")
537 ( 70 130 180 "steel blue")
538 ( 70 130 180 "SteelBlue")
539 (176 196 222 "light steel blue")
540 (176 196 222 "LightSteelBlue")
541 (173 216 230 "light blue")
542 (173 216 230 "LightBlue")
543 (176 224 230 "powder blue")
544 (176 224 230 "PowderBlue")
545 (175 238 238 "pale turquoise")
546 (175 238 238 "PaleTurquoise")
547 ( 0 206 209 "dark turquoise")
548 ( 0 206 209 "DarkTurquoise")
549 ( 72 209 204 "medium turquoise")
550 ( 72 209 204 "MediumTurquoise")
551 ( 64 224 208 "turquoise")
552 ( 0 255 255 "cyan")
553 (224 255 255 "light cyan")
554 (224 255 255 "LightCyan")
555 ( 95 158 160 "cadet blue")
556 ( 95 158 160 "CadetBlue")
557 (102 205 170 "medium aquamarine")
558 (102 205 170 "MediumAquamarine")
559 (127 255 212 "aquamarine")
560 ( 0 100 0 "dark green")
561 ( 0 100 0 "DarkGreen")
562 ( 85 107 47 "dark olive green")
563 ( 85 107 47 "DarkOliveGreen")
564 (143 188 143 "dark sea green")
565 (143 188 143 "DarkSeaGreen")
566 ( 46 139 87 "sea green")
567 ( 46 139 87 "SeaGreen")
568 ( 60 179 113 "medium sea green")
569 ( 60 179 113 "MediumSeaGreen")
570 ( 32 178 170 "light sea green")
571 ( 32 178 170 "LightSeaGreen")
572 (152 251 152 "pale green")
573 (152 251 152 "PaleGreen")
574 ( 0 255 127 "spring green")
575 ( 0 255 127 "SpringGreen")
576 (124 252 0 "lawn green")
577 (124 252 0 "LawnGreen")
578 ( 0 255 0 "green")
579 (127 255 0 "chartreuse")
580 ( 0 250 154 "medium spring green")
581 ( 0 250 154 "MediumSpringGreen")
582 (173 255 47 "green yellow")
583 (173 255 47 "GreenYellow")
584 ( 50 205 50 "lime green")
585 ( 50 205 50 "LimeGreen")
586 (154 205 50 "yellow green")
587 (154 205 50 "YellowGreen")
588 ( 34 139 34 "forest green")
589 ( 34 139 34 "ForestGreen")
590 (107 142 35 "olive drab")
591 (107 142 35 "OliveDrab")
592 (189 183 107 "dark khaki")
593 (189 183 107 "DarkKhaki")
594 (240 230 140 "khaki")
595 (238 232 170 "pale goldenrod")
596 (238 232 170 "PaleGoldenrod")
597 (250 250 210 "light goldenrod yellow")
598 (250 250 210 "LightGoldenrodYellow")
599 (255 255 224 "light yellow")
600 (255 255 224 "LightYellow")
601 (255 255 0 "yellow")
602 (255 215 0 "gold")
603 (238 221 130 "light goldenrod")
604 (238 221 130 "LightGoldenrod")
605 (218 165 32 "goldenrod")
606 (184 134 11 "dark goldenrod")
607 (184 134 11 "DarkGoldenrod")
608 (188 143 143 "rosy brown")
609 (188 143 143 "RosyBrown")
610 (205 92 92 "indian red")
611 (205 92 92 "IndianRed")
612 (139 69 19 "saddle brown")
613 (139 69 19 "SaddleBrown")
614 (160 82 45 "sienna")
615 (205 133 63 "peru")
616 (222 184 135 "burlywood")
617 (245 245 220 "beige")
618 (245 222 179 "wheat")
619 (244 164 96 "sandy brown")
620 (244 164 96 "SandyBrown")
621 (210 180 140 "tan")
622 (210 105 30 "chocolate")
623 (178 34 34 "firebrick")
624 (165 42 42 "brown")
625 (233 150 122 "dark salmon")
626 (233 150 122 "DarkSalmon")
627 (250 128 114 "salmon")
628 (255 160 122 "light salmon")
629 (255 160 122 "LightSalmon")
630 (255 165 0 "orange")
631 (255 140 0 "dark orange")
632 (255 140 0 "DarkOrange")
633 (255 127 80 "coral")
634 (240 128 128 "light coral")
635 (240 128 128 "LightCoral")
636 (255 99 71 "tomato")
637 (255 69 0 "orange red")
638 (255 69 0 "OrangeRed")
639 (255 0 0 "red")
640 (255 105 180 "hot pink")
641 (255 105 180 "HotPink")
642 (255 20 147 "deep pink")
643 (255 20 147 "DeepPink")
644 (255 192 203 "pink")
645 (255 182 193 "light pink")
646 (255 182 193 "LightPink")
647 (219 112 147 "pale violet red")
648 (219 112 147 "PaleVioletRed")
649 (176 48 96 "maroon")
650 (199 21 133 "medium violet red")
651 (199 21 133 "MediumVioletRed")
652 (208 32 144 "violet red")
653 (208 32 144 "VioletRed")
654 (255 0 255 "magenta")
655 (238 130 238 "violet")
656 (221 160 221 "plum")
657 (218 112 214 "orchid")
658 (186 85 211 "medium orchid")
659 (186 85 211 "MediumOrchid")
660 (153 50 204 "dark orchid")
661 (153 50 204 "DarkOrchid")
662 (148 0 211 "dark violet")
663 (148 0 211 "DarkViolet")
664 (138 43 226 "blue violet")
665 (138 43 226 "BlueViolet")
666 (160 32 240 "purple")
667 (147 112 219 "medium purple")
668 (147 112 219 "MediumPurple")
669 (216 191 216 "thistle")
670 (255 250 250 "snow1")
671 (238 233 233 "snow2")
672 (205 201 201 "snow3")
673 (139 137 137 "snow4")
674 (255 245 238 "seashell1")
675 (238 229 222 "seashell2")
676 (205 197 191 "seashell3")
677 (139 134 130 "seashell4")
678 (255 239 219 "AntiqueWhite1")
679 (238 223 204 "AntiqueWhite2")
680 (205 192 176 "AntiqueWhite3")
681 (139 131 120 "AntiqueWhite4")
682 (255 228 196 "bisque1")
683 (238 213 183 "bisque2")
684 (205 183 158 "bisque3")
685 (139 125 107 "bisque4")
686 (255 218 185 "PeachPuff1")
687 (238 203 173 "PeachPuff2")
688 (205 175 149 "PeachPuff3")
689 (139 119 101 "PeachPuff4")
690 (255 222 173 "NavajoWhite1")
691 (238 207 161 "NavajoWhite2")
692 (205 179 139 "NavajoWhite3")
693 (139 121 94 "NavajoWhite4")
694 (255 250 205 "LemonChiffon1")
695 (238 233 191 "LemonChiffon2")
696 (205 201 165 "LemonChiffon3")
697 (139 137 112 "LemonChiffon4")
698 (255 248 220 "cornsilk1")
699 (238 232 205 "cornsilk2")
700 (205 200 177 "cornsilk3")
701 (139 136 120 "cornsilk4")
702 (255 255 240 "ivory1")
703 (238 238 224 "ivory2")
704 (205 205 193 "ivory3")
705 (139 139 131 "ivory4")
706 (240 255 240 "honeydew1")
707 (224 238 224 "honeydew2")
708 (193 205 193 "honeydew3")
709 (131 139 131 "honeydew4")
710 (255 240 245 "LavenderBlush1")
711 (238 224 229 "LavenderBlush2")
712 (205 193 197 "LavenderBlush3")
713 (139 131 134 "LavenderBlush4")
714 (255 228 225 "MistyRose1")
715 (238 213 210 "MistyRose2")
716 (205 183 181 "MistyRose3")
717 (139 125 123 "MistyRose4")
718 (240 255 255 "azure1")
719 (224 238 238 "azure2")
720 (193 205 205 "azure3")
721 (131 139 139 "azure4")
722 (131 111 255 "SlateBlue1")
723 (122 103 238 "SlateBlue2")
724 (105 89 205 "SlateBlue3")
725 ( 71 60 139 "SlateBlue4")
726 ( 72 118 255 "RoyalBlue1")
727 ( 67 110 238 "RoyalBlue2")
728 ( 58 95 205 "RoyalBlue3")
729 ( 39 64 139 "RoyalBlue4")
730 ( 0 0 255 "blue1")
731 ( 0 0 238 "blue2")
732 ( 0 0 205 "blue3")
733 ( 0 0 139 "blue4")
734 ( 30 144 255 "DodgerBlue1")
735 ( 28 134 238 "DodgerBlue2")
736 ( 24 116 205 "DodgerBlue3")
737 ( 16 78 139 "DodgerBlue4")
738 ( 99 184 255 "SteelBlue1")
739 ( 92 172 238 "SteelBlue2")
740 ( 79 148 205 "SteelBlue3")
741 ( 54 100 139 "SteelBlue4")
742 ( 0 191 255 "DeepSkyBlue1")
743 ( 0 178 238 "DeepSkyBlue2")
744 ( 0 154 205 "DeepSkyBlue3")
745 ( 0 104 139 "DeepSkyBlue4")
746 (135 206 255 "SkyBlue1")
747 (126 192 238 "SkyBlue2")
748 (108 166 205 "SkyBlue3")
749 ( 74 112 139 "SkyBlue4")
750 (176 226 255 "LightSkyBlue1")
751 (164 211 238 "LightSkyBlue2")
752 (141 182 205 "LightSkyBlue3")
753 ( 96 123 139 "LightSkyBlue4")
754 (198 226 255 "SlateGray1")
755 (185 211 238 "SlateGray2")
756 (159 182 205 "SlateGray3")
757 (108 123 139 "SlateGray4")
758 (202 225 255 "LightSteelBlue1")
759 (188 210 238 "LightSteelBlue2")
760 (162 181 205 "LightSteelBlue3")
761 (110 123 139 "LightSteelBlue4")
762 (191 239 255 "LightBlue1")
763 (178 223 238 "LightBlue2")
764 (154 192 205 "LightBlue3")
765 (104 131 139 "LightBlue4")
766 (224 255 255 "LightCyan1")
767 (209 238 238 "LightCyan2")
768 (180 205 205 "LightCyan3")
769 (122 139 139 "LightCyan4")
770 (187 255 255 "PaleTurquoise1")
771 (174 238 238 "PaleTurquoise2")
772 (150 205 205 "PaleTurquoise3")
773 (102 139 139 "PaleTurquoise4")
774 (152 245 255 "CadetBlue1")
775 (142 229 238 "CadetBlue2")
776 (122 197 205 "CadetBlue3")
777 ( 83 134 139 "CadetBlue4")
778 ( 0 245 255 "turquoise1")
779 ( 0 229 238 "turquoise2")
780 ( 0 197 205 "turquoise3")
781 ( 0 134 139 "turquoise4")
782 ( 0 255 255 "cyan1")
783 ( 0 238 238 "cyan2")
784 ( 0 205 205 "cyan3")
785 ( 0 139 139 "cyan4")
786 (151 255 255 "DarkSlateGray1")
787 (141 238 238 "DarkSlateGray2")
788 (121 205 205 "DarkSlateGray3")
789 ( 82 139 139 "DarkSlateGray4")
790 (127 255 212 "aquamarine1")
791 (118 238 198 "aquamarine2")
792 (102 205 170 "aquamarine3")
793 ( 69 139 116 "aquamarine4")
794 (193 255 193 "DarkSeaGreen1")
795 (180 238 180 "DarkSeaGreen2")
796 (155 205 155 "DarkSeaGreen3")
797 (105 139 105 "DarkSeaGreen4")
798 ( 84 255 159 "SeaGreen1")
799 ( 78 238 148 "SeaGreen2")
800 ( 67 205 128 "SeaGreen3")
801 ( 46 139 87 "SeaGreen4")
802 (154 255 154 "PaleGreen1")
803 (144 238 144 "PaleGreen2")
804 (124 205 124 "PaleGreen3")
805 ( 84 139 84 "PaleGreen4")
806 ( 0 255 127 "SpringGreen1")
807 ( 0 238 118 "SpringGreen2")
808 ( 0 205 102 "SpringGreen3")
809 ( 0 139 69 "SpringGreen4")
810 ( 0 255 0 "green1")
811 ( 0 238 0 "green2")
812 ( 0 205 0 "green3")
813 ( 0 139 0 "green4")
814 (127 255 0 "chartreuse1")
815 (118 238 0 "chartreuse2")
816 (102 205 0 "chartreuse3")
817 ( 69 139 0 "chartreuse4")
818 (192 255 62 "OliveDrab1")
819 (179 238 58 "OliveDrab2")
820 (154 205 50 "OliveDrab3")
821 (105 139 34 "OliveDrab4")
822 (202 255 112 "DarkOliveGreen1")
823 (188 238 104 "DarkOliveGreen2")
824 (162 205 90 "DarkOliveGreen3")
825 (110 139 61 "DarkOliveGreen4")
826 (255 246 143 "khaki1")
827 (238 230 133 "khaki2")
828 (205 198 115 "khaki3")
829 (139 134 78 "khaki4")
830 (255 236 139 "LightGoldenrod1")
831 (238 220 130 "LightGoldenrod2")
832 (205 190 112 "LightGoldenrod3")
833 (139 129 76 "LightGoldenrod4")
834 (255 255 224 "LightYellow1")
835 (238 238 209 "LightYellow2")
836 (205 205 180 "LightYellow3")
837 (139 139 122 "LightYellow4")
838 (255 255 0 "yellow1")
839 (238 238 0 "yellow2")
840 (205 205 0 "yellow3")
841 (139 139 0 "yellow4")
842 (255 215 0 "gold1")
843 (238 201 0 "gold2")
844 (205 173 0 "gold3")
845 (139 117 0 "gold4")
846 (255 193 37 "goldenrod1")
847 (238 180 34 "goldenrod2")
848 (205 155 29 "goldenrod3")
849 (139 105 20 "goldenrod4")
850 (255 185 15 "DarkGoldenrod1")
851 (238 173 14 "DarkGoldenrod2")
852 (205 149 12 "DarkGoldenrod3")
853 (139 101 8 "DarkGoldenrod4")
854 (255 193 193 "RosyBrown1")
855 (238 180 180 "RosyBrown2")
856 (205 155 155 "RosyBrown3")
857 (139 105 105 "RosyBrown4")
858 (255 106 106 "IndianRed1")
859 (238 99 99 "IndianRed2")
860 (205 85 85 "IndianRed3")
861 (139 58 58 "IndianRed4")
862 (255 130 71 "sienna1")
863 (238 121 66 "sienna2")
864 (205 104 57 "sienna3")
865 (139 71 38 "sienna4")
866 (255 211 155 "burlywood1")
867 (238 197 145 "burlywood2")
868 (205 170 125 "burlywood3")
869 (139 115 85 "burlywood4")
870 (255 231 186 "wheat1")
871 (238 216 174 "wheat2")
872 (205 186 150 "wheat3")
873 (139 126 102 "wheat4")
874 (255 165 79 "tan1")
875 (238 154 73 "tan2")
876 (205 133 63 "tan3")
877 (139 90 43 "tan4")
878 (255 127 36 "chocolate1")
879 (238 118 33 "chocolate2")
880 (205 102 29 "chocolate3")
881 (139 69 19 "chocolate4")
882 (255 48 48 "firebrick1")
883 (238 44 44 "firebrick2")
884 (205 38 38 "firebrick3")
885 (139 26 26 "firebrick4")
886 (255 64 64 "brown1")
887 (238 59 59 "brown2")
888 (205 51 51 "brown3")
889 (139 35 35 "brown4")
890 (255 140 105 "salmon1")
891 (238 130 98 "salmon2")
892 (205 112 84 "salmon3")
893 (139 76 57 "salmon4")
894 (255 160 122 "LightSalmon1")
895 (238 149 114 "LightSalmon2")
896 (205 129 98 "LightSalmon3")
897 (139 87 66 "LightSalmon4")
898 (255 165 0 "orange1")
899 (238 154 0 "orange2")
900 (205 133 0 "orange3")
901 (139 90 0 "orange4")
902 (255 127 0 "DarkOrange1")
903 (238 118 0 "DarkOrange2")
904 (205 102 0 "DarkOrange3")
905 (139 69 0 "DarkOrange4")
906 (255 114 86 "coral1")
907 (238 106 80 "coral2")
908 (205 91 69 "coral3")
909 (139 62 47 "coral4")
910 (255 99 71 "tomato1")
911 (238 92 66 "tomato2")
912 (205 79 57 "tomato3")
913 (139 54 38 "tomato4")
914 (255 69 0 "OrangeRed1")
915 (238 64 0 "OrangeRed2")
916 (205 55 0 "OrangeRed3")
917 (139 37 0 "OrangeRed4")
918 (255 0 0 "red1")
919 (238 0 0 "red2")
920 (205 0 0 "red3")
921 (139 0 0 "red4")
922 (255 20 147 "DeepPink1")
923 (238 18 137 "DeepPink2")
924 (205 16 118 "DeepPink3")
925 (139 10 80 "DeepPink4")
926 (255 110 180 "HotPink1")
927 (238 106 167 "HotPink2")
928 (205 96 144 "HotPink3")
929 (139 58 98 "HotPink4")
930 (255 181 197 "pink1")
931 (238 169 184 "pink2")
932 (205 145 158 "pink3")
933 (139 99 108 "pink4")
934 (255 174 185 "LightPink1")
935 (238 162 173 "LightPink2")
936 (205 140 149 "LightPink3")
937 (139 95 101 "LightPink4")
938 (255 130 171 "PaleVioletRed1")
939 (238 121 159 "PaleVioletRed2")
940 (205 104 137 "PaleVioletRed3")
941 (139 71 93 "PaleVioletRed4")
942 (255 52 179 "maroon1")
943 (238 48 167 "maroon2")
944 (205 41 144 "maroon3")
945 (139 28 98 "maroon4")
946 (255 62 150 "VioletRed1")
947 (238 58 140 "VioletRed2")
948 (205 50 120 "VioletRed3")
949 (139 34 82 "VioletRed4")
950 (255 0 255 "magenta1")
951 (238 0 238 "magenta2")
952 (205 0 205 "magenta3")
953 (139 0 139 "magenta4")
954 (255 131 250 "orchid1")
955 (238 122 233 "orchid2")
956 (205 105 201 "orchid3")
957 (139 71 137 "orchid4")
958 (255 187 255 "plum1")
959 (238 174 238 "plum2")
960 (205 150 205 "plum3")
961 (139 102 139 "plum4")
962 (224 102 255 "MediumOrchid1")
963 (209 95 238 "MediumOrchid2")
964 (180 82 205 "MediumOrchid3")
965 (122 55 139 "MediumOrchid4")
966 (191 62 255 "DarkOrchid1")
967 (178 58 238 "DarkOrchid2")
968 (154 50 205 "DarkOrchid3")
969 (104 34 139 "DarkOrchid4")
970 (155 48 255 "purple1")
971 (145 44 238 "purple2")
972 (125 38 205 "purple3")
973 ( 85 26 139 "purple4")
974 (171 130 255 "MediumPurple1")
975 (159 121 238 "MediumPurple2")
976 (137 104 205 "MediumPurple3")
977 ( 93 71 139 "MediumPurple4")
978 (255 225 255 "thistle1")
979 (238 210 238 "thistle2")
980 (205 181 205 "thistle3")
981 (139 123 139 "thistle4")
982 ( 0 0 0 "gray0")
983 ( 0 0 0 "grey0")
984 ( 3 3 3 "gray1")
985 ( 3 3 3 "grey1")
986 ( 5 5 5 "gray2")
987 ( 5 5 5 "grey2")
988 ( 8 8 8 "gray3")
989 ( 8 8 8 "grey3")
990 ( 10 10 10 "gray4")
991 ( 10 10 10 "grey4")
992 ( 13 13 13 "gray5")
993 ( 13 13 13 "grey5")
994 ( 15 15 15 "gray6")
995 ( 15 15 15 "grey6")
996 ( 18 18 18 "gray7")
997 ( 18 18 18 "grey7")
998 ( 20 20 20 "gray8")
999 ( 20 20 20 "grey8")
1000 ( 23 23 23 "gray9")
1001 ( 23 23 23 "grey9")
1002 ( 26 26 26 "gray10")
1003 ( 26 26 26 "grey10")
1004 ( 28 28 28 "gray11")
1005 ( 28 28 28 "grey11")
1006 ( 31 31 31 "gray12")
1007 ( 31 31 31 "grey12")
1008 ( 33 33 33 "gray13")
1009 ( 33 33 33 "grey13")
1010 ( 36 36 36 "gray14")
1011 ( 36 36 36 "grey14")
1012 ( 38 38 38 "gray15")
1013 ( 38 38 38 "grey15")
1014 ( 41 41 41 "gray16")
1015 ( 41 41 41 "grey16")
1016 ( 43 43 43 "gray17")
1017 ( 43 43 43 "grey17")
1018 ( 46 46 46 "gray18")
1019 ( 46 46 46 "grey18")
1020 ( 48 48 48 "gray19")
1021 ( 48 48 48 "grey19")
1022 ( 51 51 51 "gray20")
1023 ( 51 51 51 "grey20")
1024 ( 54 54 54 "gray21")
1025 ( 54 54 54 "grey21")
1026 ( 56 56 56 "gray22")
1027 ( 56 56 56 "grey22")
1028 ( 59 59 59 "gray23")
1029 ( 59 59 59 "grey23")
1030 ( 61 61 61 "gray24")
1031 ( 61 61 61 "grey24")
1032 ( 64 64 64 "gray25")
1033 ( 64 64 64 "grey25")
1034 ( 66 66 66 "gray26")
1035 ( 66 66 66 "grey26")
1036 ( 69 69 69 "gray27")
1037 ( 69 69 69 "grey27")
1038 ( 71 71 71 "gray28")
1039 ( 71 71 71 "grey28")
1040 ( 74 74 74 "gray29")
1041 ( 74 74 74 "grey29")
1042 ( 77 77 77 "gray30")
1043 ( 77 77 77 "grey30")
1044 ( 79 79 79 "gray31")
1045 ( 79 79 79 "grey31")
1046 ( 82 82 82 "gray32")
1047 ( 82 82 82 "grey32")
1048 ( 84 84 84 "gray33")
1049 ( 84 84 84 "grey33")
1050 ( 87 87 87 "gray34")
1051 ( 87 87 87 "grey34")
1052 ( 89 89 89 "gray35")
1053 ( 89 89 89 "grey35")
1054 ( 92 92 92 "gray36")
1055 ( 92 92 92 "grey36")
1056 ( 94 94 94 "gray37")
1057 ( 94 94 94 "grey37")
1058 ( 97 97 97 "gray38")
1059 ( 97 97 97 "grey38")
1060 ( 99 99 99 "gray39")
1061 ( 99 99 99 "grey39")
1062 (102 102 102 "gray40")
1063 (102 102 102 "grey40")
1064 (105 105 105 "gray41")
1065 (105 105 105 "grey41")
1066 (107 107 107 "gray42")
1067 (107 107 107 "grey42")
1068 (110 110 110 "gray43")
1069 (110 110 110 "grey43")
1070 (112 112 112 "gray44")
1071 (112 112 112 "grey44")
1072 (115 115 115 "gray45")
1073 (115 115 115 "grey45")
1074 (117 117 117 "gray46")
1075 (117 117 117 "grey46")
1076 (120 120 120 "gray47")
1077 (120 120 120 "grey47")
1078 (122 122 122 "gray48")
1079 (122 122 122 "grey48")
1080 (125 125 125 "gray49")
1081 (125 125 125 "grey49")
1082 (127 127 127 "gray50")
1083 (127 127 127 "grey50")
1084 (130 130 130 "gray51")
1085 (130 130 130 "grey51")
1086 (133 133 133 "gray52")
1087 (133 133 133 "grey52")
1088 (135 135 135 "gray53")
1089 (135 135 135 "grey53")
1090 (138 138 138 "gray54")
1091 (138 138 138 "grey54")
1092 (140 140 140 "gray55")
1093 (140 140 140 "grey55")
1094 (143 143 143 "gray56")
1095 (143 143 143 "grey56")
1096 (145 145 145 "gray57")
1097 (145 145 145 "grey57")
1098 (148 148 148 "gray58")
1099 (148 148 148 "grey58")
1100 (150 150 150 "gray59")
1101 (150 150 150 "grey59")
1102 (153 153 153 "gray60")
1103 (153 153 153 "grey60")
1104 (156 156 156 "gray61")
1105 (156 156 156 "grey61")
1106 (158 158 158 "gray62")
1107 (158 158 158 "grey62")
1108 (161 161 161 "gray63")
1109 (161 161 161 "grey63")
1110 (163 163 163 "gray64")
1111 (163 163 163 "grey64")
1112 (166 166 166 "gray65")
1113 (166 166 166 "grey65")
1114 (168 168 168 "gray66")
1115 (168 168 168 "grey66")
1116 (171 171 171 "gray67")
1117 (171 171 171 "grey67")
1118 (173 173 173 "gray68")
1119 (173 173 173 "grey68")
1120 (176 176 176 "gray69")
1121 (176 176 176 "grey69")
1122 (179 179 179 "gray70")
1123 (179 179 179 "grey70")
1124 (181 181 181 "gray71")
1125 (181 181 181 "grey71")
1126 (184 184 184 "gray72")
1127 (184 184 184 "grey72")
1128 (186 186 186 "gray73")
1129 (186 186 186 "grey73")
1130 (189 189 189 "gray74")
1131 (189 189 189 "grey74")
1132 (191 191 191 "gray75")
1133 (191 191 191 "grey75")
1134 (194 194 194 "gray76")
1135 (194 194 194 "grey76")
1136 (196 196 196 "gray77")
1137 (196 196 196 "grey77")
1138 (199 199 199 "gray78")
1139 (199 199 199 "grey78")
1140 (201 201 201 "gray79")
1141 (201 201 201 "grey79")
1142 (204 204 204 "gray80")
1143 (204 204 204 "grey80")
1144 (207 207 207 "gray81")
1145 (207 207 207 "grey81")
1146 (209 209 209 "gray82")
1147 (209 209 209 "grey82")
1148 (212 212 212 "gray83")
1149 (212 212 212 "grey83")
1150 (214 214 214 "gray84")
1151 (214 214 214 "grey84")
1152 (217 217 217 "gray85")
1153 (217 217 217 "grey85")
1154 (219 219 219 "gray86")
1155 (219 219 219 "grey86")
1156 (222 222 222 "gray87")
1157 (222 222 222 "grey87")
1158 (224 224 224 "gray88")
1159 (224 224 224 "grey88")
1160 (227 227 227 "gray89")
1161 (227 227 227 "grey89")
1162 (229 229 229 "gray90")
1163 (229 229 229 "grey90")
1164 (232 232 232 "gray91")
1165 (232 232 232 "grey91")
1166 (235 235 235 "gray92")
1167 (235 235 235 "grey92")
1168 (237 237 237 "gray93")
1169 (237 237 237 "grey93")
1170 (240 240 240 "gray94")
1171 (240 240 240 "grey94")
1172 (242 242 242 "gray95")
1173 (242 242 242 "grey95")
1174 (245 245 245 "gray96")
1175 (245 245 245 "grey96")
1176 (247 247 247 "gray97")
1177 (247 247 247 "grey97")
1178 (250 250 250 "gray98")
1179 (250 250 250 "grey98")
1180 (252 252 252 "gray99")
1181 (252 252 252 "grey99")
1182 (255 255 255 "gray100")
1183 (255 255 255 "grey100")
1184 (169 169 169 "dark grey")
1185 (169 169 169 "DarkGrey")
1186 (169 169 169 "dark gray")
1187 (169 169 169 "DarkGray")
1188 (0 0 139 "dark blue")
1189 (0 0 139 "DarkBlue")
1190 (0 139 139 "dark cyan")
1191 (0 139 139 "DarkCyan")
1192 (139 0 139 "dark magenta")
1193 (139 0 139 "DarkMagenta")
1194 (139 0 0 "dark red")
1195 (139 0 0 "DarkRed")
1196 (144 238 144 "light green")
1197 (144 238 144 "LightGreen")))
1198
1199 (defun xpm-find-named-color (name)
1200 (if (string-equal name "None") clim:+transparent-ink+
1201 (let ((q (find name *xpm-x11-colors* :key #'fourth :test #'string-equal)))
1202 (and q
1203 (clim:make-rgb-color (/ (first q) 255) (/ (second q) 255) (/ (third q) 255))))))

  ViewVC Help
Powered by ViewVC 1.1.5