1 ;; -*- coding: iso-2022-7bit; -*-
3 (require 'munsell-conv)
5 (defconst munsell-color-names-alist
6 '(("2.5R3.0/3.0" "
\e$BAIK'
\e(B" "
\e$B$9$[$&
\e(B")
7 ("2.5R7.0/8.0" "
\e$B9HG_
\e(B" "
\e$B$3$&$P$$
\e(B")
8 ("4.0R4.0/14.0" "
\e$B4Z9H2V
\e(B" "
\e$B$+$i$/$l$J$p
\e(B")
9 ("2.5R6.0/10.0" "
\e$BEm2V
\e(B" "
\e$B$b$b
\e(B")
10 ("2.5R7.0/7.0" "
\e$B:y
\e(B" "
\e$B$5$/$i
\e(B")
11 ("2.5YR8.0/4.0" "
\e$BFy
\e(B" "
\e$B$K$/
\e(B")
12 ("7.5R4.0/14.0" "
\e$B@VAIK'
\e(B" "
\e$B$"$+$9$[$&
\e(B")
13 ("5.0R4.5/13.0" "
\e$B6d<k
\e(B" "
\e$B$.$s$7$e
\e(B")
14 ("7.5R4.5/14.0" "
\e$B`O!9Hl
\e(B" "
\e$B$7$g$&$8$g$&$R
\e(B")
15 ("7.5R5.0/13.0" "
\e$B9HHl
\e(B" "
\e$B$Y$K$R
\e(B")
16 ("10R5.5/14.0" "
\e$B2+C0
\e(B" "
\e$B$o$&$?$s
\e(B")
17 ("10R6.0/11.0" "
\e$B??Hl
\e(B" "
\e$B$^$R
\e(B")
18 ("2.5YR7.0/11.0" "
\e$(DT`
\e(B" "
\e$B$=$R
\e(B")
19 ("10R6.5/10.0" "
\e$B3A
\e(B" "
\e$B$+$-
\e(B")
20 ("10YR7.5/8.0" "
\e$B?<;Y;R
\e(B" "
\e$B$3$-$/$A$J$7
\e(B")
21 ("7.5YR7.0/11.0" "
\e$B4;;R
\e(B" "
\e$B$3$&$8
\e(B")
22 ("10YR7.5/10.0" "
\e$B5`MU
\e(B" "
\e$B$/$A$P
\e(B")
23 ("5.0YR8.0/6.0" "
\e$B@VGrFK
\e(B" "
\e$B$"$+$7$m$D$k$P$_
\e(B")
24 ("2.5R3.5/5.0" "
\e$B>.F&
\e(B" "
\e$B$"$:$-
\e(B")
25 ("5.0R4.0/11.0" "
\e$BIrF:Cc
\e(B" "
\e$B$($S$A$c
\e(B")
26 ("2.5R4.5/10.0" "
\e$B??<k
\e(B" "
\e$B$7$s$7$e
\e(B")
27 ("2.0YR3.5/4.0" "
\e$B[XHi
\e(B" "
\e$B$R$O$@
\e(B")
28 ("7.5R4.0/7.0" "
\e$B%Y%s%,%i
\e(B" "
\e$B$Y$s$,$i
\e(B")
29 ("10R4.5/8.0" "
\e$BBel`
\e(B" "
\e$B$?$$$7$c
\e(B")
30 ("10R3.0/2.0" "
\e$B>GCc
\e(B" "
\e$B$3$2$A$c
\e(B")
31 ("10R3.0/4.0" "
\e$B7*Hi
\e(B" "
\e$B$/$j$+$O
\e(B")
32 ("10R4.0/7.0" "
\e$BFP
\e(B" "
\e$B$H$S
\e(B")
33 ("10R4.0/5.0" "
\e$B3w
\e(B" "
\e$B$+$P
\e(B")
34 ("2.5Y5.0/4.0" "
\e$B2+H'@w
\e(B" "
\e$B$3$&$m$;$s
\e(B")
35 ("5.0YR4.0/4.0" "
\e$BCz;RCc
\e(B" "
\e$B$A$g$&$8$A$c
\e(B")
36 ("10YR4.0/4.0" "
\e$B<F
\e(B" "
\e$B$U$7
\e(B")
37 ("7.5YR6.0/6.0" "
\e$BCz;z
\e(B" "
\e$B$A$g$&$8
\e(B")
38 ("7.5YR5.5/6.0" "
\e$BDS2+
\e(B" "
\e$B$7$c$*$&
\e(B")
39 ("10YR6.0/7.0" "
\e$B%+!<%-!<
\e(B" "
\e$B$+!<$-!<
\e(B")
40 ("7.5YR6.0/5.0" "
\e$B7,
\e(B" "
\e$B$/$o
\e(B")
41 ("2.5Y6.5/7.0" "
\e$B2+FK
\e(B" "
\e$B$-$D$k$P$_
\e(B")
42 ("10YR7.5/6.0" "
\e$B9a
\e(B" "
\e$B$3$&
\e(B")
43 ("10YR7.0/7.0" "
\e$B2+EZ
\e(B" "
\e$B$*$&$I
\e(B")
44 ("3.5Y8.0/12.0" "
\e$B;3?a
\e(B" "
\e$B$d$^$V$-
\e(B")
45 ("3.0Y8.0/14.0" "
\e$BF#2+
\e(B" "
\e$B$H$&$*$&
\e(B")
46 ("4.5Y8.0/12.0" "
\e$B]56b
\e(B" "
\e$B$&$3$s
\e(B")
47 ("5.0Y8.0/10.0" "
\e$B4"0B
\e(B" "
\e$B$+$j$d$9
\e(B")
48 ("4.5Y8.0/8.0" "
\e$B2+
\e(B[
\e$Bi-
\e(B/
\e$BLZ
\e(B]" "
\e$B$-$O$@
\e(B")
49 ("3.0Y8.0/7.0" "
\e$B;Y;R
\e(B" "
\e$B$/$A$J$7
\e(B")
50 ("4.0Y8.0/8.0" "
\e$B6L;R
\e(B" "
\e$B$?$^$4
\e(B")
51 ("10Y8.0/10.0" "
\e$Bs4
\e(B" "
\e$B$R$o
\e(B")
52 ("5.0GY7.0/8.0" "
\e$Bs4K(2+
\e(B" "
\e$B$R$o$b$($.
\e(B")
53 ("7.5GY5.5/5.0" "
\e$Brt
\e(B" "
\e$B$&$0$$$9
\e(B")
54 ("10GY5.5/9.0" "
\e$BK(2+
\e(B" "
\e$B$b$($.
\e(B")
55 ("10GY4.0/6.0" "
\e$BNP
\e(B" "
\e$B$_$I$j
\e(B")
56 ("5.0G6.0/8.0" "
\e$BNP@D
\e(B" "
\e$B$m$/$7$g$&
\e(B")
57 ("2.5G8.0/2.0" "
\e$BGrNP
\e(B" "
\e$B$S$c$/$m$/
\e(B")
58 ("7.5G5.0/5.0" "
\e$B>>MU
\e(B" "
\e$B$^$D$P
\e(B")
59 ("5.0BG4.0/4.0" "
\e$B;3Mu@"
\e(B" "
\e$B$d$^$"$$$:$j
\e(B")
60 ("2.5GY3.5/2.0" "
\e$B3$>>
\e(B" "
\e$B$_$k
\e(B")
61 ("10Y4.0/2.0" "
\e$BU;Cc
\e(B" "
\e$B$3$S$A$c
\e(B")
62 ("5.0GY7.5/3.0" "
\e$B@DGrFK
\e(B" "
\e$B$"$*$7$m$D$k$P$_
\e(B")
63 ("7.5PB2.3/3.0" "
\e$B2X;R:0
\e(B" "
\e$B$J$9$3$s
\e(B")
64 ("7.5PB3.0/3.0" "
\e$B:0
\e(B" "
\e$B$3$s
\e(B")
65 ("5.0PB3.0/4.0" "
\e$BG<8M
\e(B" "
\e$B$J$s$I
\e(B")
66 ("8.5PB3.0/12.0" "
\e$B:0@D
\e(B" "
\e$B$3$s$8$g$&
\e(B")
67 ("7.5PB3.0/12.0" "
\e$BN0M~
\e(B" "
\e$B$k$j
\e(B")
68 ("6.0PB3.5/12.0" "
\e$B72@D
\e(B" "
\e$B$0$s$8$g$&
\e(B")
69 ("7.5B6.0/4.0" "
\e$BGr72
\e(B" "
\e$B$S$c$/$0$s
\e(B")
70 ("10B3.5/5.0" "
\e$Be]
\e(B" "
\e$B$O$J$@
\e(B")
71 ("10BG6.0/3.0" "
\e$B@u2+
\e(B" "
\e$B$"$5$.
\e(B")
72 ("5.0P2.5/4.0" "
\e$BLG;g
\e(B" "
\e$B$a$C$7
\e(B")
73 ("5.0P2.5/4.0" "
\e$B?<;g
\e(B" "
\e$B$3$`$i$5$-
\e(B")
74 ("5.0P4.0/3.0" "
\e$BFsMu
\e(B" "
\e$B$U$?$"$$
\e(B")
75 ("7.5P3.5/4.0" "
\e$B;g
\e(B" "
\e$B$`$i$5$-
\e(B")
76 ("7.5P3.5/6.0" "
\e$BIrF:
\e(B" "
\e$B$($S
\e(B")
77 ("8.5R4.5/4.0" "
\e$B?<Hl
\e(B" "
\e$B$3$-$R
\e(B")
78 ("10PB3.5/10" "
\e$B5K9<
\e(B" "
\e$B$-$-$g$&
\e(B")
79 ("7.5P5.0/8.0" "
\e$BF#
\e(B" "
\e$B$U$8
\e(B")
80 ("5.0RP4.5/14" "
\e$B24C0
\e(B" "
\e$B$\$?$s
\e(B")
81 ("N1.5" "
\e$BKO
\e(B" "
\e$B$9$_
\e(B")
82 ("5.0YR3.0/0.5" "
\e$BKOFK
\e(B" "
\e$B$/$m$D$k$P$_
\e(B")
83 ("2.5YR3.0/0.5" "
\e$Bb%
\e(B" "
\e$B$/$j
\e(B")
84 ("7.5R4.0/0.5" "
\e$BF_
\e(B" "
\e$B$K$S
\e(B")
85 ("5.0B4.0/0.5" "
\e$B@DF_
\e(B" "
\e$B$"$*$K$S
\e(B")
86 ("5.0G4.5/0.5" "
\e$BMx5WAM
\e(B" "
\e$B$j$-$e$&$M$:$_
\e(B")
87 ("5.0GY5.0/0.5" "
\e$B3%
\e(B" "
\e$B$O$$
\e(B")
89 "Munsell color names")
91 (defconst munsell-named-color-alist
96 (let ((color (munsell-convert (car p)))
98 (mapcar (lambda (name) (cons name color)) names)))
99 munsell-color-names-alist))
100 "Munsell named colors")
102 (provide 'munsell-names)