The R Project SVN
R
(root)/branches/tools4pkgs/src/library/grDevices/src/colors.c – Rev 71686
Rev 70927 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
/** R : A Computer Language for Statistical Data Analysis* Copyright (C) 1997-2014 The R Core Team* Copyright (C) 2003 The R Foundation** This program is free software; you can redistribute it and/or modify* it under the terms of the GNU General Public License as published by* the Free Software Foundation; either version 2 of the License, or* (at your option) any later version.** This program is distributed in the hope that it will be useful,* but WITHOUT ANY WARRANTY; without even the implied warranty of* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the* GNU General Public License for more details.** You should have received a copy of the GNU General Public License* along with this program; if not, a copy is available at* https://www.R-project.org/Licenses/*//* This should be regarded as part of the graphics engine */#ifdef HAVE_CONFIG_H#include <config.h>#endif#include <Defn.h>#include <R_ext/GraphicsEngine.h>#include "grDevices.h"static char ColBuf[10];static char HexDigits[] = "0123456789ABCDEF";staticchar *RGB2rgb(unsigned int r, unsigned int g, unsigned int b){ColBuf[0] = '#';ColBuf[1] = HexDigits[(r >> 4) & 15];ColBuf[2] = HexDigits[r & 15];ColBuf[3] = HexDigits[(g >> 4) & 15];ColBuf[4] = HexDigits[g & 15];ColBuf[5] = HexDigits[(b >> 4) & 15];ColBuf[6] = HexDigits[b & 15];ColBuf[7] = '\0';return &ColBuf[0];}staticchar *RGBA2rgb(unsigned int r, unsigned int g, unsigned int b, unsigned int a){ColBuf[0] = '#';ColBuf[1] = HexDigits[(r >> 4) & 15];ColBuf[2] = HexDigits[r & 15];ColBuf[3] = HexDigits[(g >> 4) & 15];ColBuf[4] = HexDigits[g & 15];ColBuf[5] = HexDigits[(b >> 4) & 15];ColBuf[6] = HexDigits[b & 15];ColBuf[7] = HexDigits[(a >> 4) & 15];ColBuf[8] = HexDigits[a & 15];ColBuf[9] = '\0';return &ColBuf[0];}static unsigned int ScaleColor(double x){if (ISNA(x))error(_("color intensity %s, not in [0,1]"), "NA");if (!R_FINITE(x) || x < 0.0 || x > 1.0)error(_("color intensity %g, not in [0,1]"), x);return (unsigned int)(255*x + 0.5);}static unsigned int CheckColor(int x){if (x == NA_INTEGER)error(_("color intensity %s, not in 0:255"), "NA");if (x < 0 || x > 255)error(_("color intensity %d, not in 0:255"), x);return (unsigned int)x;}static unsigned int ScaleAlpha(double x){if (ISNA(x))error(_("alpha level %s, not in [0,1]"), "NA");if (!R_FINITE(x) || x < 0.0 || x > 1.0)error(_("alpha level %g, not in [0,1]"), x);return (unsigned int)(255*x + 0.5);}static unsigned int CheckAlpha(int x){if (x == NA_INTEGER)error(_("alpha level %s, not in 0:255"), "NA");if (x < 0 || x > 255)error(_("alpha level %d, not in 0:255"), x);return (unsigned int)x;}/* hsv2rgb -- HSV to RGB conversion *//* Based on HSV_TO_RGB from Foley and Van Dam First Ed. Page 616 *//* See Alvy Ray Smith, Color Gamut Transform Pairs, SIGGRAPH '78 */static void hsv2rgb(double h, double s, double v,double *r, double *g, double *b){double f, p, q, t;int i;if (!R_FINITE(h) || !R_FINITE(s) || !R_FINITE(v))error(_("inputs must be finite"));f = modf(h * 6.0, &t);i = ((int) t) % 6;p = v * (1 - s);q = v * (1 - s * f);t = v * (1 - (s * (1 - f)));switch (i) {case 0: *r = v; *g = t; *b = p; break;case 1: *r = q; *g = v; *b = p; break;case 2: *r = p; *g = v; *b = t; break;case 3: *r = p; *g = q; *b = v; break;case 4: *r = t; *g = p; *b = v; break;case 5: *r = v; *g = p; *b = q; break;default:error(_("bad hsv to rgb color conversion"));}}/* rgb2hsv() -- the reverse (same reference as above)* this implementation is adapted from code by Nicholas Lewin-Koh.*/static void rgb2hsv(double r, double g, double b,double *h, double *s, double *v)/* all (r,g,b, h,s,v) values in [0,1] */{double min, max, delta;Rboolean r_max = TRUE, b_max = FALSE;/* Compute min(r,g,b) and max(r,g,b) and remember where max is: */min = max = r;if(min > g) { /* g < r */if(b < g)min = b;/* & max = r */else { /* g <= b, g < r */min = g;if(b > r) { max = b; b_max = TRUE; r_max = FALSE; }/* else : g <= b <=r */}} else { /* r <= g */if(b > g) {max = b; b_max = TRUE; r_max = FALSE; /* & min = r */} else { /* b,r <= g */max = g; r_max = FALSE; /* & min = r */if(b < r) min = b; /* else : r <= b <= g */}}*v = max;if( max == 0 || (delta = max - min) == 0) {/* r = g = b : "gray" : s = h = 0 */*s = *h = 0;return;}/* else : */*s = delta / max;if(r_max)*h = ( g - b ) / delta; /* between yellow & magenta */else if(b_max)*h = 4 + ( r - g ) / delta; /* between magenta & cyan */else /* g == max */*h = 2 + ( b - r ) / delta; /* between cyan & yellow*/*h /= 6;if(*h < 0)*h += 1.;return;}SEXP hsv(SEXP h, SEXP s, SEXP v, SEXP a){double hh, ss, vv, aa, r=0., g=0., b=0.; /* -Wall */R_xlen_t i, max, nh, ns, nv, na = 1;PROTECT(h = coerceVector(h,REALSXP));PROTECT(s = coerceVector(s,REALSXP));PROTECT(v = coerceVector(v,REALSXP));if (!isNull(a)) {a = coerceVector(a, REALSXP);na = XLENGTH(a);}PROTECT(a);nh = XLENGTH(h);ns = XLENGTH(s);nv = XLENGTH(v);if (nh <= 0 || ns <= 0 || nv <= 0 || na <= 0) {UNPROTECT(4);return allocVector(STRSXP, 0);}max = nh;if (max < ns) max = ns;if (max < nv) max = nv;if (max < na) max = na;SEXP c = PROTECT(allocVector(STRSXP, max));if(max == 0) {UNPROTECT(5);return(c);}if(isNull(a)) {for (i = 0; i < max; i++) {hh = REAL(h)[i % nh];ss = REAL(s)[i % ns];vv = REAL(v)[i % nv];if (hh < 0 || hh > 1 || ss < 0 || ss > 1 || vv < 0 || vv > 1)error(_("invalid hsv color"));hsv2rgb(hh, ss, vv, &r, &g, &b);SET_STRING_ELT(c, i, mkChar(RGB2rgb(ScaleColor(r), ScaleColor(g),ScaleColor(b))));}} else {for (i = 0; i < max; i++) {hh = REAL(h)[i % nh];ss = REAL(s)[i % ns];vv = REAL(v)[i % nv];aa = REAL(a)[i % na];if (hh < 0 || hh > 1 || ss < 0 || ss > 1 || vv < 0 || vv > 1 ||aa < 0 || aa > 1)error(_("invalid hsv color"));hsv2rgb(hh, ss, vv, &r, &g, &b);SET_STRING_ELT(c, i, mkChar(RGBA2rgb(ScaleColor(r), ScaleColor(g),ScaleColor(b), ScaleAlpha(aa))));}}UNPROTECT(5);return c;}/* D65 White Point */#define WHITE_X 95.047#define WHITE_Y 100.000#define WHITE_Z 108.883#define WHITE_u 0.1978398#define WHITE_v 0.4683363/* Standard CRT Gamma */#define GAMMA 2.4static double gtrans(double u){if (u > 0.00304)return 1.055 * pow(u, (1 / GAMMA)) - 0.055;elsereturn 12.92 * u;}static int FixupColor(int *r, int *g, int *b){int fix = 0;if (*r < 0) { *r = 0; fix = 1; } else if (*r > 255) { *r = 255; fix = 1; }if (*g < 0) { *g = 0; fix = 1; } else if (*g > 255) { *g = 255; fix = 1; }if (*b < 0) { *b = 0; fix = 1; } else if (*b > 255) { *b = 255; fix = 1; }return fix;}static voidhcl2rgb(double h, double c, double l, double *R, double *G, double *B){if (l <= 0.0) {*R = *G = *B = 0.0;return;}double L, U, V;double u, v;double X, Y, Z;/* Step 1 : Convert to CIE-LUV */h = DEG2RAD * h;L = l;U = c * cos(h);V = c * sin(h);/* Step 2 : Convert to CIE-XYZ */if (L <= 0 && U == 0 && V == 0) {X = 0; Y = 0; Z = 0;}else {Y = WHITE_Y * ((L > 7.999592) ? pow((L + 16)/116, 3) : L / 903.3);u = U / (13 * L) + WHITE_u;v = V / (13 * L) + WHITE_v;X = 9.0 * Y * u / (4 * v);Z = - X / 3 - 5 * Y + 3 * Y / v;}/* Step 4 : CIE-XYZ to sRGB */*R = gtrans(( 3.240479 * X - 1.537150 * Y - 0.498535 * Z) / WHITE_Y);*G = gtrans((-0.969256 * X + 1.875992 * Y + 0.041556 * Z) / WHITE_Y);*B = gtrans(( 0.055648 * X - 0.204043 * Y + 1.057311 * Z) / WHITE_Y);}// People call this with non-finite inputs.SEXP hcl(SEXP h, SEXP c, SEXP l, SEXP a, SEXP sfixup){double H, C, L, A, r, g, b;R_xlen_t nh, nc, nl, na = 1, max, i;int ir, ig, ib;int fixup;PROTECT(h = coerceVector(h, REALSXP));PROTECT(c = coerceVector(c, REALSXP));PROTECT(l = coerceVector(l, REALSXP));if (!isNull(a)) {a = coerceVector(a, REALSXP);na = XLENGTH(a);}PROTECT(a);fixup = asLogical(sfixup);nh = XLENGTH(h);nc = XLENGTH(c);nl = XLENGTH(l);if (nh <= 0 || nc <= 0 || nl <= 0 || na <= 0) {UNPROTECT(4);return(allocVector(STRSXP, 0));}max = nh;if (max < nc) max = nc;if (max < nl) max = nl;if (max < na) max = na;SEXP ans = PROTECT(allocVector(STRSXP, max));if (isNull(a)) {for (i = 0; i < max; i++) {H = REAL(h)[i % nh];C = REAL(c)[i % nc];L = REAL(l)[i % nl];if (R_FINITE(H) && R_FINITE(C) && R_FINITE(L)) {if (L < 0 || L > WHITE_Y || C < 0) error(_("invalid hcl color"));hcl2rgb(H, C, L, &r, &g, &b);ir = (int) (255 * r + .5);ig = (int) (255 * g + .5);ib = (int) (255 * b + .5);if (FixupColor(&ir, &ig, &ib) && !fixup)SET_STRING_ELT(ans, i, NA_STRING);elseSET_STRING_ELT(ans, i, mkChar(RGB2rgb(ir, ig, ib)));} else SET_STRING_ELT(ans, i, NA_STRING);}} else {for (i = 0; i < max; i++) {H = REAL(h)[i % nh];C = REAL(c)[i % nc];L = REAL(l)[i % nl];A = REAL(a)[i % na];if (!R_FINITE(A)) A = 1;if (R_FINITE(H) && R_FINITE(C) && R_FINITE(L)) {if (L < 0 || L > WHITE_Y || C < 0 || A < 0 || A > 1)error(_("invalid hcl color"));hcl2rgb(H, C, L, &r, &g, &b);ir = (int) (255 * r + .5);ig = (int) (255 * g + .5);ib = (int) (255 * b + .5);if (FixupColor(&ir, &ig, &ib) && !fixup)SET_STRING_ELT(ans, i, NA_STRING);elseSET_STRING_ELT(ans, i, mkChar(RGBA2rgb(ir, ig, ib,ScaleAlpha(A))));} else SET_STRING_ELT(ans, i, NA_STRING);}}UNPROTECT(5);return ans;}#define _R_set_c_RGB(_R,_G,_B) \{ for (i = 0; i < l_max; i++) \SET_STRING_ELT(c, i, mkChar(RGB2rgb(_R,_G,_B))); }#define _R_set_c_RGBA(_R,_G,_B,_A) \{ for (i = 0; i < l_max; i++) \SET_STRING_ELT(c, i, mkChar(RGBA2rgb(_R,_G,_B,_A))); }SEXP rgb(SEXP r, SEXP g, SEXP b, SEXP a, SEXP MCV, SEXP nam){R_xlen_t i, l_max, nr, ng, nb, na = 1;Rboolean max_1 = FALSE;double mV = asReal(MCV);if(!R_FINITE(mV) || mV == 0.)error(_("invalid value of 'maxColorValue'"));if(mV == 255.) {PROTECT(r = coerceVector(r, INTSXP));PROTECT(g = coerceVector(g, INTSXP));PROTECT(b = coerceVector(b, INTSXP));if(!isNull(a)) a = coerceVector(a, INTSXP);} else {PROTECT(r = coerceVector(r, REALSXP));PROTECT(g = coerceVector(g, REALSXP));PROTECT(b = coerceVector(b, REALSXP));if(!isNull(a)) a = coerceVector(a, REALSXP);max_1 = (mV == 1.);}PROTECT(a);nr = XLENGTH(r); ng = XLENGTH(g); nb = XLENGTH(b);if (!isNull(a)) na = XLENGTH(a);if (nr <= 0 || ng <= 0 || nb <= 0 || na <= 0) {UNPROTECT(4);return allocVector(STRSXP, 0);}l_max = nr;if (l_max < ng) l_max = ng;if (l_max < nb) l_max = nb;if (l_max < na) l_max = na;PROTECT(nam = coerceVector(nam, STRSXP));if (length(nam) != 0 && length(nam) != l_max)error(_("invalid 'names' vector"));SEXP c = PROTECT(allocVector(STRSXP, l_max));if(mV == 255.0) {if(isNull(a)) {_R_set_c_RGB(CheckColor(INTEGER(r)[i%nr]),CheckColor(INTEGER(g)[i%ng]),CheckColor(INTEGER(b)[i%nb]));} else {_R_set_c_RGBA(CheckColor(INTEGER(r)[i%nr]),CheckColor(INTEGER(g)[i%ng]),CheckColor(INTEGER(b)[i%nb]),CheckAlpha(INTEGER(a)[i%na]));}}else if(max_1) {if(isNull(a)) {_R_set_c_RGB(ScaleColor(REAL(r)[i%nr]),ScaleColor(REAL(g)[i%ng]),ScaleColor(REAL(b)[i%nb]));} else {_R_set_c_RGBA(ScaleColor(REAL(r)[i%nr]),ScaleColor(REAL(g)[i%ng]),ScaleColor(REAL(b)[i%nb]),ScaleAlpha(REAL(a)[i%na]));}}else { /* maxColorVal not in {1, 255} */if(isNull(a)) {_R_set_c_RGB(ScaleColor(REAL(r)[i%nr] / mV),ScaleColor(REAL(g)[i%ng] / mV),ScaleColor(REAL(b)[i%nb] / mV));} else {_R_set_c_RGBA(ScaleColor(REAL(r)[i%nr] / mV),ScaleColor(REAL(g)[i%ng] / mV),ScaleColor(REAL(b)[i%nb] / mV),ScaleAlpha(REAL(a)[i%na] / mV));}}if (length(nam) != 0) setAttrib(c, R_NamesSymbol, nam);UNPROTECT(6);return c;}SEXP gray(SEXP lev, SEXP a){SEXP ans;double level;int i, ilevel, nlev;lev = PROTECT(coerceVector(lev,REALSXP));if(!isNull(a)) a = coerceVector(a,REALSXP);PROTECT(a);nlev = LENGTH(lev);PROTECT(ans = allocVector(STRSXP, nlev));if(isNull(a)) {for (i = 0; i < nlev; i++) {level = REAL(lev)[i];if (ISNAN(level) || level < 0 || level > 1)error(_("invalid gray level, must be in [0,1]."));ilevel = (int)(255 * level + 0.5);SET_STRING_ELT(ans, i, mkChar(RGB2rgb(ilevel, ilevel, ilevel)));}} else {int na = length(a);for (i = 0; i < (nlev > na ? nlev : na); i++) {level = REAL(lev)[i % nlev];if (ISNAN(level) || level < 0 || level > 1)error(_("invalid gray level, must be in [0,1]."));ilevel = (int)(255 * level + 0.5);double aa = REAL(a)[i % na];SET_STRING_ELT(ans, i, mkChar(RGBA2rgb(ilevel, ilevel, ilevel,ScaleAlpha(aa))));}}UNPROTECT(3);return ans;}SEXP RGB2hsv(SEXP rgb){/* (r,g,b) -> (h,s,v) conversion */SEXP dd, ans, names, dmns;int n, i, i3;rgb = PROTECT(coerceVector(rgb, REALSXP));if(!isMatrix(rgb)) error("rgb is not a matrix (internally)");dd = getAttrib(rgb, R_DimSymbol);if(INTEGER(dd)[0] != 3) error("rgb must have 3 rows (internally)");n = INTEGER(dd)[1];ans = PROTECT(allocMatrix(REALSXP, 3, n));PROTECT(dmns = allocVector(VECSXP, 2));/* row names: */PROTECT(names = allocVector(STRSXP, 3));SET_STRING_ELT(names, 0, mkChar("h"));SET_STRING_ELT(names, 1, mkChar("s"));SET_STRING_ELT(names, 2, mkChar("v"));SET_VECTOR_ELT(dmns, 0, names);/* column names if input has: */if ((dd = getAttrib(rgb, R_DimNamesSymbol)) != R_NilValue &&(names = VECTOR_ELT(dd, 1)) != R_NilValue)SET_VECTOR_ELT(dmns, 1, names);setAttrib(ans, R_DimNamesSymbol, dmns);UNPROTECT(2);/* names, dmns */for(i = i3 = 0; i < n; i++, i3 += 3) {rgb2hsv(REAL(rgb)[i3+ 0], REAL(rgb)[i3+ 1], REAL(rgb)[i3+ 2],&REAL(ans)[i3+ 0], &REAL(ans)[i3+ 1], &REAL(ans)[i3 +2]);}UNPROTECT(2);return ans;}SEXP col2rgb(SEXP colors, SEXP alpha){SEXP ans, names, dmns;int alph = asLogical(alpha);if(alph == NA_LOGICAL) error(_("invalid '%s' value"), "alpha");switch(TYPEOF(colors)) {case INTSXP:case STRSXP:break;case REALSXP:colors = coerceVector(colors, INTSXP);break;default:colors = coerceVector(colors, STRSXP);break;}PROTECT(colors);int n = LENGTH(colors);/* First set up the output matrix */PROTECT(ans = allocMatrix(INTSXP, 3+alph, n));PROTECT(dmns = allocVector(VECSXP, 2));PROTECT(names = allocVector(STRSXP, 3+alph));SET_STRING_ELT(names, 0, mkChar("red"));SET_STRING_ELT(names, 1, mkChar("green"));SET_STRING_ELT(names, 2, mkChar("blue"));if(alph) SET_STRING_ELT(names, 3, mkChar("alpha"));SET_VECTOR_ELT(dmns, 0, names);if ((names = getAttrib(colors, R_NamesSymbol)) != R_NilValue)SET_VECTOR_ELT(dmns, 1, names);setAttrib(ans, R_DimNamesSymbol, dmns);for(int i = 0, j = 0; i < n; i++) {rcolor icol = inRGBpar3(colors, i, R_TRANWHITE);INTEGER(ans)[j++] = R_RED(icol);INTEGER(ans)[j++] = R_GREEN(icol);INTEGER(ans)[j++] = R_BLUE(icol);if(alph) INTEGER(ans)[j++] = R_ALPHA(icol);}UNPROTECT(4);return ans;}// ------------------ code for tables to export to main executable --------#include <ctype.h> /* for tolower, isdigit */#define MAX_PALETTE_SIZE 1024static int PaletteSize = 8;static rcolor Palette[MAX_PALETTE_SIZE] = {0xff000000,0xff0000ff,0xff00cd00,0xffff0000,0xffffff00,0xffff00ff,0xff00ffff,0xffbebebe};static rcolor Palette0[MAX_PALETTE_SIZE];/* String comparison ignoring case and squeezing out blanks */static int StrMatch(const char *s, const char *t){for(;;) {if(*s == '\0' && *t == '\0') return 1;if(*s == ' ') { s++; continue; }if(*t == ' ') { t++; continue; }if(tolower(*s++) != tolower(*t++)) return 0;}}/** Color Specification** Colors are stored internally in integers. Each integer is* broken into four bytes. The three least significant bytes* are used to contain levels of red, green and blue. These* levels are integers in the range [0,255].** Externally, colors are specified either:** a) by name, using a large table of color names,** b) by RGB values using a string of the form "#rrggbb"* where rr, gg and bb are hex integers giving the level* of red green and blue,** c) as an index into a user setable palette of colors.**//* Default Color Palette *//* Paul Murrell 05/06/02 (2002, probably)* Changed "white" to "grey" in the default palette* in response to user suggestion*/attribute_hiddenconst char *DefaultPalette[] = {"black","red","green3","blue","cyan","magenta","yellow","grey",NULL};/* The Table of Known Color Names *//* Adapted from the X11 RGB database *//* Note: the color "white" was moved to the top of the databaseto avoid its being looked up by col2name as "gray100" */typedefstruct colorDataBaseEntry {char *name; // X11 Color Namechar *rgb; // #RRGGBB String, no longer usedrcolor code; // Internal R Color Code} ColorDataBaseEntry;static ColorDataBaseEntry ColorDataBase[] = {/* name rgb code */{"white", "#FFFFFF", 0xffffffff},{"aliceblue", "#F0F8FF", 0xfffff8f0},{"antiquewhite", "#FAEBD7", 0xffd7ebfa},{"antiquewhite1", "#FFEFDB", 0xffdbefff},{"antiquewhite2", "#EEDFCC", 0xffccdfee},{"antiquewhite3", "#CDC0B0", 0xffb0c0cd},{"antiquewhite4", "#8B8378", 0xff78838b},{"aquamarine", "#7FFFD4", 0xffd4ff7f},{"aquamarine1", "#7FFFD4", 0xffd4ff7f},{"aquamarine2", "#76EEC6", 0xffc6ee76},{"aquamarine3", "#66CDAA", 0xffaacd66},{"aquamarine4", "#458B74", 0xff748b45},{"azure", "#F0FFFF", 0xfffffff0},{"azure1", "#F0FFFF", 0xfffffff0},{"azure2", "#E0EEEE", 0xffeeeee0},{"azure3", "#C1CDCD", 0xffcdcdc1},{"azure4", "#838B8B", 0xff8b8b83},{"beige", "#F5F5DC", 0xffdcf5f5},{"bisque", "#FFE4C4", 0xffc4e4ff},{"bisque1", "#FFE4C4", 0xffc4e4ff},{"bisque2", "#EED5B7", 0xffb7d5ee},{"bisque3", "#CDB79E", 0xff9eb7cd},{"bisque4", "#8B7D6B", 0xff6b7d8b},{"black", "#000000", 0xff000000},{"blanchedalmond", "#FFEBCD", 0xffcdebff},{"blue", "#0000FF", 0xffff0000},{"blue1", "#0000FF", 0xffff0000},{"blue2", "#0000EE", 0xffee0000},{"blue3", "#0000CD", 0xffcd0000},{"blue4", "#00008B", 0xff8b0000},{"blueviolet", "#8A2BE2", 0xffe22b8a},{"brown", "#A52A2A", 0xff2a2aa5},{"brown1", "#FF4040", 0xff4040ff},{"brown2", "#EE3B3B", 0xff3b3bee},{"brown3", "#CD3333", 0xff3333cd},{"brown4", "#8B2323", 0xff23238b},{"burlywood", "#DEB887", 0xff87b8de},{"burlywood1", "#FFD39B", 0xff9bd3ff},{"burlywood2", "#EEC591", 0xff91c5ee},{"burlywood3", "#CDAA7D", 0xff7daacd},{"burlywood4", "#8B7355", 0xff55738b},{"cadetblue", "#5F9EA0", 0xffa09e5f},{"cadetblue1", "#98F5FF", 0xfffff598},{"cadetblue2", "#8EE5EE", 0xffeee58e},{"cadetblue3", "#7AC5CD", 0xffcdc57a},{"cadetblue4", "#53868B", 0xff8b8653},{"chartreuse", "#7FFF00", 0xff00ff7f},{"chartreuse1", "#7FFF00", 0xff00ff7f},{"chartreuse2", "#76EE00", 0xff00ee76},{"chartreuse3", "#66CD00", 0xff00cd66},{"chartreuse4", "#458B00", 0xff008b45},{"chocolate", "#D2691E", 0xff1e69d2},{"chocolate1", "#FF7F24", 0xff247fff},{"chocolate2", "#EE7621", 0xff2176ee},{"chocolate3", "#CD661D", 0xff1d66cd},{"chocolate4", "#8B4513", 0xff13458b},{"coral", "#FF7F50", 0xff507fff},{"coral1", "#FF7256", 0xff5672ff},{"coral2", "#EE6A50", 0xff506aee},{"coral3", "#CD5B45", 0xff455bcd},{"coral4", "#8B3E2F", 0xff2f3e8b},{"cornflowerblue", "#6495ED", 0xffed9564},{"cornsilk", "#FFF8DC", 0xffdcf8ff},{"cornsilk1", "#FFF8DC", 0xffdcf8ff},{"cornsilk2", "#EEE8CD", 0xffcde8ee},{"cornsilk3", "#CDC8B1", 0xffb1c8cd},{"cornsilk4", "#8B8878", 0xff78888b},{"cyan", "#00FFFF", 0xffffff00},{"cyan1", "#00FFFF", 0xffffff00},{"cyan2", "#00EEEE", 0xffeeee00},{"cyan3", "#00CDCD", 0xffcdcd00},{"cyan4", "#008B8B", 0xff8b8b00},{"darkblue", "#00008B", 0xff8b0000},{"darkcyan", "#008B8B", 0xff8b8b00},{"darkgoldenrod", "#B8860B", 0xff0b86b8},{"darkgoldenrod1", "#FFB90F", 0xff0fb9ff},{"darkgoldenrod2", "#EEAD0E", 0xff0eadee},{"darkgoldenrod3", "#CD950C", 0xff0c95cd},{"darkgoldenrod4", "#8B6508", 0xff08658b},{"darkgray", "#A9A9A9", 0xffa9a9a9},{"darkgreen", "#006400", 0xff006400},{"darkgrey", "#A9A9A9", 0xffa9a9a9},{"darkkhaki", "#BDB76B", 0xff6bb7bd},{"darkmagenta", "#8B008B", 0xff8b008b},{"darkolivegreen", "#556B2F", 0xff2f6b55},{"darkolivegreen1", "#CAFF70", 0xff70ffca},{"darkolivegreen2", "#BCEE68", 0xff68eebc},{"darkolivegreen3", "#A2CD5A", 0xff5acda2},{"darkolivegreen4", "#6E8B3D", 0xff3d8b6e},{"darkorange", "#FF8C00", 0xff008cff},{"darkorange1", "#FF7F00", 0xff007fff},{"darkorange2", "#EE7600", 0xff0076ee},{"darkorange3", "#CD6600", 0xff0066cd},{"darkorange4", "#8B4500", 0xff00458b},{"darkorchid", "#9932CC", 0xffcc3299},{"darkorchid1", "#BF3EFF", 0xffff3ebf},{"darkorchid2", "#B23AEE", 0xffee3ab2},{"darkorchid3", "#9A32CD", 0xffcd329a},{"darkorchid4", "#68228B", 0xff8b2268},{"darkred", "#8B0000", 0xff00008b},{"darksalmon", "#E9967A", 0xff7a96e9},{"darkseagreen", "#8FBC8F", 0xff8fbc8f},{"darkseagreen1", "#C1FFC1", 0xffc1ffc1},{"darkseagreen2", "#B4EEB4", 0xffb4eeb4},{"darkseagreen3", "#9BCD9B", 0xff9bcd9b},{"darkseagreen4", "#698B69", 0xff698b69},{"darkslateblue", "#483D8B", 0xff8b3d48},{"darkslategray", "#2F4F4F", 0xff4f4f2f},{"darkslategray1", "#97FFFF", 0xffffff97},{"darkslategray2", "#8DEEEE", 0xffeeee8d},{"darkslategray3", "#79CDCD", 0xffcdcd79},{"darkslategray4", "#528B8B", 0xff8b8b52},{"darkslategrey", "#2F4F4F", 0xff4f4f2f},{"darkturquoise", "#00CED1", 0xffd1ce00},{"darkviolet", "#9400D3", 0xffd30094},{"deeppink", "#FF1493", 0xff9314ff},{"deeppink1", "#FF1493", 0xff9314ff},{"deeppink2", "#EE1289", 0xff8912ee},{"deeppink3", "#CD1076", 0xff7610cd},{"deeppink4", "#8B0A50", 0xff500a8b},{"deepskyblue", "#00BFFF", 0xffffbf00},{"deepskyblue1", "#00BFFF", 0xffffbf00},{"deepskyblue2", "#00B2EE", 0xffeeb200},{"deepskyblue3", "#009ACD", 0xffcd9a00},{"deepskyblue4", "#00688B", 0xff8b6800},{"dimgray", "#696969", 0xff696969},{"dimgrey", "#696969", 0xff696969},{"dodgerblue", "#1E90FF", 0xffff901e},{"dodgerblue1", "#1E90FF", 0xffff901e},{"dodgerblue2", "#1C86EE", 0xffee861c},{"dodgerblue3", "#1874CD", 0xffcd7418},{"dodgerblue4", "#104E8B", 0xff8b4e10},{"firebrick", "#B22222", 0xff2222b2},{"firebrick1", "#FF3030", 0xff3030ff},{"firebrick2", "#EE2C2C", 0xff2c2cee},{"firebrick3", "#CD2626", 0xff2626cd},{"firebrick4", "#8B1A1A", 0xff1a1a8b},{"floralwhite", "#FFFAF0", 0xfff0faff},{"forestgreen", "#228B22", 0xff228b22},{"gainsboro", "#DCDCDC", 0xffdcdcdc},{"ghostwhite", "#F8F8FF", 0xfffff8f8},{"gold", "#FFD700", 0xff00d7ff},{"gold1", "#FFD700", 0xff00d7ff},{"gold2", "#EEC900", 0xff00c9ee},{"gold3", "#CDAD00", 0xff00adcd},{"gold4", "#8B7500", 0xff00758b},{"goldenrod", "#DAA520", 0xff20a5da},{"goldenrod1", "#FFC125", 0xff25c1ff},{"goldenrod2", "#EEB422", 0xff22b4ee},{"goldenrod3", "#CD9B1D", 0xff1d9bcd},{"goldenrod4", "#8B6914", 0xff14698b},{"gray", "#BEBEBE", 0xffbebebe},{"gray0", "#000000", 0xff000000},{"gray1", "#030303", 0xff030303},{"gray2", "#050505", 0xff050505},{"gray3", "#080808", 0xff080808},{"gray4", "#0A0A0A", 0xff0a0a0a},{"gray5", "#0D0D0D", 0xff0d0d0d},{"gray6", "#0F0F0F", 0xff0f0f0f},{"gray7", "#121212", 0xff121212},{"gray8", "#141414", 0xff141414},{"gray9", "#171717", 0xff171717},{"gray10", "#1A1A1A", 0xff1a1a1a},{"gray11", "#1C1C1C", 0xff1c1c1c},{"gray12", "#1F1F1F", 0xff1f1f1f},{"gray13", "#212121", 0xff212121},{"gray14", "#242424", 0xff242424},{"gray15", "#262626", 0xff262626},{"gray16", "#292929", 0xff292929},{"gray17", "#2B2B2B", 0xff2b2b2b},{"gray18", "#2E2E2E", 0xff2e2e2e},{"gray19", "#303030", 0xff303030},{"gray20", "#333333", 0xff333333},{"gray21", "#363636", 0xff363636},{"gray22", "#383838", 0xff383838},{"gray23", "#3B3B3B", 0xff3b3b3b},{"gray24", "#3D3D3D", 0xff3d3d3d},{"gray25", "#404040", 0xff404040},{"gray26", "#424242", 0xff424242},{"gray27", "#454545", 0xff454545},{"gray28", "#474747", 0xff474747},{"gray29", "#4A4A4A", 0xff4a4a4a},{"gray30", "#4D4D4D", 0xff4d4d4d},{"gray31", "#4F4F4F", 0xff4f4f4f},{"gray32", "#525252", 0xff525252},{"gray33", "#545454", 0xff545454},{"gray34", "#575757", 0xff575757},{"gray35", "#595959", 0xff595959},{"gray36", "#5C5C5C", 0xff5c5c5c},{"gray37", "#5E5E5E", 0xff5e5e5e},{"gray38", "#616161", 0xff616161},{"gray39", "#636363", 0xff636363},{"gray40", "#666666", 0xff666666},{"gray41", "#696969", 0xff696969},{"gray42", "#6B6B6B", 0xff6b6b6b},{"gray43", "#6E6E6E", 0xff6e6e6e},{"gray44", "#707070", 0xff707070},{"gray45", "#737373", 0xff737373},{"gray46", "#757575", 0xff757575},{"gray47", "#787878", 0xff787878},{"gray48", "#7A7A7A", 0xff7a7a7a},{"gray49", "#7D7D7D", 0xff7d7d7d},{"gray50", "#7F7F7F", 0xff7f7f7f},{"gray51", "#828282", 0xff828282},{"gray52", "#858585", 0xff858585},{"gray53", "#878787", 0xff878787},{"gray54", "#8A8A8A", 0xff8a8a8a},{"gray55", "#8C8C8C", 0xff8c8c8c},{"gray56", "#8F8F8F", 0xff8f8f8f},{"gray57", "#919191", 0xff919191},{"gray58", "#949494", 0xff949494},{"gray59", "#969696", 0xff969696},{"gray60", "#999999", 0xff999999},{"gray61", "#9C9C9C", 0xff9c9c9c},{"gray62", "#9E9E9E", 0xff9e9e9e},{"gray63", "#A1A1A1", 0xffa1a1a1},{"gray64", "#A3A3A3", 0xffa3a3a3},{"gray65", "#A6A6A6", 0xffa6a6a6},{"gray66", "#A8A8A8", 0xffa8a8a8},{"gray67", "#ABABAB", 0xffababab},{"gray68", "#ADADAD", 0xffadadad},{"gray69", "#B0B0B0", 0xffb0b0b0},{"gray70", "#B3B3B3", 0xffb3b3b3},{"gray71", "#B5B5B5", 0xffb5b5b5},{"gray72", "#B8B8B8", 0xffb8b8b8},{"gray73", "#BABABA", 0xffbababa},{"gray74", "#BDBDBD", 0xffbdbdbd},{"gray75", "#BFBFBF", 0xffbfbfbf},{"gray76", "#C2C2C2", 0xffc2c2c2},{"gray77", "#C4C4C4", 0xffc4c4c4},{"gray78", "#C7C7C7", 0xffc7c7c7},{"gray79", "#C9C9C9", 0xffc9c9c9},{"gray80", "#CCCCCC", 0xffcccccc},{"gray81", "#CFCFCF", 0xffcfcfcf},{"gray82", "#D1D1D1", 0xffd1d1d1},{"gray83", "#D4D4D4", 0xffd4d4d4},{"gray84", "#D6D6D6", 0xffd6d6d6},{"gray85", "#D9D9D9", 0xffd9d9d9},{"gray86", "#DBDBDB", 0xffdbdbdb},{"gray87", "#DEDEDE", 0xffdedede},{"gray88", "#E0E0E0", 0xffe0e0e0},{"gray89", "#E3E3E3", 0xffe3e3e3},{"gray90", "#E5E5E5", 0xffe5e5e5},{"gray91", "#E8E8E8", 0xffe8e8e8},{"gray92", "#EBEBEB", 0xffebebeb},{"gray93", "#EDEDED", 0xffededed},{"gray94", "#F0F0F0", 0xfff0f0f0},{"gray95", "#F2F2F2", 0xfff2f2f2},{"gray96", "#F5F5F5", 0xfff5f5f5},{"gray97", "#F7F7F7", 0xfff7f7f7},{"gray98", "#FAFAFA", 0xfffafafa},{"gray99", "#FCFCFC", 0xfffcfcfc},{"gray100", "#FFFFFF", 0xffffffff},{"green", "#00FF00", 0xff00ff00},{"green1", "#00FF00", 0xff00ff00},{"green2", "#00EE00", 0xff00ee00},{"green3", "#00CD00", 0xff00cd00},{"green4", "#008B00", 0xff008b00},{"greenyellow", "#ADFF2F", 0xff2fffad},{"grey", "#BEBEBE", 0xffbebebe},{"grey0", "#000000", 0xff000000},{"grey1", "#030303", 0xff030303},{"grey2", "#050505", 0xff050505},{"grey3", "#080808", 0xff080808},{"grey4", "#0A0A0A", 0xff0a0a0a},{"grey5", "#0D0D0D", 0xff0d0d0d},{"grey6", "#0F0F0F", 0xff0f0f0f},{"grey7", "#121212", 0xff121212},{"grey8", "#141414", 0xff141414},{"grey9", "#171717", 0xff171717},{"grey10", "#1A1A1A", 0xff1a1a1a},{"grey11", "#1C1C1C", 0xff1c1c1c},{"grey12", "#1F1F1F", 0xff1f1f1f},{"grey13", "#212121", 0xff212121},{"grey14", "#242424", 0xff242424},{"grey15", "#262626", 0xff262626},{"grey16", "#292929", 0xff292929},{"grey17", "#2B2B2B", 0xff2b2b2b},{"grey18", "#2E2E2E", 0xff2e2e2e},{"grey19", "#303030", 0xff303030},{"grey20", "#333333", 0xff333333},{"grey21", "#363636", 0xff363636},{"grey22", "#383838", 0xff383838},{"grey23", "#3B3B3B", 0xff3b3b3b},{"grey24", "#3D3D3D", 0xff3d3d3d},{"grey25", "#404040", 0xff404040},{"grey26", "#424242", 0xff424242},{"grey27", "#454545", 0xff454545},{"grey28", "#474747", 0xff474747},{"grey29", "#4A4A4A", 0xff4a4a4a},{"grey30", "#4D4D4D", 0xff4d4d4d},{"grey31", "#4F4F4F", 0xff4f4f4f},{"grey32", "#525252", 0xff525252},{"grey33", "#545454", 0xff545454},{"grey34", "#575757", 0xff575757},{"grey35", "#595959", 0xff595959},{"grey36", "#5C5C5C", 0xff5c5c5c},{"grey37", "#5E5E5E", 0xff5e5e5e},{"grey38", "#616161", 0xff616161},{"grey39", "#636363", 0xff636363},{"grey40", "#666666", 0xff666666},{"grey41", "#696969", 0xff696969},{"grey42", "#6B6B6B", 0xff6b6b6b},{"grey43", "#6E6E6E", 0xff6e6e6e},{"grey44", "#707070", 0xff707070},{"grey45", "#737373", 0xff737373},{"grey46", "#757575", 0xff757575},{"grey47", "#787878", 0xff787878},{"grey48", "#7A7A7A", 0xff7a7a7a},{"grey49", "#7D7D7D", 0xff7d7d7d},{"grey50", "#7F7F7F", 0xff7f7f7f},{"grey51", "#828282", 0xff828282},{"grey52", "#858585", 0xff858585},{"grey53", "#878787", 0xff878787},{"grey54", "#8A8A8A", 0xff8a8a8a},{"grey55", "#8C8C8C", 0xff8c8c8c},{"grey56", "#8F8F8F", 0xff8f8f8f},{"grey57", "#919191", 0xff919191},{"grey58", "#949494", 0xff949494},{"grey59", "#969696", 0xff969696},{"grey60", "#999999", 0xff999999},{"grey61", "#9C9C9C", 0xff9c9c9c},{"grey62", "#9E9E9E", 0xff9e9e9e},{"grey63", "#A1A1A1", 0xffa1a1a1},{"grey64", "#A3A3A3", 0xffa3a3a3},{"grey65", "#A6A6A6", 0xffa6a6a6},{"grey66", "#A8A8A8", 0xffa8a8a8},{"grey67", "#ABABAB", 0xffababab},{"grey68", "#ADADAD", 0xffadadad},{"grey69", "#B0B0B0", 0xffb0b0b0},{"grey70", "#B3B3B3", 0xffb3b3b3},{"grey71", "#B5B5B5", 0xffb5b5b5},{"grey72", "#B8B8B8", 0xffb8b8b8},{"grey73", "#BABABA", 0xffbababa},{"grey74", "#BDBDBD", 0xffbdbdbd},{"grey75", "#BFBFBF", 0xffbfbfbf},{"grey76", "#C2C2C2", 0xffc2c2c2},{"grey77", "#C4C4C4", 0xffc4c4c4},{"grey78", "#C7C7C7", 0xffc7c7c7},{"grey79", "#C9C9C9", 0xffc9c9c9},{"grey80", "#CCCCCC", 0xffcccccc},{"grey81", "#CFCFCF", 0xffcfcfcf},{"grey82", "#D1D1D1", 0xffd1d1d1},{"grey83", "#D4D4D4", 0xffd4d4d4},{"grey84", "#D6D6D6", 0xffd6d6d6},{"grey85", "#D9D9D9", 0xffd9d9d9},{"grey86", "#DBDBDB", 0xffdbdbdb},{"grey87", "#DEDEDE", 0xffdedede},{"grey88", "#E0E0E0", 0xffe0e0e0},{"grey89", "#E3E3E3", 0xffe3e3e3},{"grey90", "#E5E5E5", 0xffe5e5e5},{"grey91", "#E8E8E8", 0xffe8e8e8},{"grey92", "#EBEBEB", 0xffebebeb},{"grey93", "#EDEDED", 0xffededed},{"grey94", "#F0F0F0", 0xfff0f0f0},{"grey95", "#F2F2F2", 0xfff2f2f2},{"grey96", "#F5F5F5", 0xfff5f5f5},{"grey97", "#F7F7F7", 0xfff7f7f7},{"grey98", "#FAFAFA", 0xfffafafa},{"grey99", "#FCFCFC", 0xfffcfcfc},{"grey100", "#FFFFFF", 0xffffffff},{"honeydew", "#F0FFF0", 0xfff0fff0},{"honeydew1", "#F0FFF0", 0xfff0fff0},{"honeydew2", "#E0EEE0", 0xffe0eee0},{"honeydew3", "#C1CDC1", 0xffc1cdc1},{"honeydew4", "#838B83", 0xff838b83},{"hotpink", "#FF69B4", 0xffb469ff},{"hotpink1", "#FF6EB4", 0xffb46eff},{"hotpink2", "#EE6AA7", 0xffa76aee},{"hotpink3", "#CD6090", 0xff9060cd},{"hotpink4", "#8B3A62", 0xff623a8b},{"indianred", "#CD5C5C", 0xff5c5ccd},{"indianred1", "#FF6A6A", 0xff6a6aff},{"indianred2", "#EE6363", 0xff6363ee},{"indianred3", "#CD5555", 0xff5555cd},{"indianred4", "#8B3A3A", 0xff3a3a8b},{"ivory", "#FFFFF0", 0xfff0ffff},{"ivory1", "#FFFFF0", 0xfff0ffff},{"ivory2", "#EEEEE0", 0xffe0eeee},{"ivory3", "#CDCDC1", 0xffc1cdcd},{"ivory4", "#8B8B83", 0xff838b8b},{"khaki", "#F0E68C", 0xff8ce6f0},{"khaki1", "#FFF68F", 0xff8ff6ff},{"khaki2", "#EEE685", 0xff85e6ee},{"khaki3", "#CDC673", 0xff73c6cd},{"khaki4", "#8B864E", 0xff4e868b},{"lavender", "#E6E6FA", 0xfffae6e6},{"lavenderblush", "#FFF0F5", 0xfff5f0ff},{"lavenderblush1", "#FFF0F5", 0xfff5f0ff},{"lavenderblush2", "#EEE0E5", 0xffe5e0ee},{"lavenderblush3", "#CDC1C5", 0xffc5c1cd},{"lavenderblush4", "#8B8386", 0xff86838b},{"lawngreen", "#7CFC00", 0xff00fc7c},{"lemonchiffon", "#FFFACD", 0xffcdfaff},{"lemonchiffon1", "#FFFACD", 0xffcdfaff},{"lemonchiffon2", "#EEE9BF", 0xffbfe9ee},{"lemonchiffon3", "#CDC9A5", 0xffa5c9cd},{"lemonchiffon4", "#8B8970", 0xff70898b},{"lightblue", "#ADD8E6", 0xffe6d8ad},{"lightblue1", "#BFEFFF", 0xffffefbf},{"lightblue2", "#B2DFEE", 0xffeedfb2},{"lightblue3", "#9AC0CD", 0xffcdc09a},{"lightblue4", "#68838B", 0xff8b8368},{"lightcoral", "#F08080", 0xff8080f0},{"lightcyan", "#E0FFFF", 0xffffffe0},{"lightcyan1", "#E0FFFF", 0xffffffe0},{"lightcyan2", "#D1EEEE", 0xffeeeed1},{"lightcyan3", "#B4CDCD", 0xffcdcdb4},{"lightcyan4", "#7A8B8B", 0xff8b8b7a},{"lightgoldenrod", "#EEDD82", 0xff82ddee},{"lightgoldenrod1", "#FFEC8B", 0xff8becff},{"lightgoldenrod2", "#EEDC82", 0xff82dcee},{"lightgoldenrod3", "#CDBE70", 0xff70becd},{"lightgoldenrod4", "#8B814C", 0xff4c818b},{"lightgoldenrodyellow", "#FAFAD2", 0xffd2fafa},{"lightgray", "#D3D3D3", 0xffd3d3d3},{"lightgreen", "#90EE90", 0xff90ee90},{"lightgrey", "#D3D3D3", 0xffd3d3d3},{"lightpink", "#FFB6C1", 0xffc1b6ff},{"lightpink1", "#FFAEB9", 0xffb9aeff},{"lightpink2", "#EEA2AD", 0xffada2ee},{"lightpink3", "#CD8C95", 0xff958ccd},{"lightpink4", "#8B5F65", 0xff655f8b},{"lightsalmon", "#FFA07A", 0xff7aa0ff},{"lightsalmon1", "#FFA07A", 0xff7aa0ff},{"lightsalmon2", "#EE9572", 0xff7295ee},{"lightsalmon3", "#CD8162", 0xff6281cd},{"lightsalmon4", "#8B5742", 0xff42578b},{"lightseagreen", "#20B2AA", 0xffaab220},{"lightskyblue", "#87CEFA", 0xffface87},{"lightskyblue1", "#B0E2FF", 0xffffe2b0},{"lightskyblue2", "#A4D3EE", 0xffeed3a4},{"lightskyblue3", "#8DB6CD", 0xffcdb68d},{"lightskyblue4", "#607B8B", 0xff8b7b60},{"lightslateblue", "#8470FF", 0xffff7084},{"lightslategray", "#778899", 0xff998877},{"lightslategrey", "#778899", 0xff998877},{"lightsteelblue", "#B0C4DE", 0xffdec4b0},{"lightsteelblue1", "#CAE1FF", 0xffffe1ca},{"lightsteelblue2", "#BCD2EE", 0xffeed2bc},{"lightsteelblue3", "#A2B5CD", 0xffcdb5a2},{"lightsteelblue4", "#6E7B8B", 0xff8b7b6e},{"lightyellow", "#FFFFE0", 0xffe0ffff},{"lightyellow1", "#FFFFE0", 0xffe0ffff},{"lightyellow2", "#EEEED1", 0xffd1eeee},{"lightyellow3", "#CDCDB4", 0xffb4cdcd},{"lightyellow4", "#8B8B7A", 0xff7a8b8b},{"limegreen", "#32CD32", 0xff32cd32},{"linen", "#FAF0E6", 0xffe6f0fa},{"magenta", "#FF00FF", 0xffff00ff},{"magenta1", "#FF00FF", 0xffff00ff},{"magenta2", "#EE00EE", 0xffee00ee},{"magenta3", "#CD00CD", 0xffcd00cd},{"magenta4", "#8B008B", 0xff8b008b},{"maroon", "#B03060", 0xff6030b0},{"maroon1", "#FF34B3", 0xffb334ff},{"maroon2", "#EE30A7", 0xffa730ee},{"maroon3", "#CD2990", 0xff9029cd},{"maroon4", "#8B1C62", 0xff621c8b},{"mediumaquamarine", "#66CDAA", 0xffaacd66},{"mediumblue", "#0000CD", 0xffcd0000},{"mediumorchid", "#BA55D3", 0xffd355ba},{"mediumorchid1", "#E066FF", 0xffff66e0},{"mediumorchid2", "#D15FEE", 0xffee5fd1},{"mediumorchid3", "#B452CD", 0xffcd52b4},{"mediumorchid4", "#7A378B", 0xff8b377a},{"mediumpurple", "#9370DB", 0xffdb7093},{"mediumpurple1", "#AB82FF", 0xffff82ab},{"mediumpurple2", "#9F79EE", 0xffee799f},{"mediumpurple3", "#8968CD", 0xffcd6889},{"mediumpurple4", "#5D478B", 0xff8b475d},{"mediumseagreen", "#3CB371", 0xff71b33c},{"mediumslateblue", "#7B68EE", 0xffee687b},{"mediumspringgreen", "#00FA9A", 0xff9afa00},{"mediumturquoise", "#48D1CC", 0xffccd148},{"mediumvioletred", "#C71585", 0xff8515c7},{"midnightblue", "#191970", 0xff701919},{"mintcream", "#F5FFFA", 0xfffafff5},{"mistyrose", "#FFE4E1", 0xffe1e4ff},{"mistyrose1", "#FFE4E1", 0xffe1e4ff},{"mistyrose2", "#EED5D2", 0xffd2d5ee},{"mistyrose3", "#CDB7B5", 0xffb5b7cd},{"mistyrose4", "#8B7D7B", 0xff7b7d8b},{"moccasin", "#FFE4B5", 0xffb5e4ff},{"navajowhite", "#FFDEAD", 0xffaddeff},{"navajowhite1", "#FFDEAD", 0xffaddeff},{"navajowhite2", "#EECFA1", 0xffa1cfee},{"navajowhite3", "#CDB38B", 0xff8bb3cd},{"navajowhite4", "#8B795E", 0xff5e798b},{"navy", "#000080", 0xff800000},{"navyblue", "#000080", 0xff800000},{"oldlace", "#FDF5E6", 0xffe6f5fd},{"olivedrab", "#6B8E23", 0xff238e6b},{"olivedrab1", "#C0FF3E", 0xff3effc0},{"olivedrab2", "#B3EE3A", 0xff3aeeb3},{"olivedrab3", "#9ACD32", 0xff32cd9a},{"olivedrab4", "#698B22", 0xff228b69},{"orange", "#FFA500", 0xff00a5ff},{"orange1", "#FFA500", 0xff00a5ff},{"orange2", "#EE9A00", 0xff009aee},{"orange3", "#CD8500", 0xff0085cd},{"orange4", "#8B5A00", 0xff005a8b},{"orangered", "#FF4500", 0xff0045ff},{"orangered1", "#FF4500", 0xff0045ff},{"orangered2", "#EE4000", 0xff0040ee},{"orangered3", "#CD3700", 0xff0037cd},{"orangered4", "#8B2500", 0xff00258b},{"orchid", "#DA70D6", 0xffd670da},{"orchid1", "#FF83FA", 0xfffa83ff},{"orchid2", "#EE7AE9", 0xffe97aee},{"orchid3", "#CD69C9", 0xffc969cd},{"orchid4", "#8B4789", 0xff89478b},{"palegoldenrod", "#EEE8AA", 0xffaae8ee},{"palegreen", "#98FB98", 0xff98fb98},{"palegreen1", "#9AFF9A", 0xff9aff9a},{"palegreen2", "#90EE90", 0xff90ee90},{"palegreen3", "#7CCD7C", 0xff7ccd7c},{"palegreen4", "#548B54", 0xff548b54},{"paleturquoise", "#AFEEEE", 0xffeeeeaf},{"paleturquoise1", "#BBFFFF", 0xffffffbb},{"paleturquoise2", "#AEEEEE", 0xffeeeeae},{"paleturquoise3", "#96CDCD", 0xffcdcd96},{"paleturquoise4", "#668B8B", 0xff8b8b66},{"palevioletred", "#DB7093", 0xff9370db},{"palevioletred1", "#FF82AB", 0xffab82ff},{"palevioletred2", "#EE799F", 0xff9f79ee},{"palevioletred3", "#CD6889", 0xff8968cd},{"palevioletred4", "#8B475D", 0xff5d478b},{"papayawhip", "#FFEFD5", 0xffd5efff},{"peachpuff", "#FFDAB9", 0xffb9daff},{"peachpuff1", "#FFDAB9", 0xffb9daff},{"peachpuff2", "#EECBAD", 0xffadcbee},{"peachpuff3", "#CDAF95", 0xff95afcd},{"peachpuff4", "#8B7765", 0xff65778b},{"peru", "#CD853F", 0xff3f85cd},{"pink", "#FFC0CB", 0xffcbc0ff},{"pink1", "#FFB5C5", 0xffc5b5ff},{"pink2", "#EEA9B8", 0xffb8a9ee},{"pink3", "#CD919E", 0xff9e91cd},{"pink4", "#8B636C", 0xff6c638b},{"plum", "#DDA0DD", 0xffdda0dd},{"plum1", "#FFBBFF", 0xffffbbff},{"plum2", "#EEAEEE", 0xffeeaeee},{"plum3", "#CD96CD", 0xffcd96cd},{"plum4", "#8B668B", 0xff8b668b},{"powderblue", "#B0E0E6", 0xffe6e0b0},{"purple", "#A020F0", 0xfff020a0},{"purple1", "#9B30FF", 0xffff309b},{"purple2", "#912CEE", 0xffee2c91},{"purple3", "#7D26CD", 0xffcd267d},{"purple4", "#551A8B", 0xff8b1a55},{"red", "#FF0000", 0xff0000ff},{"red1", "#FF0000", 0xff0000ff},{"red2", "#EE0000", 0xff0000ee},{"red3", "#CD0000", 0xff0000cd},{"red4", "#8B0000", 0xff00008b},{"rosybrown", "#BC8F8F", 0xff8f8fbc},{"rosybrown1", "#FFC1C1", 0xffc1c1ff},{"rosybrown2", "#EEB4B4", 0xffb4b4ee},{"rosybrown3", "#CD9B9B", 0xff9b9bcd},{"rosybrown4", "#8B6969", 0xff69698b},{"royalblue", "#4169E1", 0xffe16941},{"royalblue1", "#4876FF", 0xffff7648},{"royalblue2", "#436EEE", 0xffee6e43},{"royalblue3", "#3A5FCD", 0xffcd5f3a},{"royalblue4", "#27408B", 0xff8b4027},{"saddlebrown", "#8B4513", 0xff13458b},{"salmon", "#FA8072", 0xff7280fa},{"salmon1", "#FF8C69", 0xff698cff},{"salmon2", "#EE8262", 0xff6282ee},{"salmon3", "#CD7054", 0xff5470cd},{"salmon4", "#8B4C39", 0xff394c8b},{"sandybrown", "#F4A460", 0xff60a4f4},{"seagreen", "#2E8B57", 0xff578b2e},{"seagreen1", "#54FF9F", 0xff9fff54},{"seagreen2", "#4EEE94", 0xff94ee4e},{"seagreen3", "#43CD80", 0xff80cd43},{"seagreen4", "#2E8B57", 0xff578b2e},{"seashell", "#FFF5EE", 0xffeef5ff},{"seashell1", "#FFF5EE", 0xffeef5ff},{"seashell2", "#EEE5DE", 0xffdee5ee},{"seashell3", "#CDC5BF", 0xffbfc5cd},{"seashell4", "#8B8682", 0xff82868b},{"sienna", "#A0522D", 0xff2d52a0},{"sienna1", "#FF8247", 0xff4782ff},{"sienna2", "#EE7942", 0xff4279ee},{"sienna3", "#CD6839", 0xff3968cd},{"sienna4", "#8B4726", 0xff26478b},{"skyblue", "#87CEEB", 0xffebce87},{"skyblue1", "#87CEFF", 0xffffce87},{"skyblue2", "#7EC0EE", 0xffeec07e},{"skyblue3", "#6CA6CD", 0xffcda66c},{"skyblue4", "#4A708B", 0xff8b704a},{"slateblue", "#6A5ACD", 0xffcd5a6a},{"slateblue1", "#836FFF", 0xffff6f83},{"slateblue2", "#7A67EE", 0xffee677a},{"slateblue3", "#6959CD", 0xffcd5969},{"slateblue4", "#473C8B", 0xff8b3c47},{"slategray", "#708090", 0xff908070},{"slategray1", "#C6E2FF", 0xffffe2c6},{"slategray2", "#B9D3EE", 0xffeed3b9},{"slategray3", "#9FB6CD", 0xffcdb69f},{"slategray4", "#6C7B8B", 0xff8b7b6c},{"slategrey", "#708090", 0xff908070},{"snow", "#FFFAFA", 0xfffafaff},{"snow1", "#FFFAFA", 0xfffafaff},{"snow2", "#EEE9E9", 0xffe9e9ee},{"snow3", "#CDC9C9", 0xffc9c9cd},{"snow4", "#8B8989", 0xff89898b},{"springgreen", "#00FF7F", 0xff7fff00},{"springgreen1", "#00FF7F", 0xff7fff00},{"springgreen2", "#00EE76", 0xff76ee00},{"springgreen3", "#00CD66", 0xff66cd00},{"springgreen4", "#008B45", 0xff458b00},{"steelblue", "#4682B4", 0xffb48246},{"steelblue1", "#63B8FF", 0xffffb863},{"steelblue2", "#5CACEE", 0xffeeac5c},{"steelblue3", "#4F94CD", 0xffcd944f},{"steelblue4", "#36648B", 0xff8b6436},{"tan", "#D2B48C", 0xff8cb4d2},{"tan1", "#FFA54F", 0xff4fa5ff},{"tan2", "#EE9A49", 0xff499aee},{"tan3", "#CD853F", 0xff3f85cd},{"tan4", "#8B5A2B", 0xff2b5a8b},{"thistle", "#D8BFD8", 0xffd8bfd8},{"thistle1", "#FFE1FF", 0xffffe1ff},{"thistle2", "#EED2EE", 0xffeed2ee},{"thistle3", "#CDB5CD", 0xffcdb5cd},{"thistle4", "#8B7B8B", 0xff8b7b8b},{"tomato", "#FF6347", 0xff4763ff},{"tomato1", "#FF6347", 0xff4763ff},{"tomato2", "#EE5C42", 0xff425cee},{"tomato3", "#CD4F39", 0xff394fcd},{"tomato4", "#8B3626", 0xff26368b},{"turquoise", "#40E0D0", 0xffd0e040},{"turquoise1", "#00F5FF", 0xfffff500},{"turquoise2", "#00E5EE", 0xffeee500},{"turquoise3", "#00C5CD", 0xffcdc500},{"turquoise4", "#00868B", 0xff8b8600},{"violet", "#EE82EE", 0xffee82ee},{"violetred", "#D02090", 0xff9020d0},{"violetred1", "#FF3E96", 0xff963eff},{"violetred2", "#EE3A8C", 0xff8c3aee},{"violetred3", "#CD3278", 0xff7832cd},{"violetred4", "#8B2252", 0xff52228b},{"wheat", "#F5DEB3", 0xffb3def5},{"wheat1", "#FFE7BA", 0xffbae7ff},{"wheat2", "#EED8AE", 0xffaed8ee},{"wheat3", "#CDBA96", 0xff96bacd},{"wheat4", "#8B7E66", 0xff667e8b},{"whitesmoke", "#F5F5F5", 0xfff5f5f5},{"yellow", "#FFFF00", 0xff00ffff},{"yellow1", "#FFFF00", 0xff00ffff},{"yellow2", "#EEEE00", 0xff00eeee},{"yellow3", "#CDCD00", 0xff00cdcd},{"yellow4", "#8B8B00", 0xff008b8b},{"yellowgreen", "#9ACD32", 0xff32cd9a},{NULL, NULL, 0}};/* Hex Digit to Integer Conversion */static unsigned int hexdigit(int digit){if('0' <= digit && digit <= '9') return digit - '0';if('A' <= digit && digit <= 'F') return 10 + digit - 'A';if('a' <= digit && digit <= 'f') return 10 + digit - 'a';/*else */ error(_("invalid hex digit in 'color' or 'lty'"));return digit; /* never occurs (-Wall) */}/* #RRGGBB[AA] String to Internal Color Code */static rcolor rgb2col(const char *rgb){unsigned int r = 0, g = 0, b = 0, a = 0; /* -Wall */if(rgb[0] != '#')error(_("invalid RGB specification"));switch (strlen(rgb)) {case 9:a = 16 * hexdigit(rgb[7]) + hexdigit(rgb[8]);case 7:r = 16 * hexdigit(rgb[1]) + hexdigit(rgb[2]);g = 16 * hexdigit(rgb[3]) + hexdigit(rgb[4]);b = 16 * hexdigit(rgb[5]) + hexdigit(rgb[6]);break;default:error(_("invalid RGB specification"));}if (strlen(rgb) == 7)return R_RGB(r, g, b);elsereturn R_RGBA(r, g, b, a);}/* External Color Name to Internal Color Code */static rcolor name2col(const char *nm){int i;if(strcmp(nm, "NA") == 0 || strcmp(nm, "transparent") == 0)/** Paul 01/07/04 (2004-07-01?)** Used to be set to NA_INTEGER.** Now set to fully transparent white.** In some cases, fully transparent gets caught by* the graphics engine and no drawing occurs, but* in other cases, transparent colours are passed to devices.** All devices should respond to fully transparent by* not drawing.*/return R_TRANWHITE;for(i = 0; ColorDataBase[i].name ; i++) {if(StrMatch(ColorDataBase[i].name, nm))return ColorDataBase[i].code;}error(_("invalid color name '%s'"), nm);return 0U; /* never occurs but avoid compiler warnings */}/* Internal to External Color Representation *//* Search the color name database first *//* If this fails, create an #RRGGBB string */const char *incol2name(rcolor col){static char ColBuf[10]; // used for return valueif(R_OPAQUE(col)) {for(int i = 0 ; ColorDataBase[i].name ; i++) {if(col == ColorDataBase[i].code)return ColorDataBase[i].name;}ColBuf[0] = '#';ColBuf[1] = HexDigits[(col >> 4) & 15];ColBuf[2] = HexDigits[(col ) & 15];ColBuf[3] = HexDigits[(col >> 12) & 15];ColBuf[4] = HexDigits[(col >> 8) & 15];ColBuf[5] = HexDigits[(col >> 20) & 15];ColBuf[6] = HexDigits[(col >> 16) & 15];ColBuf[7] = '\0';return &ColBuf[0];} else if (R_TRANSPARENT(col)) {return "transparent";} else {ColBuf[0] = '#';ColBuf[1] = HexDigits[(col >> 4) & 15];ColBuf[2] = HexDigits[(col ) & 15];ColBuf[3] = HexDigits[(col >> 12) & 15];ColBuf[4] = HexDigits[(col >> 8) & 15];ColBuf[5] = HexDigits[(col >> 20) & 15];ColBuf[6] = HexDigits[(col >> 16) & 15];ColBuf[7] = HexDigits[(col >> 28) & 15];ColBuf[8] = HexDigits[(col >> 24) & 15];ColBuf[9] = '\0';return &ColBuf[0];}}static rcolor str2col(const char *s, rcolor bg){if(s[0] == '#') return rgb2col(s);else if(isdigit((int)s[0])) {char *ptr;int indx = (int) strtod(s, &ptr);if(*ptr) error(_("invalid color specification \"%s\""), s);if (indx == 0) return bg;return Palette[(indx-1) % PaletteSize];} else return name2col(s);}rcolor inR_GE_str2col(const char *s){if (streql(s, "0"))error(_("invalid color specification \"%s\""), s);return str2col(s, R_TRANWHITE); // bg is irrelevant}/* Convert a sexp element to an R color desc *//* We Assume that Checks Have Been Done */rcolor inRGBpar3(SEXP x, int i, rcolor bg){int indx;switch(TYPEOF(x)){case STRSXP:return str2col(CHAR(STRING_ELT(x, i)), bg);case LGLSXP:indx = LOGICAL(x)[i];if (indx == NA_LOGICAL) return R_TRANWHITE;break;case INTSXP:indx = INTEGER(x)[i];if (indx == NA_INTEGER) return R_TRANWHITE;break;case REALSXP:if(!R_FINITE(REAL(x)[i])) return R_TRANWHITE;indx = (int) REAL(x)[i];break;default:warning(_("supplied color is neither numeric nor character"));return bg;}if (indx < 0)error(_("numerical color values must be >= 0, found %d"), indx);if (indx == 0) return bg;else return Palette[(indx-1) % PaletteSize];}SEXP palette(SEXP val){SEXP ans;rcolor color[MAX_PALETTE_SIZE];int i, n;if (!isString(val)) error(_("invalid argument type"));/* Record the current palette */PROTECT(ans = allocVector(STRSXP, PaletteSize));for (i = 0; i < PaletteSize; i++)SET_STRING_ELT(ans, i, mkChar(incol2name(Palette[i])));if ((n = length(val)) == 1) {if (StrMatch("default", CHAR(STRING_ELT(val, 0)))) {int i;for (i = 0; (i < MAX_PALETTE_SIZE) && DefaultPalette[i]; i++)Palette[i] = name2col(DefaultPalette[i]);PaletteSize = i;} else error(_("unknown palette (need >= 2 colors)"));}else if (n > 1) {if (n > MAX_PALETTE_SIZE)error(_("maximum number of colors is %d"), MAX_PALETTE_SIZE);for (i = 0; i < n; i++) {const char *s = CHAR(STRING_ELT(val, i));color[i] = (s[0] == '#') ? rgb2col(s) : name2col(s);}for (i = 0; i < n; i++)Palette[i] = color[i];PaletteSize = n;}UNPROTECT(1);return ans;}/* A version using 'rcolor' type */SEXP palette2(SEXP val){SEXP ans = PROTECT(allocVector(INTSXP, PaletteSize));int n = length(val), *ians = INTEGER(ans);for (int i = 0; i < PaletteSize; i++) ians[i] = (int)Palette[i];if (n) {if (TYPEOF(val) != INTSXP) error("requires INTSXP argment");if (n > MAX_PALETTE_SIZE)error(_("maximum number of colors is %d"), MAX_PALETTE_SIZE);for (int i = 0; i < n; i++) Palette[i] = (rcolor)INTEGER(val)[i];PaletteSize = n;}UNPROTECT(1);return ans;}SEXP colors(void){int n;for (n = 0; ColorDataBase[n].name != NULL; n++) ;SEXP ans = PROTECT(allocVector(STRSXP, n));for (n = 0; ColorDataBase[n].name != NULL; n++)SET_STRING_ELT(ans, n, mkChar(ColorDataBase[n].name));UNPROTECT(1);return ans;}/* Used to push/pop palette when replaying display list */static void savePalette(Rboolean save){if (save)for (int i = 0; i < PaletteSize; i++)Palette0[i] = Palette[i];elsefor (int i = 0; i < PaletteSize; i++)Palette[i] = Palette0[i];}/* same as src/main/colors.c */typedef unsigned int (*F1)(SEXP x, int i, unsigned int bg);typedef const char * (*F2)(unsigned int col);typedef unsigned int (*F3)(const char *s);typedef void (*F4)(Rboolean save);void Rg_set_col_ptrs(F1 f1, F2 f2, F3 f3, F4 f4);void initPalette(void){Rg_set_col_ptrs(&inRGBpar3, &incol2name, &inR_GE_str2col, &savePalette);/* Initialize the Color Database: we now pre-compute thisfor(int i = 0 ; ColorDataBase[i].name ; i++)ColorDataBase[i].code = rgb2col(ColorDataBase[i].rgb);Install Default Palette: precomputedint i;for(i = 0 ; DefaultPalette[i] ; i++)Palette[i] = name2col(DefaultPalette[i]);PaletteSize = i; // 8*/}