#!/perl/bin/perl
#
# rgb.pl -- given a color name and a hex string of 6 digits
# in typical html order, convert to a \definecolor string for
# LaTeX's color.dvi package.
#
use strict;
use warnings;
use diagnostics;

my $color = ($ARGV[0] or "xx");
$ARGV[1] =~ /(..)(..)(..)/;
my $r = hex($1);
my $g = hex($2);
my $b = hex($3);

$r /= 256.00;
$g /= 256.00;
$b /= 256.00;

print "\\definecolor{$color}{rgb}{$r,$g,$b}\n";