munsell-names.el

   1 ;; -*- coding: iso-2022-7bit; -*-
   2
   3 (require 'munsell-conv)
   4
   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")
  88     )
  89   "Munsell color names")
  90
  91 (defconst munsell-named-color-alist
  92   (apply
  93    'append
  94    (mapcar
  95     (lambda (p)
  96       (let ((color (munsell-convert (car p)))
  97             (names (cdr p)))
  98         (mapcar (lambda (name) (cons name color)) names)))
  99     munsell-color-names-alist))
 100   "Munsell named colors")
 101
 102 (provide 'munsell-names)