我輩はブロガーではない。ネタもまだない

SASとかDelphiあたりの人様の役に立たないネタを提供します

SASで使用できる色を取得する

SASで使用できる色はレジストリから取得できます。

そのままだと見づらいので、背景色をコントラスト非をチェックして、font colorを白/黒で表示してみました。

filename cllog "%sysfunc(pathname(work))\color.log";
proc printto log=cllog new;run;
proc registry list startat="COLORNAMES";run;
proc printto log=log;run;
data color;
  length color $32 
         hex $4 
         rgb1-rgb2 $10 
         key1-key3 $2 
         r1 r2 r3
         g1 g2 g3
         b1 b2 b3 
         L 
         CW
         Cb 8
         font $10
         ;  
  infile cllog dlm='=, ' missover;
  input color $ hex $ key1 $ key2 $ key3 $;
  if hex='hex:';
  rgb1='CX'||key1||key2||key3;
  rgb2='#'||key1||key2||key3;
  r1=input(key1,hex2.);
  g1=input(key2,hex2.);
  b1=input(key3,hex2.);
  r2=r1/255;
  g2=g1/255;
  b2=b1/255;
  if r2<=0.03928 then r3=r2/12.92;else r3=((r2+0.055)/1.055) ** 2.4;
  if g2<=0.03928 then g3=g2/12.92;else g3=((g2+0.055)/1.055) ** 2.4;
  if b2<=0.03928 then b3=b2/12.92;else b3=((b2+0.055)/1.055) ** 2.4;
  L=0.2126 * R3 + 0.7152 * G3 + 0.0722 * B3; 
  Cw=(1 + 0.05) / (L + 0.05);
  Cb=(L + 0.05) / (0 + 0.05);
  if Cw<Cb then font='black'; else font='white';
run;
filename cllog;
proc sort data=color; by rgb1; run; proc report data=work.color nowd; column color rgb1 rgb2 font; define color / display; define font / display; compute color; call define(_row_,"style","style={background="||strip(color)||"}"); endcomp; compute font; call define(_row_,"style/merge","style={foreground="||strip(font)||"}"); endcomp; run;

 

              
SAS システム

