#!/usr/local/bin/perl -w
## Make a gif "transparent"
##
## Jeffrey Friedl
## jfriedl@omrongw.wg.omron.co.jp
## 15 July 1994
## 2 Aug 1994 - added ability to select transparent color by RGB values.
## 940825.3 -- modified to work with possible future versions of the
##             GIF standard... just in case.
##
#$version = "940825.3";
##
## BLURB:
## Transforms a "normal" gif into a "transparent background" gif.
##
##>
##
## I wrote this because people ask for something like this all the time.
## I just learned the format of GIFs a week ago, so this will likely be
## lacking in many respects.
##
##
## Usage:
##      transgif [options] regular.gif > transparent.gif
##   or
##      cat regular.gif | transgif [options] transparent.gif
##
## The default is that whatever color happens to fall into the first colormap
## slot (often black) will be made transparent. This can be changed via the
## the options.
##
## The options are from:
##   -p              print the colormap (to STDERR).
##		     The new gif still goes to STDOUT.
##
##   -###            make colormap index-### transparent (default is -0)
##
##   -rgb ## ## ##   Take the three numbers as R G B values (in the range
##		     of 0..255 (or 0x00..0xff). The first colormap entry
##		     with those RGB values is made transparent.
##
##   -rgb name       Use the R G B values of the color 'name' if known
##		     by this program (data from X11's rgb.txt)
##
## COLORNUM is the index of the color entry to make transparent, and 
## defaults to zero. For those that like the looks of it, you can put
## a leading '-'.
##
##<

sub usage {
   die "@_\nUsage: $0 [-p] [-## | -rgb name | -rgb ## ## ##] [file]\n";
}

$trans_index = 0;
$print_color_map = 0;
$select_via_rgb = 0;

