File Coverage

blib/lib/VRML/Color.pm

Criterion	Covered	Total	%
statement	18	44	40.9
branch	5	24	20.8
condition	0	6	0.0
subroutine	3	3	100.0
pod	0	1	0.0
total	26	78	33.3

package VRML::Color;

############################## Copyright ##############################
#								      #
# This program is Copyright 1996,1998 by Hartmut Palm.		      #
# 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.			      #
# 								      #
# If you do not have a copy of the GNU General Public License write   #
# to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,     #
# MA 02139, USA.						      #
#								      #
#######################################################################

require 5.000;
require Exporter;
use strict;
use vars qw(@ISA @EXPORT $VERSION %X11Color);
@ISA = qw(Exporter);
@EXPORT = qw(rgb_color);
$VERSION="1.03";

sub rgb_color {
    my ($string,$colorspace) = @_;
    return undef unless $string;
    my ($key,$value,$intensity,$r,$g,$b);

    ($key,$intensity) = split(/[%_]/,$string);
    if (defined $colorspace) {
	$value = $colorspace->{$key};
    } else {
	$value = $X11Color{lc($key)};
    }
    if ($value) { # ex. yellow
	    $r = $$value[0]/255;
	    $g = $$value[1]/255;
	    $b = $$value[2]/255;
    } else {
	if ($string =~ /(\d*[\.\d]+)\s+(\d*[\.\d]+)\s+(\d*[\.\d]+)/) { # ex. "100 200 255"
	    $r = $1;
	    $g = $2;
	    $b = $3;
	    if ($r>1 || $g>1 || $b>1) {
		$r /= 255;
		$g /= 255;
		$b /= 255;
	    }
	    return ("$r $g $b",$string) if wantarray;
	    return "$r $g $b";
	} elsif ($string =~ /^([A-Fa-f0-9]{6}?)/) { # ex. "FF00FF"
	    $r = hex(substr($string,0,2)) /255;
	    $g = hex(substr($string,2,2)) /255;
	    $b = hex(substr($string,4,2)) /255;
	    return ("$r $g $b",$string) if wantarray;
	    return "$r $g $b";
	} else {
	    return ("0 0 0","Invalid color \"$string\"") if wantarray;
	    return "0 0 0"; # invalid color name
	}
    }
    if (defined $intensity) {
	if ($key eq "gray" | $key eq "grey") {
	    $r = 1-$intensity/100;
	    $g = 1-$intensity/100;
	    $b = 1-$intensity/100;
	} else {
	    $r *= $intensity/100;
	    $g *= $intensity/100;
	    $b *= $intensity/100;
	}
    }
    return ("$r $g $b",$string) if wantarray;
    return "$r $g $b";
}

#--------------------------------------------------------------------