color rgb1 rgb2 font
Black CX000000 #000000 white
Navy CX000080 #000080 white
DarkBlue CX00008B #00008B white
MediumBlue CX0000CD #0000CD white
Blue CX0000FF #0000FF white
DarkGreen CX006400 #006400 white
G CX008000 #008000 white
Green CX008000 #008000 white
Teal CX008080 #008080 white
DarkCyan CX008B8B #008B8B black
DeepSkyBlue CX00BFFF #00BFFF black
DarkTurquoise CX00CED1 #00CED1 black
MediumSpringGreen CX00FA9A #00FA9A black
Lime CX00FF00 #00FF00 black
SpringGreen CX00FF7F #00FF7F black
Aqua CX00FFFF #00FFFF black
Cyan CX00FFFF #00FFFF black
MidnightBlue CX191970 #191970 white
DodgerBlue CX1E90FF #1E90FF black
LightSeaGreen CX20B2AA #20B2AA black
ForestGreen CX228B22 #228B22 black
SeaGreen CX2E8B57 #2E8B57 black
DarkSlateGrey CX2F2F2F #2F2F2F white
DarkSlateGray CX2F4F4F #2F4F4F white
LimeGreen CX32CD32 #32CD32 black
MediumSeaGreen CX3CB371 #3CB371 black
Turquoise CX40E0D0 #40E0D0 black
RoyalBlue CX4169E1 #4169E1 white
SteelBlue CX4682B4 #4682B4 black
DarkSlateBlue CX483D8B #483D8B white
MediumTurquoise CX48D1CC #48D1CC black
Indigo CX4B0082 #4B0082 white
DarkOliveGreen CX556B2F #556B2F white
CadetBlue CX5F9EA0 #5F9EA0 black
CornFlowerBlue CX6495ED #6495ED black
MediumAquamarine CX66CDAA #66CDAA black
DimGray CX696969 #696969 white
DimGrey CX696969 #696969 white
SlateBlue CX6A5ACD #6A5ACD white
OliveDrab CX6B8E23 #6B8E23 black
SlateGray CX708090 #708090 black
SlateGrey CX708090 #708090 black
LightSlateGray CX778899 #778899 black
LightSlateGrey CX778899 #778899 black
MediumSlateBlue CX7B68EE #7B68EE black
LawnGreen CX7CFC00 #7CFC00 black
Aquamarine CX7FFDD4 #7FFDD4 black
Chartreuse CX7FFF00 #7FFF00 black
Maroon CX800000 #800000 white
P CX800080 #800080 white
Purple CX800080 #800080 white
Olive CX808000 #808000 black
Gray CX808080 #808080 black
Grey CX808080 #808080 black
SkyBlue CX87CEEB #87CEEB black
LightSkyBlue CX87CEFA #87CEFA black
BlueViolet CX8A2BE2 #8A2BE2 white
DarkRed CX8B0000 #8B0000 white
DarkMagenta CX8B008B #8B008B white
SaddleBrown CX8B4513 #8B4513 white
DarkSeaGreen CX8FBC8F #8FBC8F black
LightGreen CX90EE90 #90EE90 black
MediumPurple CX9370DB #9370DB black
DarkViolet CX9400D3 #9400D3 white
PaleGreen CX98FB98 #98FB98 black
DarkOrchid CX9932CC #9932CC white
YellowGreen CX9ACD32 #9ACD32 black
Sienna CXA0522D #A0522D white
BR CXA52A2A #A52A2A white
Brown CXA52A2A #A52A2A white
DarkGray CXA9A9A9 #A9A9A9 black
DarkGrey CXA9A9A9 #A9A9A9 black
LightBlue CXADD8E6 #ADD8E6 black
GreenYellow CXADFF2F #ADFF2F black
PaleTurquoise CXAFEEEE #AFEEEE black
LightSteelBlue CXB0C4DE #B0C4DE black
PowderBlue CXB0E0E6 #B0E0E6 black
FireBrick CXB22222 #B22222 white
DarkGoldenrod CXB8860B #B8860B black
MediumOrchid CXBA55D3 #BA55D3 black
RosyBrown CXBC8F8F #BC8F8F black
DarkKhaki CXBDB76B #BDB76B black
Silver CXC0C0C0 #C0C0C0 black
MediumVioletRed CXC71585 #C71585 white
IndianRed CXCD5C5C #CD5C5C black
Peru CXCD853F #CD853F black
Chocolate CXD2691E #D2691E black
Tan CXD2B48C #D2B48C black
lightGray CXD3D3D3 #D3D3D3 black
LightGrey CXD3D3D3 #D3D3D3 black
Thistle CXD8BFD8 #D8BFD8 black
Orchid CXDA70D6 #DA70D6 black
Goldenrod CXDAA520 #DAA520 black
PaleVioletRed CXDB7093 #DB7093 black
Crimson CXDC143C #DC143C white
Gainsboro CXDCDCDC #DCDCDC black
Plum CXDDA0DD #DDA0DD black
Burlywood CXDEB887 #DEB887 black
LightCyan CXE0FFFF #E0FFFF black
Lavender CXE6E6FA #E6E6FA black
DarkSalmon CXE9967A #E9967A black
Violet CXEE82EE #EE82EE black
PaleGoldenrod CXEEE8AA #EEE8AA black
LightCoral CXF08080 #F08080 black
Khaki CXF0E68C #F0E68C black
AliceBlue CXF0F8FF #F0F8FF black
Honeydew CXF0FFF0 #F0FFF0 black
Azure CXF0FFFF #F0FFFF black
SandyBrown CXF4A460 #F4A460 black
Wheat CXF5DEB3 #F5DEB3 black
Beige CXF5F5DC #F5F5DC black
WhiteSmoke CXF5F5F5 #F5F5F5 black
MintCream CXF5FFFA #F5FFFA black
GhostWhite CXF8F8FF #F8F8FF black
Salmon CXFA8072 #FA8072 black
AntiqueWhite CXFAEBD7 #FAEBD7 black
Linen CXFAF0E6 #FAF0E6 black
LightGoldenrodYellow CXFAFAD2 #FAFAD2 black
Oldlace CXFDF5E6 #FDF5E6 black
Red CXFF0000 #FF0000 black
Fuchsia CXFF00FF #FF00FF black
Magenta CXFF00FF #FF00FF black
DeepPink CXFF1493 #FF1493 black
OrangeRed CXFF4500 #FF4500 black
Tomato CXFF6347 #FF6347 black
HotPink CXFF69B4 #FF69B4 black
Coral CXFF7F50 #FF7F50 black
DarkOrange CXFF8C00 #FF8C00 black
LightSalmon CXFFA07A #FFA07A black
O CXFFA500 #FFA500 black
Orange CXFFA500 #FFA500 black
LightPink CXFFB6C1 #FFB6C1 black
Pink CXFFC0CB #FFC0CB black
Gold CXFFD700 #FFD700 black
Peachpuff CXFFDAB9 #FFDAB9 black
NavajoWhite CXFFDEAD #FFDEAD black
Moccasin CXFFE4B5 #FFE4B5 black
Bisque CXFFE4C4 #FFE4C4 black
MistyRose CXFFE4E1 #FFE4E1 black
BlanchedAlmond CXFFEBCD #FFEBCD black
PapayaWhip CXFFEFD5 #FFEFD5 black
LavenderBlush CXFFF0F5 #FFF0F5 black
Seashell CXFFF5EE #FFF5EE black
Cornsilk CXFFF8DC #FFF8DC black
LemonChiffon CXFFFACD #FFFACD black
FloralWhite CXFFFAF0 #FFFAF0 black
Snow CXFFFAFA #FFFAFA black
Yellow CXFFFF00 #FFFF00 black
LightYellow CXFFFFE0 #FFFFE0 black
Ivory CXFFFFF0 #FFFFF0 black
White CXFFFFFF #FFFFFF black

 

ODS Excelで使用できるcolor指定を調べているついでに書いてみました。

 

(9/25追記)公式にあったー(汗)

Predefined Colors