while (@ARGV && $ARGV[0] =~ m/^-/) {
    $arg = shift;
    if ($arg eq '-p') { 	     ## print color map
	$print_color_map = 1;

    } elsif ($arg =~ m/^-(\d+)$/) {  ## set color map index number
	$trans_index = $1;

    } elsif ($arg eq '-rgb') {	     ## set what color to make transparent

	## if next three args look numerical (## or 0x##), use as R B G.
	if (@ARGV >= 3 &&
	    $ARGV[0] =~ m/^(0x[\da-f]+|\d+)$/i &&
	    $ARGV[1] =~ m/^(0x[\da-f]+|\d+)$/i &&
	    $ARGV[2] =~ m/^(0x[\da-f]+|\d+)$/i)
	{
	    ($R, $G, $B) = splice(@ARGV, 0, 3);
	    $select_via_rgb = 1;
	    $R = eval($R); ## eval these to process any hex or octal values.
	    $G = eval($G); ## eval these to process any hex or octal values.
	    $B = eval($B); ## eval these to process any hex or octal values.

	## if next arg looks like a color name, use those R G B values.
	} elsif (@ARGV && (@RGB = &name2rgb($ARGV[0]), @RGB == 3)) {
	    shift; ## eat name;
	    ($R, $G, $B) = @RGB;
	    $select_via_rgb = 1;

	} else {
	   warn(qq/(don't understand "$ARGV[0]" as a color name)\n/) if @ARGV;
	   die qq/$0: expected color name or a numerical triplet for $arg\n/;
	}
    } else {
	&usage(qq/unknown arg "$arg".\n/);
    }
}

&usage('too many args.') if @ARGV > 1;

if (@ARGV == 0) {
    &giftrans(*STDIN, *STDOUT, $trans_index);
} else {
    open(INPUT,  $file =shift) || die "$0: couldn't open [$file] for input\n";
    &giftrans(*INPUT, *STDOUT, $trans_index);
    close(INPUT);
}
exit(0);



##
## Given indirect references to two filehandles, pass the file from
## one to the other, changing nothing unless it's a GIF that we know
## how to deal with, and if so do so.
##
## This is written rather verbosely for the sake of clarity... speed not
## much of an issue for something like this, and the difference is minimal
## anyway.
##
sub giftrans
{
    local(*IN, *OUT, $trans_index) = @_;
    $trans_index = 0 if !defined $trans_index;
    local($header, $color_table, $nextblock, $buffer) = ('') x 4;

    ## The header looks like:
    ##   byte 0 - 5:  "GIF89a" or "GIF87a"
    ##   byte 6, 7:   width  (low order first)
    ##   byte 8, 9:   height (low order first)
    ##   byte 10:     various flags
    ##   byte 11:     background color index
    ##   byte 12:     aspect ratio
    sysread(IN, $header, 13) || die "sysread header: $!";
    substr($header, 0, 6) = 'GIF89a' if substr($header,0,6) eq 'GIF87a';
    print OUT $header;

    if (substr($header, 0, 3) ne 'GIF') {
	print STDERR "don't know input filetype, passing unchanged\n";
    } else {
	##
	## Look at flags (8 bits): hi[MCCCSPPP]low
	##   M   = global colormap present?
	##   CCC = bits/color/colormapentry - 1
	##   S   = color map sorted by importance?
	##   PPP = bits/pixel - 1
	## therefore
	##   Bits/pixel = PPP+1
	##   Number of possible colors (entries in colormap): 2 ** (PPP+1)
	##                                                  : 1 << (PPP+1)
	##   Size (bytes) of colormap: 3 * Number of possible colors
	##                           : 3 * (1 << (PPP+1))
	##
	local($flags) = ord(substr($header, 10, 1));
	local($has_global_colormap) = $flags & 0x80;

	## Copy over the colormap if need be.
	if (!$has_global_colormap)
	{
	   die "$0: picture has no colormap, so -rgb arg invalid\n"
		if $select_via_rgb;
	   die "$0: no colormap, so any index except 0 or 1 makes no sense\n"
		if $trans_index > 1;
	} else {
	    local($bits_per_pixel) = 1 + ($flags & 0x07);
	    local($colormap_entries) = 1 << $bits_per_pixel;
	    local($color_tbl_size) = 3 * $colormap_entries;

	    sysread(IN, $color_table, $color_tbl_size) || die "sysread color";
	    print OUT $color_table;

	    if ($print_color_map || $select_via_rgb)
	    {
		## For each byte of each colormap's RGB triplit, we'll have
		## to mask off bits that aren't used when looking at the
		## color values.
		local($bits_color_byte) = 1 + (($flags >> 4) & 0x07);
		local($rgb_byte_mask) = (1 << $bits_color_byte) - 1;
		local($r,$g,$b);

		local($best_delta) = 1000; ## any big number ok
		local(@delta, @r, @b, @g);

		for ($i = 0; $i < $colormap_entries; $i++)
		{
		   ($r, $g, $b) = unpack("CCC", substr($color_table, $i*3, 3));
		   $r &= $rgb_byte_mask;
		   $g &= $rgb_byte_mask;
		   $b &= $rgb_byte_mask;

		   if ($select_via_rgb) {
			if ($r == $R && $g == $G && $b == $B) {
			    $select_via_rgb = 0;
			    $trans_index = $i;
			    print(STDERR "Found exact match (index #$i).\n");
			} else {
			    $delta = ($r < $R ? $R - $r : $r - $R) +
				     ($g < $G ? $G - $g : $g - $G) +
				     ($b < $B ? $B - $b : $b - $B);
			    if ($delta < $best_delta) {
				@delta = ($i);
				@r = $r; @g = $g; @b = $b;
				$best_delta = $delta;
			    } elsif ($delta == $best_delta) {
				push(@delta, $i);
				push(@r, $r); push(@g, $g); push(@b, $b);
			    }
			}
		   }

		   printf(STDERR "%03d: %3d %3d %3d (x%02x x%02x x%02x)\n", $i,
			$r, $g, $b, $r, $g, $b) if $print_color_map;
		}

		if ($select_via_rgb) {
		    ## Mmm, didn't find it. Use one of the close ones.
		    $trans_index = shift(delta);
		    $r = shift(@r);
		    $g = shift(@g);
		    $b = shift(@b);

		    printf(STDERR "requested color not found, using index ".
				  "#%d: %3d %3d %3d (x%02x x%02x x%02x)\n",
				  $trans_index,
				   $r, $g, $b, $r, $g, $b);
		    if (@delta)
		    {
			$count = @delta;
			print(STDERR
			    "note: %d other entrie%s seem equally close:\n",
				$count, $count == 1 ? "" : "s");
			while (@delta) {
			    $index = shift(delta);
			    $r = shift(@r);
			    $g = shift(@g);
			    $b = shift(@b);
		   	    printf(STDERR "  index %03d: %3d %3d %3d ".
					  "(x%02x x%02x x%02x)\n",
					  $index, $r, $g, $b, $r, $g, $b);
			}
		    }
		}
	    }
	}

	##
	## The next 8 bytes will either be an already-there graphic-extension
	## block, or something else that we'll not care about. In the latter
	## case, we'll add a graphic-extension block saying "color such-and-
	## such is transparent". If there's already one there, we'll just
	## ensure that it says that.
	##
	sysread(IN, $nextblock, 8) || die "sysread nextblock";
	local($extension, $label) = unpack('CC', $nextblock);
	## If extension is 0x21 and label is 0xf9, that's the magic tha means
	## there's already a graphic extension there.
	if ($extension == 0x21 && $label == 0xf9) {
	    substr($nextblock, 3, 1) = pack('C', 1|substr($nextblock, 3, 1));
	    substr($nextblock, 6, 1) = pack('C', $trans_index);
	} else {
	    print OUT pack('CCC CCCC C',
		0x21,  ## magic: "Extension Introducer"
		0xf9,  ## magic: "Graphic Control Label"
		   4,  ## bytes in block (between here and terminator)
		0x01,  ## indicates that 'transparet index' is given
		0, 0,  ## delay time.
                $trans_index, ## index number of colormap entry
		0x00); ## terminator.
	}
	print OUT $nextblock;
    }

    ## Now just pass the rest of the file over unchanged.

    print OUT $buffer while sysread(IN, $buffer, 4096);
    close(IN);
    close(OUT);
}

##
## Change a name to a triplet of RGB values.
## name and RGB data taken from the X11 lib/rgb.txt, with the
## name regexe-compressed by me.
##
sub name2rgb
{
    local($_) = @_;  ## name;
    study;
    %rgb = (
	'  0,  0,  0', 'black|gr[ae]y0',
	'  0,  0,128', 'navy([ \-]?blue)?',
	'  0,  0,139', 'blue4',
	'  0,  0,205', 'blue3|medium[ \-]?blue',
	'  0,  0,238', 'blue2',
	'  0,  0,255', 'blue1?',
	'  0,100,  0', 'dark[ \-]?green',
	'  0,104,139', 'deepskyblue4',
	'  0,134,139', 'turquoise4',
	'  0,139,  0', 'green4',
	'  0,139, 69', 'springgreen4',
	'  0,139,139', 'cyan4',
	'  0,154,205', 'deepskyblue3',
	'  0,178,238', 'deepskyblue2',
	'  0,191,255', 'deep( sky blue|-sky-blue|skyblue1?)',
	'  0,197,205', 'turquoise3',
	'  0,205,  0', 'green3',
	'  0,205,102', 'springgreen3',
	'  0,205,205', 'cyan3',
	'  0,206,209', 'dark[ \-]?turquoise',
	'  0,229,238', 'turquoise2',
	'  0,238,  0', 'green2',
	'  0,238,118', 'springgreen2',
	'  0,238,238', 'cyan2',
	'  0,245,255', 'turquoise1',
	'  0,250,154', 'medium[ \-]?spring[ \-]?green',
	'  0,255,  0', 'green1?',
	'  0,255,127', 'spring[ \-]?green1?',
	'  0,255,255', 'cyan1?',
	'  3,  3,  3', 'gr[ae]y1',
	'  5,  5,  5', 'gr[ae]y2',
	'  8,  8,  8', 'gr[ae]y3',
	' 10, 10, 10', 'gr[ae]y4',
	' 13, 13, 13', 'gr[ae]y5',
	' 15, 15, 15', 'gr[ae]y6',
	' 16, 78,139', 'dodgerblue4',
	' 18, 18, 18', 'gr[ae]y7',
	' 20, 20, 20', 'gr[ae]y8',
	' 23, 23, 23', 'gr[ae]y9',
	' 24,116,205', 'dodgerblue3',
	' 25, 25,112', 'midnight[ \-]?blue',
	' 26, 26, 26', 'gr[ae]y10',
	' 28, 28, 28', 'gr[ae]y11',
	' 28,134,238', 'dodgerblue2',
	' 30,144,255', 'dodger[ \-]?blue1?',
	' 31, 31, 31', 'gr[ae]y12',
	' 32,178,170', 'light[ \-]?sea[ \-]?green',
	' 33, 33, 33', 'gr[ae]y13',
	' 34,139, 34', 'forest[ \-]?green',
	' 36, 36, 36', 'gr[ae]y14',
	' 38, 38, 38', 'gr[ae]y15',
	' 39, 64,139', 'royalblue4',
	' 41, 41, 41', 'gr[ae]y16',
	' 43, 43, 43', 'gr[ae]y17',
	' 46, 46, 46', 'gr[ae]y18',
	' 46,139, 87', 'sea[ \-]?green4?',
	' 47, 79, 79', 'dark( slate gr[ae]|-slate-gr[ae]|slategr[ae])y',
	' 48, 48, 48', 'gr[ae]y19',
	' 50,205, 50', 'lime[ \-]?green',
	' 51, 51, 51', 'gr[ae]y20',
	' 54, 54, 54', 'gr[ae]y21',
	' 54,100,139', 'steelblue4',
	' 56, 56, 56', 'gr[ae]y22',
	' 58, 95,205', 'royalblue3',
	' 59, 59, 59', 'gr[ae]y23',
	' 60,179,113', 'medium[ \-]?sea[ \-]?green',
	' 61, 61, 61', 'gr[ae]y24',
	' 64, 64, 64', 'gr[ae]y25',
	' 64,224,208', 'turquoise',
	' 65,105,225', 'royal[ \-]?blue',
	' 66, 66, 66', 'gr[ae]y26',
	' 67,110,238', 'royalblue2',
	' 67,205,128', 'seagreen3',
	' 69, 69, 69', 'gr[ae]y27',
	' 69,139,  0', 'chartreuse4',
	' 69,139,116', 'aquamarine4',
	' 70,130,180', 'steel[ \-]?blue',
	' 71, 60,139', 'slateblue4',
	' 71, 71, 71', 'gr[ae]y28',
	' 72, 61,139', 'dark[ \-]?slate[ \-]?blue',
	' 72,118,255', 'royalblue1',
	' 72,209,204', 'medium[ \-]?turquoise',
	' 74, 74, 74', 'gr[ae]y29',
	' 74,112,139', 'skyblue4',
	' 77, 77, 77', 'gr[ae]y30',
	' 78,238,148', 'seagreen2',
	' 79, 79, 79', 'gr[ae]y31',
	' 79,148,205', 'steelblue3',
	' 82, 82, 82', 'gr[ae]y32',
	' 82,139,139', 'darkslategray4',
	' 83,134,139', 'cadetblue4',
	' 84, 84, 84', 'gr[ae]y33',
	' 84,139, 84', 'palegreen4',
	' 84,255,159', 'seagreen1',
	' 85, 26,139', 'purple4',
	' 85,107, 47', 'dark[ \-]?olive[ \-]?green',
	' 87, 87, 87', 'gr[ae]y34',
	' 89, 89, 89', 'gr[ae]y35',
	' 92, 92, 92', 'gr[ae]y36',
	' 92,172,238', 'steelblue2',
	' 93, 71,139', 'mediumpurple4',
	' 94, 94, 94', 'gr[ae]y37',
	' 95,158,160', 'cadet[ \-]?blue',
	' 96,123,139', 'lightskyblue4',
	' 97, 97, 97', 'gr[ae]y38',
	' 99, 99, 99', 'gr[ae]y39',
	' 99,184,255', 'steelblue1',
	'100,149,237', 'cornflower[ \-]?blue',
	'102,102,102', 'gr[ae]y40',
	'102,139,139', 'paleturquoise4',
	'102,205,  0', 'chartreuse3',
	'102,205,170', 'aquamarine3|medium[ \-]?aquamarine',
	'104, 34,139', 'darkorchid4',
	'104,131,139', 'lightblue4',
	'105, 89,205', 'slateblue3',
	'105,105,105', 'dim( gr[ae]|-gr[ae]|gr[ae])y|gr[ae]y41',
	'105,139, 34', 'olivedrab4',
	'105,139,105', 'darkseagreen4',
	'106, 90,205', 'slate[ \-]?blue',
	'107,107,107', 'gr[ae]y42',
	'107,142, 35', 'olive[ \-]?drab',
	'108,123,139', 'slategray4',
	'108,166,205', 'skyblue3',
	'110,110,110', 'gr[ae]y43',
	'110,123,139', 'lightsteelblue4',
	'110,139, 61', 'darkolivegreen4',
	'112,112,112', 'gr[ae]y44',
	'112,128,144', 'slate( gr[ae]|-gr[ae]|gr[ae])y',
	'115,115,115', 'gr[ae]y45',
	'117,117,117', 'gr[ae]y46',
	'118,238,  0', 'chartreuse2',
	'118,238,198', 'aquamarine2',
	'119,136,153', 'light( slate gr[ae]|-slate-gr[ae]|slategr[ae])y',
	'120,120,120', 'gr[ae]y47',
	'121,205,205', 'darkslategray3',
	'122, 55,139', 'mediumorchid4',
	'122,103,238', 'slateblue2',
	'122,122,122', 'gr[ae]y48',
	'122,139,139', 'lightcyan4',
	'122,197,205', 'cadetblue3',
	'123,104,238', 'medium[ \-]?slate[ \-]?blue',
	'124,205,124', 'palegreen3',
	'124,252,  0', 'lawn[ \-]?green',
	'125, 38,205', 'purple3',
	'125,125,125', 'gr[ae]y49',
	'126,192,238', 'skyblue2',
	'127,127,127', 'gr[ae]y50',
	'127,255,  0', 'chartreuse1?',
	'127,255,212', 'aquamarine1?',
	'130,130,130', 'gr[ae]y51',
	'131,111,255', 'slateblue1',
	'131,139,131', 'honeydew4',
	'131,139,139', 'azure4',
	'132,112,255', 'light[ \-]?slate[ \-]?blue',
	'133,133,133', 'gr[ae]y52',
	'135,135,135', 'gr[ae]y53',
	'135,206,235', 'sky[ \-]?blue',
	'135,206,250', 'light[ \-]?sky[ \-]?blue',
	'135,206,255', 'skyblue1',
	'137,104,205', 'mediumpurple3',
	'138, 43,226', 'blue[ \-]?violet',
	'138,138,138', 'gr[ae]y54',
	'139,  0,  0', 'red4',
	'139,  0,139', 'magenta4',
	'139, 10, 80', 'deeppink4',
	'139, 26, 26', 'firebrick4',
	'139, 28, 98', 'maroon4',
	'139, 34, 82', 'violetred4',
	'139, 35, 35', 'brown4',
	'139, 37,  0', 'orangered4',
	'139, 54, 38', 'tomato4',
	'139, 58, 58', 'indianred4',
	'139, 58, 98', 'hotpink4',
	'139, 62, 47', 'coral4',
	'139, 69,  0', 'darkorange4',
	'139, 69, 19', 'chocolate4|saddle[ \-]?brown',
	'139, 71, 38', 'sienna4',
	'139, 71, 93', 'palevioletred4',
	'139, 71,137', 'orchid4',
	'139, 76, 57', 'salmon4',
	'139, 87, 66', 'lightsalmon4',
	'139, 90,  0', 'orange4',
	'139, 90, 43', 'tan4',
	'139, 95,101', 'lightpink4',
	'139, 99,108', 'pink4',
	'139,101,  8', 'darkgoldenrod4',
	'139,102,139', 'plum4',
	'139,105, 20', 'goldenrod4',
	'139,105,105', 'rosybrown4',
	'139,115, 85', 'burlywood4',
	'139,117,  0', 'gold4',
	'139,119,101', 'peachpuff4',
	'139,121, 94', 'navajowhite4',
	'139,123,139', 'thistle4',
	'139,125,107', 'bisque4',
	'139,125,123', 'mistyrose4',
	'139,126,102', 'wheat4',
	'139,129, 76', 'lightgoldenrod4',
	'139,131,120', 'antiquewhite4',
	'139,131,134', 'lavenderblush4',
	'139,134, 78', 'khaki4',
	'139,134,130', 'seashell4',
	'139,136,120', 'cornsilk4',
	'139,137,112', 'lemonchiffon4',
	'139,137,137', 'snow4',
	'139,139,  0', 'yellow4',
	'139,139,122', 'lightyellow4',
	'139,139,131', 'ivory4',
	'140,140,140', 'gr[ae]y55',
	'141,182,205', 'lightskyblue3',
	'141,238,238', 'darkslategray2',
	'142,229,238', 'cadetblue2',
	'143,143,143', 'gr[ae]y56',
	'143,188,143', 'dark[ \-]?sea[ \-]?green',
	'144,238,144', 'palegreen2',
	'145, 44,238', 'purple2',
	'145,145,145', 'gr[ae]y57',
	'147,112,219', 'medium[ \-]?purple',
	'148,  0,211', 'dark[ \-]?violet',
	'148,148,148', 'gr[ae]y58',
	'150,150,150', 'gr[ae]y59',
	'150,205,205', 'paleturquoise3',
	'151,255,255', 'darkslategray1',
	'152,245,255', 'cadetblue1',
	'152,251,152', 'pale[ \-]?green',
	'153, 50,204', 'dark[ \-]?orchid',
	'153,153,153', 'gr[ae]y60',
	'154, 50,205', 'darkorchid3',
	'154,192,205', 'lightblue3',
	'154,205, 50', 'olivedrab3|yellow[ \-]?green',
	'154,255,154', 'palegreen1',
	'155, 48,255', 'purple1',
	'155,205,155', 'darkseagreen3',
	'156,156,156', 'gr[ae]y61',
	'158,158,158', 'gr[ae]y62',
	'159,121,238', 'mediumpurple2',
	'159,182,205', 'slategray3',
	'160, 32,240', 'purple',
	'160, 82, 45', 'sienna',
	'161,161,161', 'gr[ae]y63',
	'162,181,205', 'lightsteelblue3',
	'162,205, 90', 'darkolivegreen3',
	'163,163,163', 'gr[ae]y64',
	'164,211,238', 'lightskyblue2',
	'165, 42, 42', 'brown',
	'166,166,166', 'gr[ae]y65',
	'168,168,168', 'gr[ae]y66',
	'171,130,255', 'mediumpurple1',
	'171,171,171', 'gr[ae]y67',
	'173,173,173', 'gr[ae]y68',
	'173,216,230', 'light[ \-]?blue',
	'173,255, 47', 'green[ \-]?yellow',
	'174,238,238', 'paleturquoise2',
	'175,238,238', 'pale[ \-]?turquoise',
	'176, 48, 96', 'maroon',
	'176,176,176', 'gr[ae]y69',
	'176,196,222', 'light[ \-]?steel[ \-]?blue',
	'176,224,230', 'powder[ \-]?blue',
	'176,226,255', 'lightskyblue1',
	'178, 34, 34', 'firebrick',
	'178, 58,238', 'darkorchid2',
	'178,223,238', 'lightblue2',
	'179,179,179', 'gr[ae]y70',
	'179,238, 58', 'olivedrab2',
	'180, 82,205', 'mediumorchid3',
	'180,205,205', 'lightcyan3',
	'180,238,180', 'darkseagreen2',
	'181,181,181', 'gr[ae]y71',
	'184,134, 11', 'dark[ \-]?goldenrod',
	'184,184,184', 'gr[ae]y72',
	'185,211,238', 'slategray2',
	'186, 85,211', 'medium[ \-]?orchid',
	'186,186,186', 'gr[ae]y73',
	'187,255,255', 'paleturquoise1',
	'188,143,143', 'rosy[ \-]?brown',
	'188,210,238', 'lightsteelblue2',
	'188,238,104', 'darkolivegreen2',
	'189,183,107', 'dark[ \-]?khaki',
	'189,189,189', 'gr[ae]y74',
	'190,190,190', 'gr[ae]y',
	'191, 62,255', 'darkorchid1',
	'191,191,191', 'gr[ae]y75',
	'191,239,255', 'lightblue1',
	'192,255, 62', 'olivedrab1',
	'193,205,193', 'honeydew3',
	'193,205,205', 'azure3',
	'193,255,193', 'darkseagreen1',
	'194,194,194', 'gr[ae]y76',
	'196,196,196', 'gr[ae]y77',
	'198,226,255', 'slategray1',
	'199, 21,133', 'medium[ \-]?violet[ \-]?red',
	'199,199,199', 'gr[ae]y78',
	'201,201,201', 'gr[ae]y79',
	'202,225,255', 'lightsteelblue1',
	'202,255,112', 'darkolivegreen1',
	'204,204,204', 'gr[ae]y80',
	'205,  0,  0', 'red3',
	'205,  0,205', 'magenta3',
	'205, 16,118', 'deeppink3',
	'205, 38, 38', 'firebrick3',
	'205, 41,144', 'maroon3',
	'205, 50,120', 'violetred3',
	'205, 51, 51', 'brown3',
	'205, 55,  0', 'orangered3',
	'205, 79, 57', 'tomato3',
	'205, 85, 85', 'indianred3',
	'205, 91, 69', 'coral3',
	'205, 92, 92', 'indian[ \-]?red',
	'205, 96,144', 'hotpink3',
	'205,102,  0', 'darkorange3',
	'205,102, 29', 'chocolate3',
	'205,104, 57', 'sienna3',
	'205,104,137', 'palevioletred3',
	'205,105,201', 'orchid3',
	'205,112, 84', 'salmon3',
	'205,129, 98', 'lightsalmon3',
	'205,133,  0', 'orange3',
	'205,133, 63', 'peru|tan3',
	'205,140,149', 'lightpink3',
	'205,145,158', 'pink3',
	'205,149, 12', 'darkgoldenrod3',
	'205,150,205', 'plum3',
	'205,155, 29', 'goldenrod3',
	'205,155,155', 'rosybrown3',
	'205,170,125', 'burlywood3',
	'205,173,  0', 'gold3',
	'205,175,149', 'peachpuff3',
	'205,179,139', 'navajowhite3',
	'205,181,205', 'thistle3',
	'205,183,158', 'bisque3',
	'205,183,181', 'mistyrose3',
	'205,186,150', 'wheat3',
	'205,190,112', 'lightgoldenrod3',
	'205,192,176', 'antiquewhite3',
	'205,193,197', 'lavenderblush3',
	'205,197,191', 'seashell3',
	'205,198,115', 'khaki3',
	'205,200,177', 'cornsilk3',
	'205,201,165', 'lemonchiffon3',
	'205,201,201', 'snow3',
	'205,205,  0', 'yellow3',
	'205,205,180', 'lightyellow3',
	'205,205,193', 'ivory3',
	'207,207,207', 'gr[ae]y81',
	'208, 32,144', 'violet[ \-]?red',
	'209, 95,238', 'mediumorchid2',
	'209,209,209', 'gr[ae]y82',
	'209,238,238', 'lightcyan2',
	'210,105, 30', 'chocolate',
	'210,180,140', 'tan',
	'211,211,211', 'light( gr[ae]|-gr[ae]|gr[ae])y',
	'212,212,212', 'gr[ae]y83',
	'214,214,214', 'gr[ae]y84',
	'216,191,216', 'thistle',
	'217,217,217', 'gr[ae]y85',
	'218,112,214', 'orchid',
	'218,165, 32', 'goldenrod',
	'219,112,147', 'pale[ \-]?violet[ \-]?red',
	'219,219,219', 'gr[ae]y86',
	'220,220,220', 'gainsboro',
	'221,160,221', 'plum',
	'222,184,135', 'burlywood',
	'222,222,222', 'gr[ae]y87',
	'224,102,255', 'mediumorchid1',
	'224,224,224', 'gr[ae]y88',
	'224,238,224', 'honeydew2',
	'224,238,238', 'azure2',
	'224,255,255', 'light[ \-]?cyan1?',
	'227,227,227', 'gr[ae]y89',
	'229,229,229', 'gr[ae]y90',
	'230,230,250', 'lavender',
	'232,232,232', 'gr[ae]y91',
	'233,150,122', 'dark[ \-]?salmon',
	'235,235,235', 'gr[ae]y92',
	'237,237,237', 'gr[ae]y93',
	'238,  0,  0', 'red2',
	'238,  0,238', 'magenta2',
	'238, 18,137', 'deeppink2',
	'238, 44, 44', 'firebrick2',
	'238, 48,167', 'maroon2',
	'238, 58,140', 'violetred2',
	'238, 59, 59', 'brown2',
	'238, 64,  0', 'orangered2',
	'238, 92, 66', 'tomato2',
	'238, 99, 99', 'indianred2',
	'238,106, 80', 'coral2',
	'238,106,167', 'hotpink2',
	'238,118,  0', 'darkorange2',
	'238,118, 33', 'chocolate2',
	'238,121, 66', 'sienna2',
	'238,121,159', 'palevioletred2',
	'238,122,233', 'orchid2',
	'238,130, 98', 'salmon2',
	'238,130,238', 'violet',
	'238,149,114', 'lightsalmon2',
	'238,154,  0', 'orange2',
	'238,154, 73', 'tan2',
	'238,162,173', 'lightpink2',
	'238,169,184', 'pink2',
	'238,173, 14', 'darkgoldenrod2',
	'238,174,238', 'plum2',
	'238,180, 34', 'goldenrod2',
	'238,180,180', 'rosybrown2',
	'238,197,145', 'burlywood2',
	'238,201,  0', 'gold2',
	'238,203,173', 'peachpuff2',
	'238,207,161', 'navajowhite2',
	'238,210,238', 'thistle2',
	'238,213,183', 'bisque2',
	'238,213,210', 'mistyrose2',
	'238,216,174', 'wheat2',
	'238,220,130', 'lightgoldenrod2',
	'238,221,130', 'light[ \-]?goldenrod',
	'238,223,204', 'antiquewhite2',
	'238,224,229', 'lavenderblush2',
	'238,229,222', 'seashell2',
	'238,230,133', 'khaki2',
	'238,232,170', 'pale[ \-]?goldenrod',
	'238,232,205', 'cornsilk2',
	'238,233,191', 'lemonchiffon2',
	'238,233,233', 'snow2',
	'238,238,  0', 'yellow2',
	'238,238,209', 'lightyellow2',
	'238,238,224', 'ivory2',
	'240,128,128', 'light[ \-]?coral',
	'240,230,140', 'khaki',
	'240,240,240', 'gr[ae]y94',
	'240,248,255', 'alice[ \-]?blue',
	'240,255,240', 'honeydew1?',
	'240,255,255', 'azure1?',
	'242,242,242', 'gr[ae]y95',
	'244,164, 96', 'sandy[ \-]?brown',
	'245,222,179', 'wheat',
	'245,245,220', 'beige',
	'245,245,245', 'gr[ae]y96|white[ \-]?smoke',
	'245,255,250', 'mint[ \-]?cream',
	'247,247,247', 'gr[ae]y97',
	'248,248,255', 'ghost[ \-]?white',
	'250,128,114', 'salmon',
	'250,235,215', 'antique[ \-]?white',
	'250,240,230', 'linen',
	'250,250,210', 'light[ \-]?goldenrod[ \-]?yellow',
	'250,250,250', 'gr[ae]y98',
	'252,252,252', 'gr[ae]y99',
	'253,245,230', 'old[ \-]?lace',
	'255,  0,  0', 'red1?',
	'255,  0,255', 'magenta1?',
	'255, 20,147', 'deep[ \-]?pink1?',
	'255, 48, 48', 'firebrick1',
	'255, 52,179', 'maroon1',
	'255, 62,150', 'violetred1',
	'255, 64, 64', 'brown1',
	'255, 69,  0', 'orange[ \-]?red1?',
	'255, 99, 71', 'tomato1?',
	'255,105,180', 'hot[ \-]?pink',
	'255,106,106', 'indianred1',
	'255,110,180', 'hotpink1',
	'255,114, 86', 'coral1',
	'255,127,  0', 'darkorange1',
	'255,127, 36', 'chocolate1',
	'255,127, 80', 'coral',
	'255,130, 71', 'sienna1',
	'255,130,171', 'palevioletred1',
	'255,131,250', 'orchid1',
	'255,140,  0', 'dark[ \-]?orange',
	'255,140,105', 'salmon1',
	'255,160,122', 'light[ \-]?salmon1?',
	'255,165,  0', 'orange1?',
	'255,165, 79', 'tan1',
	'255,174,185', 'lightpink1',
	'255,181,197', 'pink1',
	'255,182,193', 'light[ \-]?pink',
	'255,185, 15', 'darkgoldenrod1',
	'255,187,255', 'plum1',
	'255,192,203', 'pink',
	'255,193, 37', 'goldenrod1',
	'255,193,193', 'rosybrown1',
	'255,211,155', 'burlywood1',
	'255,215,  0', 'gold1?',
	'255,218,185', 'peach[ \-]?puff1?',
	'255,222,173', 'navajo[ \-]?white1?',
	'255,225,255', 'thistle1',
	'255,228,181', 'moccasin',
	'255,228,196', 'bisque1?',
	'255,228,225', 'misty[ \-]?rose1?',
	'255,231,186', 'wheat1',
	'255,235,205', 'blanched[ \-]?almond',
	'255,236,139', 'lightgoldenrod1',
	'255,239,213', 'papaya[ \-]?whip',
	'255,239,219', 'antiquewhite1',
	'255,240,245', 'lavender[ \-]?blush1?',
	'255,245,238', 'seashell1?',
	'255,246,143', 'khaki1',
	'255,248,220', 'cornsilk1?',
	'255,250,205', 'lemon[ \-]?chiffon1?',
	'255,250,240', 'floral[ \-]?white',
	'255,250,250', 'snow1?',
	'255,255,  0', 'yellow1?',
	'255,255,224', 'light[ \-]?yellow1?',
	'255,255,240', 'ivory1?',
	'255,255,255', 'gr[ae]y100|white',
    );
    while (($val, $regex) = each %rgb) {
	return split(',', $val) if m/^$regex$/i;
    }

}
__END__