/*
 *  R : A Computer Language for Statistical Data Analysis
 *  Copyright (C) 1997-2025  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";

static
char *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];
}

static
char *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;
    bool 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.4

static double gtrans(double u)
{
    if (u > 0.00304)
	return 1.055 * pow(u, (1 / GAMMA)) - 0.055;
    else
	return 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 void
hcl2rgb(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);
		else
		    SET_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);
		else
		    SET_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;
    bool 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;
}

// R  gray (level, alpha)  --> .Call(C_gray, level, if(missing(alpha)) NULL else alpha)
SEXP gray(SEXP lev, SEXP a)
{
    SEXP ans;
    double level;
    int i, ilevel, nlev;

    lev  = PROTECT(coerceVector(lev,REALSXP));
    nlev = LENGTH(lev);
    ans = allocVector(STRSXP, nlev);
    if(!nlev) {
	UNPROTECT(1);
	return(ans);
    }
    PROTECT(ans);
    if(!isNull(a)) a = coerceVector(a,REALSXP); // alpha
    PROTECT(a);
    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 1024
static int PaletteSize = 8;
static rcolor Palette[MAX_PALETTE_SIZE] = {
    0xff000000,
    0xff6b53df,
    0xff4fd061,
    0xffe69722,
    0xffe5e228,
    0xffbc0bcd,
    0xff10c7f5,
    0xff9e9e9e
};

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 */
attribute_hidden
const rcolor DefaultPalette[8] = {
    0xff000000,
    0xff6b53df,
    0xff4fd061,
    0xffe69722,
    0xffe5e228,
    0xffbc0bcd,
    0xff10c7f5,
    0xff9e9e9e
};

/* The Table of Known Color Names */
/* Adapted from the X11 RGB database */
/* Note: the color "white" was moved to the top of the database 
   to avoid its being looked up by col2name as "gray100" */

typedef
struct colorDataBaseEntry {
    char *name;	  // X11 Color Name
    char *rgb;	  // #RRGGBB String, no longer used
    rcolor 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] or #RGB[A] 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;
    case 5: 
	// Equivalent to 16 * hexdigit(rgb[4]) + hexdigit(rgb[4]);
	a = (16 + 1) * hexdigit(rgb[4]);
    case 4:
	r = (16 + 1) * hexdigit(rgb[1]);
	g = (16 + 1) * hexdigit(rgb[2]);
	b = (16 + 1) * hexdigit(rgb[3]);
	break;
    default:
	error(_("invalid RGB specification"));
    }

    switch(strlen(rgb)) {
    case 7: 
    case 4:
        return R_RGB(r, g, b);
    default:
        return 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 value

    if(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 < 8; i++)
		Palette[i] = 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 argument");
	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];
    else
	for (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 this
    for(int i = 0 ; ColorDataBase[i].name ; i++)
	ColorDataBase[i].code = rgb2col(ColorDataBase[i].rgb);

    Install Default Palette: precomputed
    int i;
    for(i = 0 ; DefaultPalette[i] ; i++)
	Palette[i] = name2col(DefaultPalette[i]);
    PaletteSize = i;  // 8
    */
}