%X11Color = (
"aliceblue" => [240,248,255],
"antiquewhite" => [250,235,215],
"aqua" => [0,255,255],
"aquamarine" => [127,255,212],
"azure" => [240,255,255],
"beige" => [245,245,220],
"bisque" => [255,228,196],
"black" => [0,0,0],
"blanchedalmond" => [255,235,205],
"blue" => [0,0,255],
"blueviolet" => [138,43,226],
"brown" => [165,42,42],
"burlywood" => [222,184,135],
"cadetblue" => [95,158,160],
"chartreuse" => [127,255,0],
"chocolate" => [210,105,30],
"coral" => [255,127,80],
"cornflowerblue" => [100,149,237],
"cornsilk" => [255,248,220],
"crimson" => [220,20,60],
"cyan" => [0,255,255],
"darkblue" => [0,0,139],
"darkcyan" => [0,139,139],
"darkgoldenrod" => [184,134,11],
"darkgray" => [169,169,169],
"darkgreen" => [0,100,0],
"darkkhaki" => [189,183,107],
"darkmagenta" => [139,0,139],
"darkolivegreen" => [85,107,47],
"darkorange" => [255,140,0],
"darkorchid" => [153,50,204],
"darkred" => [139,0,0],
"darksalmon" => [233,150,122],
"darkseagreen" => [143,188,143],
"darkslateblue" => [72,61,139],
"darkslategray" => [47,79,79],
"darkturquoise" => [0,206,209],
"darkviolet" => [148,0,211],
"deeppink" => [255,20,147],
"deepskyblue" => [0,191,255],
"dimgray" => [105,105,105],
"dodgerblue" => [30,144,255],
"firebrick" => [178,34,34],
"floralwhite" => [255,250,240],
"forestgreen" => [34,139,34],
"fuchsia" => [255,0,255],
"gainsboro" => [220,220,220],
"ghostwhite" => [248,248,255],
"gold" => [255,215,0],
"goldenrod" => [218,165,32],
"gray" => [128,128,128],
"green" => [0,255,0],		# [0,128,0]
"greenyellow" => [173,255,47],
"honeydew" => [240,255,240],
"hotpink" => [255,105,180],
"indianred" => [205,92,92],
"indigo" => [75,0,130],
"ivory" => [255,255,240],
"khaki" => [240,230,140],
"lavender" => [230,230,250],
"lavenderblush" => [255,240,245],
"lawngreen" => [124,252,0],
"lemonchiffon" => [255,250,205],
"lightblue" => [173,216,230],
"lightcoral" => [240,128,128],
"lightcyan" => [224,255,255],
"lightgoldenrodyellow" => [250,250,210],
"lightgreen" => [144,238,144],
"lightgrey" => [211,211,211],
"lightpink" => [255,182,193],
"lightsalmon" => [255,160,122],
"lightseagreen" => [32,178,170],
"lightskyblue" => [135,206,250],
"lightslategray" => [119,136,153],
"lightsteelblue" => [176,196,222],
"lightyellow" => [255,255,224],
"lime" => [0,255,0],
"limegreen" => [50,205,50],
"linen" => [250,240,230],
"magenta" => [255,0,255],
"maroon" => [128,0,0],
"mediumaquamarine" => [102,205,170],
"mediumblue" => [0,0,205],
"mediumorchid" => [186,85,211],
"mediumpurple" => [147,112,219],
"mediumseagreen" => [60,179,113],
"mediumslateblue" => [123,104,238],
"mediumspringgreen" => [0,250,154],
"mediumturquoise" => [72,209,204],
"mediumvioletred" => [199,21,133],
"midnightblue" => [25,25,112],
"mintcream" => [245,255,250],
"mistyrose" => [255,228,225],
"moccasin" => [255,228,181],
"navajowhite" => [255,222,173],
"navy" => [0,0,128],
"oldlace" => [253,245,230],
"olive" => [128,128,0],
"olivedrab" => [107,142,35],
"orange" => [255,165,0],
"orangered" => [255,69,0],
"orchid" => [218,112,214],
"palegoldenrod" => [238,232,170],
"palegreen" => [152,251,152],
"paleturquoise" => [175,238,238],
"palevioletred" => [219,112,147],
"papayawhip" => [255,239,213],
"peachpuff" => [255,218,185],
"peru" => [205,133,63],
"pink" => [255,192,203],
"plum" => [221,160,221],
"powderblue" => [176,224,230],
"purple" => [128,0,128],
"red" => [255,0,0],
"rosybrown" => [188,143,143],
"royalblue" => [65,105,225],
"saddlebrown" => [139,69,19],
"salmon" => [250,128,114],
"sandybrown" => [244,164,96],
"seagreen" => [46,139,87],
"seashell" => [255,245,238],
"sienna" => [160,82,45],
"silver" => [192,192,192],
"skyblue" => [135,206,235],
"slateblue" => [106,90,205],
"slategray" => [112,128,144],
"snow" => [255,250,250],
"springgreen" => [0,255,127],
"steelblue" => [70,130,180],
"tan" => [210,180,140],
"teal" => [0,128,128],
"thistle" => [216,191,216],
"tomato" => [255,99,71],
"turquoise" => [64,224,208],
"violet" => [238,130,238],
"wheat" => [245,222,179],
"white" => [255,255,255],
"whitesmoke" => [245,245,245],
"yellow" => [255,255,0],
"yellowgreen" => [154,205,50]
);

__END__