[R-gregmisc-users] SF.net SVN: r-gregmisc:[1873] trunk/gdata/inst/perl

[<wa...@us...>]

Revision: 1873
          http://sourceforge.net/p/r-gregmisc/code/1873
Author:   warnes
Date:     2014-08-28 01:28:23 +0000 (Thu, 28 Aug 2014)
Log Message:
-----------
Update Spreadsheet::ParseExcel, add Spreadsheet:ParseXLSX, add dependencies

Modified Paths:
--------------
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/Cell.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/Dump.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/FmtDefault.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/FmtJapan.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/FmtJapan2.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/FmtUnicode.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/Font.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/Format.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/SaveParser/Workbook.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/SaveParser.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/Utility.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/Workbook.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel/Worksheet.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseExcel.pm
    trunk/gdata/inst/perl/Spreadsheet/XLSX.pm

Added Paths:
-----------
    trunk/gdata/inst/perl/Crypt/
    trunk/gdata/inst/perl/Crypt/.exists
    trunk/gdata/inst/perl/Crypt/RC4.pm
    trunk/gdata/inst/perl/Digest/
    trunk/gdata/inst/perl/Digest/Perl/
    trunk/gdata/inst/perl/Digest/Perl/MD5.pm
    trunk/gdata/inst/perl/Graphics/
    trunk/gdata/inst/perl/Graphics/ColorUtils.pm
    trunk/gdata/inst/perl/Spreadsheet/ParseXLSX.pm
    trunk/gdata/inst/perl/XML/
    trunk/gdata/inst/perl/XML/.exists
    trunk/gdata/inst/perl/XML/Twig/
    trunk/gdata/inst/perl/XML/Twig/XPath.pm
    trunk/gdata/inst/perl/XML/Twig.pm

Added: trunk/gdata/inst/perl/Crypt/.exists
===================================================================
Added: trunk/gdata/inst/perl/Crypt/RC4.pm
===================================================================
--- trunk/gdata/inst/perl/Crypt/RC4.pm	                        (rev 0)
+++ trunk/gdata/inst/perl/Crypt/RC4.pm	2014-08-28 01:28:23 UTC (rev 1873)
@@ -0,0 +1,165 @@
+#--------------------------------------------------------------------#
+# Crypt::RC4
+#       Date Written:   07-Jun-2000 04:15:55 PM
+#       Last Modified:  13-Dec-2001 03:33:49 PM 
+#       Author:         Kurt Kincaid (sif...@ya...)
+#       Copyright (c) 2001, Kurt Kincaid
+#           All Rights Reserved.
+#
+#       This is free software and may be modified and/or
+#       redistributed under the same terms as Perl itself.
+#--------------------------------------------------------------------#
+
+package Crypt::RC4;
+
+use strict;
+use vars qw( $VERSION @ISA @EXPORT $MAX_CHUNK_SIZE );
+
+$MAX_CHUNK_SIZE = 1024 unless $MAX_CHUNK_SIZE;
+
+require Exporter;
+
+@ISA     = qw(Exporter);
+@EXPORT  = qw(RC4);
+$VERSION = '2.02';
+
+sub new {
+    my ( $class, $key )  = @_;
+    my $self = bless {}, $class;
+    $self->{state} = Setup( $key );
+    $self->{x} = 0;
+    $self->{y} = 0;
+    $self;
+}
+
+sub RC4 {
+    my $self;
+    my( @state, $x, $y );
+    if ( ref $_[0] ) {
+        $self = shift;
+    @state = @{ $self->{state} };
+    $x = $self->{x};
+    $y = $self->{y};
+    } else {
+        @state = Setup( shift );
+    $x = $y = 0;
+    }
+    my $message = shift;
+    my $num_pieces = do {
+    my $num = length($message) / $MAX_CHUNK_SIZE;
+    my $int = int $num;
+    $int == $num ? $int : $int+1;
+    };
+    for my $piece ( 0..$num_pieces - 1 ) {
+    my @message = unpack "C*", substr($message, $piece * $MAX_CHUNK_SIZE, $MAX_CHUNK_SIZE);
+    for ( @message ) {
+        $x = 0 if ++$x > 255;
+        $y -= 256 if ($y += $state[$x]) > 255;
+        @state[$x, $y] = @state[$y, $x];
+        $_ ^= $state[( $state[$x] + $state[$y] ) % 256];
+    }
+    substr($message, $piece * $MAX_CHUNK_SIZE, $MAX_CHUNK_SIZE) = pack "C*", @message;
+    }
+    if ($self) {
+    $self->{state} = \@state;
+    $self->{x} = $x;
+    $self->{y} = $y;
+    }
+    $message;
+}
+
+sub Setup {
+    my @k = unpack( 'C*', shift );
+    my @state = 0..255;
+    my $y = 0;
+    for my $x (0..255) {
+    $y = ( $k[$x % @k] + $state[$x] + $y ) % 256;
+    @state[$x, $y] = @state[$y, $x];
+    }
+    wantarray ? @state : \@state;
+}
+
+
+1;
+__END__
+
+=head1 NAME
+
+Crypt::RC4 - Perl implementation of the RC4 encryption algorithm
+
+=head1 SYNOPSIS
+
+# Functional Style
+  use Crypt::RC4;
+  $encrypted = RC4( $passphrase, $plaintext );
+  $decrypt = RC4( $passphrase, $encrypted );
+  
+# OO Style
+  use Crypt::RC4;
+  $ref = Crypt::RC4->new( $passphrase );
+  $encrypted = $ref->RC4( $plaintext );
+
+  $ref2 = Crypt::RC4->new( $passphrase );
+  $decrypted = $ref2->RC4( $encrypted );
+
+# process an entire file, one line at a time
+# (Warning: Encrypted file leaks line lengths.)
+  $ref3 = Crypt::RC4->new( $passphrase );
+  while (<FILE>) {
+      chomp;
+      print $ref3->RC4($_), "\n";
+  }
+
+=head1 DESCRIPTION
+
+A simple implementation of the RC4 algorithm, developed by RSA Security, Inc. Here is the description
+from RSA's website:
+
+RC4 is a stream cipher designed by Rivest for RSA Data Security (now RSA Security). It is a variable
+key-size stream cipher with byte-oriented operations. The algorithm is based on the use of a random
+permutation. Analysis shows that the period of the cipher is overwhelmingly likely to be greater than
+10100. Eight to sixteen machine operations are required per output byte, and the cipher can be
+expected to run very quickly in software. Independent analysts have scrutinized the algorithm and it
+is considered secure.
+
+Based substantially on the "RC4 in 3 lines of perl" found at http://www.cypherspace.org
+
+A major bug in v1.0 was fixed by David Hook (dg...@wu...).  Thanks, David.
+
+=head1 AUTHOR
+
+Kurt Kincaid (sif...@ya...)
+Ronald Rivest for RSA Security, Inc.
+
+=head1 BUGS
+
+Disclaimer: Strictly speaking, this module uses the "alleged" RC4
+algorithm. The Algorithm known as "RC4" is a trademark of RSA Security
+Inc., and this document makes no claims one way or another that this
+is the correct algorithm, and further, make no claims about the
+quality of the source code nor any licensing requirements for
+commercial use.
+
+There's nothing preventing you from using this module in an insecure
+way which leaks information. For example, encrypting multilple
+messages with the same passphrase may allow an attacker to decode all of
+them with little effort, even though they'll appear to be secured. If
+serious crypto is your goal, be careful. Be very careful.
+
+It's a pure-Perl implementation, so that rating of "Eight
+to sixteen machine operations" is good for nothing but a good laugh.
+If encryption and decryption are a bottleneck for you, please re-write
+this module to use native code wherever practical.
+
+=head1 LICENSE
+
+This is free software and may be modified and/or
+redistributed under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<perl>, L<http://www.cypherspace.org>, L<http://www.rsasecurity.com>, 
+L<http://www.achtung.com/crypto/rc4.html>, 
+L<http://www.columbia.edu/~ariel/ssleay/rrc4.html>
+
+=cut

Added: trunk/gdata/inst/perl/Digest/Perl/MD5.pm
===================================================================
--- trunk/gdata/inst/perl/Digest/Perl/MD5.pm	                        (rev 0)
+++ trunk/gdata/inst/perl/Digest/Perl/MD5.pm	2014-08-28 01:28:23 UTC (rev 1873)
@@ -0,0 +1,476 @@
+package Digest::Perl::MD5;
+use strict;
+use integer;
+use Exporter;
+use vars qw($VERSION @ISA @EXPORTER @EXPORT_OK);
+
+@EXPORT_OK = qw(md5 md5_hex md5_base64);
+
+@ISA = 'Exporter';
+$VERSION = '1.9';
+
+# I-Vektor
+sub A() { 0x67_45_23_01 }
+sub B() { 0xef_cd_ab_89 }
+sub C() { 0x98_ba_dc_fe }
+sub D() { 0x10_32_54_76 }
+
+# for internal use
+sub MAX() { 0xFFFFFFFF }
+
+# pad a message to a multiple of 64
+sub padding {
+    my $l = length (my $msg = shift() . chr(128));    
+    $msg .= "\0" x (($l%64<=56?56:120)-$l%64);
+    $l = ($l-1)*8;
+    $msg .= pack 'VV', $l & MAX , ($l >> 16 >> 16);
+}
+
+
+sub rotate_left($$) {
+	#$_[0] << $_[1] | $_[0] >> (32 - $_[1]);
+	#my $right = $_[0] >> (32 - $_[1]);
+	#my $rmask = (1 << $_[1]) - 1;
+	($_[0] << $_[1]) | (( $_[0] >> (32 - $_[1])  )  & ((1 << $_[1]) - 1));
+	#$_[0] << $_[1] | (($_[0]>> (32 - $_[1])) & (1 << (32 - $_[1])) - 1);
+}
+
+sub gen_code {
+  # Discard upper 32 bits on 64 bit archs.
+  my $MSK = ((1 << 16) << 16) ? ' & ' . MAX : '';
+#	FF => "X0=rotate_left(((X1&X2)|(~X1&X3))+X0+X4+X6$MSK,X5)+X1$MSK;",
+#	GG => "X0=rotate_left(((X1&X3)|(X2&(~X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
+  my %f = (
+	FF => "X0=rotate_left((X3^(X1&(X2^X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
+	GG => "X0=rotate_left((X2^(X3&(X1^X2)))+X0+X4+X6$MSK,X5)+X1$MSK;",
+	HH => "X0=rotate_left((X1^X2^X3)+X0+X4+X6$MSK,X5)+X1$MSK;",
+	II => "X0=rotate_left((X2^(X1|(~X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
+  );
+  #unless ( (1 << 16) << 16) { %f = %{$CODES{'32bit'}} }
+  #else { %f = %{$CODES{'64bit'}} }
+
+  my %s = (  # shift lengths
+	S11 => 7, S12 => 12, S13 => 17, S14 => 22, S21 => 5, S22 => 9, S23 => 14,
+	S24 => 20, S31 => 4, S32 => 11, S33 => 16, S34 => 23, S41 => 6, S42 => 10,
+	S43 => 15, S44 => 21
+  );
+
+  my $insert = "\n";
+  while(defined( my $data = <DATA> )) {
+	chomp $data;
+	next unless $data =~ /^[FGHI]/;
+	my ($func,@x) = split /,/, $data;
+	my $c = $f{$func};
+	$c =~ s/X(\d)/$x[$1]/g;
+	$c =~ s/(S\d{2})/$s{$1}/;
+	$c =~ s/^(.*)=rotate_left\((.*),(.*)\)\+(.*)$//;
+
+	my $su = 32 - $3;
+	my $sh = (1 << $3) - 1;
+
+	$c = "$1=(((\$r=$2)<<$3)|((\$r>>$su)&$sh))+$4";
+
+	#my $rotate = "(($2 << $3) || (($2 >> (32 - $3)) & (1 << $2) - 1)))"; 
+	# $c = "\$r = $2;
+	# $1 = ((\$r << $3) | ((\$r >> (32 - $3))  & ((1 << $3) - 1))) + $4";
+	$insert .= "\t$c\n";
+  }
+  close DATA;
+  
+  my $dump = '
+  sub round {
+	my ($a,$b,$c,$d) = @_[0 .. 3];
+	my $r;' . $insert . '
+	$_[0]+$a' . $MSK . ', $_[1]+$b ' . $MSK . 
+        ', $_[2]+$c' . $MSK . ', $_[3]+$d' . $MSK . ';
+  }';
+  eval $dump;
+  # print "$dump\n";
+  # exit 0;
+}
+
+gen_code();
+
+#########################################
+# Private output converter functions:
+sub _encode_hex { unpack 'H*', $_[0] }
+sub _encode_base64 {
+	my $res;
+	while ($_[0] =~ /(.{1,45})/gs) {
+		$res .= substr pack('u', $1), 1;
+		chop $res;
+	}
+	$res =~ tr|` -_|AA-Za-z0-9+/|;#`
+	chop $res; chop $res;
+	$res
+}
+
+#########################################
+# OOP interface:
+sub new {
+	my $proto = shift;
+	my $class = ref $proto || $proto;
+	my $self = {};
+	bless $self, $class;
+	$self->reset();
+	$self
+}
+
+sub reset {
+	my $self = shift;
+	delete $self->{_data};
+	$self->{_state} = [A,B,C,D];
+	$self->{_length} = 0;
+	$self
+}
+
+sub add {
+	my $self = shift;
+	$self->{_data} .= join '', @_ if @_;
+	my ($i,$c);
+	for $i (0 .. (length $self->{_data})/64-1) {
+		my @X = unpack 'V16', substr $self->{_data}, $i*64, 64;
+		@{$self->{_state}} = round(@{$self->{_state}},@X);
+		++$c;
+	}
+	if ($c) {
+		substr ($self->{_data}, 0, $c*64) = '';
+		$self->{_length} += $c*64;
+	}
+	$self
+}
+
+sub finalize {
+	my $self = shift;
+	$self->{_data} .= chr(128);
+    my $l = $self->{_length} + length $self->{_data};
+    $self->{_data} .= "\0" x (($l%64<=56?56:120)-$l%64);
+    $l = ($l-1)*8;
+    $self->{_data} .= pack 'VV', $l & MAX , ($l >> 16 >> 16);
+	$self->add();
+	$self
+}
+
+sub addfile {
+  	my ($self,$fh) = @_;
+	if (!ref($fh) && ref(\$fh) ne "GLOB") {
+	    require Symbol;
+	    $fh = Symbol::qualify($fh, scalar caller);
+	}
+	# $self->{_data} .= do{local$/;<$fh>};
+	my $read = 0;
+	my $buffer = '';
+	$self->add($buffer) while $read = read $fh, $buffer, 8192;
+	die __PACKAGE__, " read failed: $!" unless defined $read;
+	$self
+}
+
+sub add_bits {
+	my $self = shift;
+	return $self->add( pack 'B*', shift ) if @_ == 1;
+	my ($b,$n) = @_;
+	die __PACKAGE__, " Invalid number of bits\n" if $n%8;
+	$self->add( substr $b, 0, $n/8 )
+}
+
+sub digest {
+	my $self = shift;
+	$self->finalize();
+	my $res = pack 'V4', @{$self->{_state}};
+	$self->reset();
+	$res
+}
+
+sub hexdigest {
+	_encode_hex($_[0]->digest)
+}
+
+sub b64digest {
+	_encode_base64($_[0]->digest)
+}
+
+sub clone {
+	my $self = shift;
+	my $clone = { 
+		_state => [@{$self->{_state}}],
+		_length => $self->{_length},
+		_data => $self->{_data}
+	};
+	bless $clone, ref $self || $self;
+}
+
+#########################################
+# Procedural interface:
+sub md5 {
+	my $message = padding(join'',@_);
+	my ($a,$b,$c,$d) = (A,B,C,D);
+	my $i;
+	for $i (0 .. (length $message)/64-1) {
+		my @X = unpack 'V16', substr $message,$i*64,64;	
+		($a,$b,$c,$d) = round($a,$b,$c,$d,@X);
+	}
+	pack 'V4',$a,$b,$c,$d;
+}
+sub md5_hex { _encode_hex &md5 } 
+sub md5_base64 { _encode_base64 &md5 }
+
+
+1;
+
+=head1 NAME
+
+Digest::MD5::Perl - Perl implementation of Ron Rivests MD5 Algorithm
+
+=head1 DISCLAIMER
+
+This is B<not> an interface (like C<Digest::MD5>) but a Perl implementation of MD5.
+It is written in perl only and because of this it is slow but it works without C-Code.
+You should use C<Digest::MD5> instead of this module if it is available.
+This module is only useful for
+
+=over 4
+
+=item
+
+computers where you cannot install C<Digest::MD5> (e.g. lack of a C-Compiler)
+
+=item
+
+encrypting only small amounts of data (less than one million bytes). I use it to
+hash passwords.
+
+=item
+
+educational purposes
+
+=back
+
+=head1 SYNOPSIS
+
+ # Functional style
+ use Digest::MD5  qw(md5 md5_hex md5_base64);
+
+ $hash = md5 $data;
+ $hash = md5_hex $data;
+ $hash = md5_base64 $data;
+    
+
+ # OO style
+ use Digest::MD5;
+
+ $ctx = Digest::MD5->new;
+
+ $ctx->add($data);
+ $ctx->addfile(*FILE);
+
+ $digest = $ctx->digest;
+ $digest = $ctx->hexdigest;
+ $digest = $ctx->b64digest;
+
+=head1 DESCRIPTION
+
+This modules has the same interface as the much faster C<Digest::MD5>. So you can
+easily exchange them, e.g.
+
+	BEGIN {
+	  eval {
+	    require Digest::MD5;
+	    import Digest::MD5 'md5_hex'
+	  };
+	  if ($@) { # ups, no Digest::MD5
+	    require Digest::Perl::MD5;
+	    import Digest::Perl::MD5 'md5_hex'
+	  }		
+	}
+
+If the C<Digest::MD5> module is available it is used and if not you take
+C<Digest::Perl::MD5>.
+
+You can also install the Perl part of Digest::MD5 together with Digest::Perl::MD5
+and use Digest::MD5 as normal, it falls back to Digest::Perl::MD5 if it
+cannot load its object files.
+
+For a detailed Documentation see the C<Digest::MD5> module.
+
+=head1 EXAMPLES
+
+The simplest way to use this library is to import the md5_hex()
+function (or one of its cousins):
+
+    use Digest::Perl::MD5 'md5_hex';
+    print 'Digest is ', md5_hex('foobarbaz'), "\n";
+
+The above example would print out the message
+
+    Digest is 6df23dc03f9b54cc38a0fc1483df6e21
+
+provided that the implementation is working correctly.  The same
+checksum can also be calculated in OO style:
+
+    use Digest::MD5;
+    
+    $md5 = Digest::MD5->new;
+    $md5->add('foo', 'bar');
+    $md5->add('baz');
+    $digest = $md5->hexdigest;
+    
+    print "Digest is $digest\n";
+
+The digest methods are destructive. That means you can only call them
+once and the $md5 objects is reset after use. You can make a copy with clone:
+
+	$md5->clone->hexdigest
+
+=head1 LIMITATIONS
+
+This implementation of the MD5 algorithm has some limitations:
+
+=over 4
+
+=item
+
+It's slow, very slow. I've done my very best but Digest::MD5 is still about 100 times faster.
+You can only encrypt Data up to one million bytes in an acceptable time. But it's very useful
+for encrypting small amounts of data like passwords.
+
+=item
+
+You can only encrypt up to 2^32 bits = 512 MB on 32bit archs. But You should
+use C<Digest::MD5> for those amounts of data anyway.
+
+=back
+
+=head1 SEE ALSO
+
+L<Digest::MD5>
+
+L<md5(1)>
+
+RFC 1321
+
+tools/md5: a small BSD compatible md5 tool written in pure perl.
+
+=head1 COPYRIGHT
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+ Copyright 2000 Christian Lackas, Imperia Software Solutions
+ Copyright 1998-1999 Gisle Aas.
+ Copyright 1995-1996 Neil Winton.
+ Copyright 1991-1992 RSA Data Security, Inc.
+
+The MD5 algorithm is defined in RFC 1321. The basic C code
+implementing the algorithm is derived from that in the RFC and is
+covered by the following copyright:
+
+=over 4
+
+=item
+
+Copyright (C) 1991-1992, RSA Data Security, Inc. Created 1991. All
+rights reserved.
+
+License to copy and use this software is granted provided that it
+is identified as the "RSA Data Security, Inc. MD5 Message-Digest
+Algorithm" in all material mentioning or referencing this software
+or this function.
+
+License is also granted to make and use derivative works provided
+that such works are identified as "derived from the RSA Data
+Security, Inc. MD5 Message-Digest Algorithm" in all material
+mentioning or referencing the derived work.
+
+RSA Data Security, Inc. makes no representations concerning either
+the merchantability of this software or the suitability of this
+software for any particular purpose. It is provided "as is"
+without express or implied warranty of any kind.
+
+These notices must be retained in any copies of any part of this
+documentation and/or software.
+
+=back
+
+This copyright does not prohibit distribution of any version of Perl
+containing this extension under the terms of the GNU or Artistic
+licenses.
+
+=head1 AUTHORS
+
+The original MD5 interface was written by Neil Winton
+(<N.Winton (at) axion.bt.co.uk>).
+
+C<Digest::MD5> was made by Gisle Aas <gisle (at) aas.no> (I took his Interface
+and part of the documentation).
+
+Thanks to Guido Flohr for his 'use integer'-hint.
+
+This release was made by Christian Lackas <delta (at) lackas.net>.
+
+=cut
+
+__DATA__
+FF,$a,$b,$c,$d,$_[4],7,0xd76aa478,/* 1 */
+FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756,/* 2 */
+FF,$c,$d,$a,$b,$_[6],17,0x242070db,/* 3 */
+FF,$b,$c,$d,$a,$_[7],22,0xc1bdceee,/* 4 */
+FF,$a,$b,$c,$d,$_[8],7,0xf57c0faf,/* 5 */
+FF,$d,$a,$b,$c,$_[9],12,0x4787c62a,/* 6 */
+FF,$c,$d,$a,$b,$_[10],17,0xa8304613,/* 7 */
+FF,$b,$c,$d,$a,$_[11],22,0xfd469501,/* 8 */
+FF,$a,$b,$c,$d,$_[12],7,0x698098d8,/* 9 */
+FF,$d,$a,$b,$c,$_[13],12,0x8b44f7af,/* 10 */
+FF,$c,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
+FF,$b,$c,$d,$a,$_[15],22,0x895cd7be,/* 12 */
+FF,$a,$b,$c,$d,$_[16],7,0x6b901122,/* 13 */
+FF,$d,$a,$b,$c,$_[17],12,0xfd987193,/* 14 */
+FF,$c,$d,$a,$b,$_[18],17,0xa679438e,/* 15 */
+FF,$b,$c,$d,$a,$_[19],22,0x49b40821,/* 16 */ 
+GG,$a,$b,$c,$d,$_[5],5,0xf61e2562,/* 17 */
+GG,$d,$a,$b,$c,$_[10],9,0xc040b340,/* 18 */
+GG,$c,$d,$a,$b,$_[15],14,0x265e5a51,/* 19 */
+GG,$b,$c,$d,$a,$_[4],20,0xe9b6c7aa,/* 20 */
+GG,$a,$b,$c,$d,$_[9],5,0xd62f105d,/* 21 */
+GG,$d,$a,$b,$c,$_[14],9,0x2441453,/* 22 */
+GG,$c,$d,$a,$b,$_[19],14,0xd8a1e681,/* 23 */
+GG,$b,$c,$d,$a,$_[8],20,0xe7d3fbc8,/* 24 */
+GG,$a,$b,$c,$d,$_[13],5,0x21e1cde6,/* 25 */
+GG,$d,$a,$b,$c,$_[18],9,0xc33707d6,/* 26 */
+GG,$c,$d,$a,$b,$_[7],14,0xf4d50d87,/* 27 */
+GG,$b,$c,$d,$a,$_[12],20,0x455a14ed,/* 28 */
+GG,$a,$b,$c,$d,$_[17],5,0xa9e3e905,/* 29 */
+GG,$d,$a,$b,$c,$_[6],9,0xfcefa3f8,/* 30 */
+GG,$c,$d,$a,$b,$_[11],14,0x676f02d9,/* 31 */
+GG,$b,$c,$d,$a,$_[16],20,0x8d2a4c8a,/* 32 */
+HH,$a,$b,$c,$d,$_[9],4,0xfffa3942,/* 33 */
+HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
+HH,$c,$d,$a,$b,$_[15],16,0x6d9d6122,/* 35 */
+HH,$b,$c,$d,$a,$_[18],23,0xfde5380c,/* 36 */
+HH,$a,$b,$c,$d,$_[5],4,0xa4beea44,/* 37 */
+HH,$d,$a,$b,$c,$_[8],11,0x4bdecfa9,/* 38 */
+HH,$c,$d,$a,$b,$_[11],16,0xf6bb4b60,/* 39 */
+HH,$b,$c,$d,$a,$_[14],23,0xbebfbc70,/* 40 */
+HH,$a,$b,$c,$d,$_[17],4,0x289b7ec6,/* 41 */
+HH,$d,$a,$b,$c,$_[4],11,0xeaa127fa,/* 42 */
+HH,$c,$d,$a,$b,$_[7],16,0xd4ef3085,/* 43 */
+HH,$b,$c,$d,$a,$_[10],23,0x4881d05,/* 44 */
+HH,$a,$b,$c,$d,$_[13],4,0xd9d4d039,/* 45 */
+HH,$d,$a,$b,$c,$_[16],11,0xe6db99e5,/* 46 */
+HH,$c,$d,$a,$b,$_[19],16,0x1fa27cf8,/* 47 */
+HH,$b,$c,$d,$a,$_[6],23,0xc4ac5665,/* 48 */
+II,$a,$b,$c,$d,$_[4],6,0xf4292244,/* 49 */
+II,$d,$a,$b,$c,$_[11],10,0x432aff97,/* 50 */
+II,$c,$d,$a,$b,$_[18],15,0xab9423a7,/* 51 */
+II,$b,$c,$d,$a,$_[9],21,0xfc93a039,/* 52 */
+II,$a,$b,$c,$d,$_[16],6,0x655b59c3,/* 53 */
+II,$d,$a,$b,$c,$_[7],10,0x8f0ccc92,/* 54 */
+II,$c,$d,$a,$b,$_[14],15,0xffeff47d,/* 55 */
+II,$b,$c,$d,$a,$_[5],21,0x85845dd1,/* 56 */
+II,$a,$b,$c,$d,$_[12],6,0x6fa87e4f,/* 57 */
+II,$d,$a,$b,$c,$_[19],10,0xfe2ce6e0,/* 58 */
+II,$c,$d,$a,$b,$_[10],15,0xa3014314,/* 59 */
+II,$b,$c,$d,$a,$_[17],21,0x4e0811a1,/* 60 */
+II,$a,$b,$c,$d,$_[8],6,0xf7537e82,/* 61 */
+II,$d,$a,$b,$c,$_[15],10,0xbd3af235,/* 62 */
+II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */
+II,$b,$c,$d,$a,$_[13],21,0xeb86d391,/* 64 */


Property changes on: trunk/gdata/inst/perl/Digest/Perl/MD5.pm
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Added: trunk/gdata/inst/perl/Graphics/ColorUtils.pm
===================================================================
--- trunk/gdata/inst/perl/Graphics/ColorUtils.pm	                        (rev 0)
+++ trunk/gdata/inst/perl/Graphics/ColorUtils.pm	2014-08-28 01:28:23 UTC (rev 1873)
@@ -0,0 +1,1393 @@
+
+package Graphics::ColorUtils;
+
+use 5.008003;
+use strict;
+use warnings;
+
+use Carp;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+
+our %EXPORT_TAGS = ( 'gradients' => [ qw( gradient
+					  grad2rgb
+					  available_gradients
+					  register_gradient) ],
+		     'names' => [ qw( name2rgb
+				      available_names
+				      register_name
+				      set_default_namespace
+				      get_default_namespace ) ],
+		     'all' => [ qw( rgb2yiq yiq2rgb
+				    rgb2cmy cmy2rgb
+				    rgb2hls hls2rgb
+				    rgb2hsv hsv2rgb
+				    gradient
+				    grad2rgb
+				    available_gradients
+				    register_gradient
+				    name2rgb
+				    available_names
+				    register_name
+				    set_default_namespace
+				    get_default_namespace ) ],
+		   );
+
+our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+
+our @EXPORT = qw( rgb2yiq yiq2rgb
+		  rgb2cmy cmy2rgb
+		  rgb2hls hls2rgb
+		  rgb2hsv hsv2rgb );
+
+our $VERSION = '0.17';
+
+# ==================================================
+# ++++++++++++++++++++++++++++++++++++++++++++++++++
+# ==================================================
+
+# ==================================================
+# Utility
+
+# Takes a (r,g,b) triple of numbers (possibly floats) and returns
+# - a string like '#33FF21' in scalar context
+# - a triple of corresponding integers in array context
+sub _fmt {
+  return wantarray ? map { int } @_ : sprintf( "#%02x%02x%02x", @_ );
+}
+
+# ==================================================
+# YIQ
+
+sub rgb2yiq {
+  # $r, $g, $b : 0..255
+  my ( $r, $g, $b ) = map { $_/255.0 } @_;          # Scale RGB to 0..1
+
+  my $y = 0.299*$r + 0.587*$g + 0.114*$b;
+  my $i = 0.596*$r - 0.275*$g - 0.321*$b;
+  my $q = 0.212*$r - 0.523*$g + 0.311*$b;
+
+  return ( $y, $i, $q );
+}
+
+sub yiq2rgb {
+  # $y, $i, $q : 0..1
+  my ( $y, $i, $q ) = @_;
+
+  my $r = 255.0*( $y + 0.956*$i + 0.621*$q );
+  my $g = 255.0*( $y - 0.272*$i - 0.647*$q );
+  my $b = 255.0*( $y - 1.105*$i + 1.705*$q );
+
+  return _fmt( $r, $g, $b );
+}
+
+# ==================================================
+# CMY
+
+sub rgb2cmy {
+  # $r, $g, $b : 0..255
+  my ( $r, $g, $b ) = map { $_/255.0 } @_;          # Scale RGB to 0..1
+
+  return ( 1.0 - $r, 1.0 - $g, 1.0 - $b );
+}
+
+sub cmy2rgb {
+  # $c, $m, $y : 0..1
+  my ( $c, $m, $y ) = @_;
+
+  return _fmt( 255*(1.0-$c), 255*(1.0-$m), 255*(1.0-$y) );
+}
+
+# ==================================================
+# HLS
+
+# Foley, van Dam, et al:
+# Computer Grapics-Principles and Practice (1990) p595f
+
+sub rgb2hls {
+  # $r, $g, $b : 0..255
+  #   Note special name '$bb' to avoid conflict with ($a,$b) in sort()
+  my ( $r, $g, $bb ) = map { $_/255.0 } @_;         # Scale RGB to 0..1
+
+  my ( $minc, $maxc ) = ( sort { $a <=> $b } ( $r, $g, $bb ) )[0,2];
+
+  my $m = $minc + $maxc;                            # "Mean"
+
+  if( $maxc == $minc ) { return ( 0, 0.5*$m, 0 ); } # Achromatic case
+
+  my $d = $maxc - $minc;                            # "Delta"
+  my $s = ( $m <= 1.0 ) ? $d/$m : $d/(2.0-$m );     # Saturation
+
+  my $h = 0;                                        # Hue
+  if(    $r  == $maxc ) { $h =     ( $g-$bb )/$d; }
+  elsif( $g  == $maxc ) { $h = 2 + ( $bb-$r )/$d; }
+  elsif( $bb == $maxc ) { $h = 4 + ( $r-$g )/$d; }
+  else {
+    # Never get here!
+    croak "Internal Error: Unexpected value ,$maxc, in Graphics::ColorUtils::rgb2hls( $r, $g, $bb )";
+  }
+
+  $h *= 60;                                         # Convert to degrees
+  if( $h < 0 ) { $h += 360; }                       # Ensure positive hue
+
+  return ( $h, 0.5*$m, $s );
+}
+
+sub hls2rgb {
+  # $h: 0..360 (red=0->yellow->green=120->cyan->blue=240->magenta steps of 60)
+  # $l, $s : 0..1 (inclusive)
+  my ( $h, $l, $s ) = @_;
+
+  if( $s == 0.0 ) { return _fmt(255*$l, 255*$l, 255*$l); } # achromatic (grey)
+
+# This is the INCORRECT line as it is in the book quoted above:
+# my $m2 = ( $l <= 0.5 ) ? ($l*($l+$s)) : ($l - $l*$s + $s);
+# This is the CORRECT line: (first alternative: 1 vs $l)
+  my $m2 = ( $l <= 0.5 ) ? ($l*(1+$s)) : ($l - $l*$s + $s);
+  my $m1 = 2.0*$l - $m2;
+
+  my $r = 255 * _value( $m1, $m2, $h + 120 );
+  my $g = 255 * _value( $m1, $m2, $h );
+  my $b = 255 * _value( $m1, $m2, $h - 120 );
+
+  return _fmt( $r, $g, $b );
+}
+
+sub _value {
+  my ( $n1, $n2, $hue ) = @_;
+
+  if(    $hue > 360 ) { $hue -= 360; }
+  elsif( $hue <   0 ) { $hue += 360; }
+
+  if(    $hue <  60 ) { return $n1 + $hue * ( $n2-$n1 )/60.0; }
+  elsif( $hue < 180 ) { return $n2; }
+  elsif( $hue < 240 ) { return $n1 + ( 240-$hue ) * ( $n2-$n1 )/60.0; }
+  else                { return $n1; }
+}
+
+# ==================================================
+# HSV
+
+# Foley, van Dam, et al:
+# Computer Grapics-Principles and Practice (1990) p592f
+
+sub rgb2hsv {
+  # $r, $g, $b : 0..25
+  #   Note special name '$bb' to avoid conflict with ($a,$b) in sort()
+  my ( $r, $g, $bb ) = map { $_/255.0 } @_; # Scale RGB to 0..1
+
+  my ( $minc, $maxc ) = ( sort { $a <=> $b } ( $r, $g, $bb ) )[0,2];
+
+  my $v = $maxc;                         # Value
+  my $d = $maxc - $minc;                 # "Delta"
+  my $s = ( $maxc == 0 ) ? 0 : $d/$maxc; # No saturation if R=G=B=0
+
+  if( $s == 0 ) { return ( 0, 0, $v ); } # Achromatic case
+
+  my $h = 0;                             # Hue
+  if(    $r == $maxc ) { $h =     ( $g-$bb )/$d; }
+  elsif( $g == $maxc ) { $h = 2 + ( $bb-$r )/$d; }
+  elsif( $bb == $maxc ) { $h = 4 + ( $r-$g )/$d; }
+  else {
+    # Never get here!
+    croak "Internal Error: Unexpected value ,$maxc, in Graphics::ColorUtils::rgb2hsv( $r, $g, $bb )";
+  }
+
+  $h *= 60;                              # Convert to degrees
+  if( $h < 0 ) { $h += 360; }            # Ensure positive hue
+
+  return ( $h, $s, $v );
+}
+
+sub hsv2rgb {
+  # $h: 0..360 (red=0->yellow->green=120->cyan->blue=240->magenta steps of 60)
+  #     (tolerates larger values of $h by reducing them to the standard circle)
+  # $s, $v : 0..1 (inclusive)
+  my ( $h, $s, $v ) = @_;
+
+  $v *= 255;
+  if( $s == 0 ) { return _fmt( $v, $v, $v ); } # achromatic (grey)
+
+  my $i = int( $h/60 );  # sector 0 to 5
+  my $f = ($h/60) - $i;  # fractional part of h/60
+
+  my $p = $v * ( 1 - $s );
+  my $q = $v * ( 1 - $s * $f );
+  my $t = $v * ( 1 - $s * ( 1 - $f ) );
+
+  $i %= 6;               # tolerate values of $h larger than 360
+  if(    $i==0 ) { return _fmt( $v, $t, $p ); }
+  elsif( $i==1 ) { return _fmt( $q, $v, $p ); }
+  elsif( $i==2 ) { return _fmt( $p, $v, $t ); }
+  elsif( $i==3 ) { return _fmt( $p, $q, $v ); }
+  elsif( $i==4 ) { return _fmt( $t, $p, $v ); }
+  elsif( $i==5 ) { return _fmt( $v, $p, $q ); }
+  else { 
+    # Never get here!
+    croak "Internal Error: Unexpected value ,$i, in Graphics::ColorUtils::hsv2rgb( $h, $s, $v )";
+  }
+}
+
+# ==================================================
+# Gradients
+
+# Gradients grey, heat, map, and rainbow have been inspired by similar 
+# ideas in Yorick. 
+# For Yorick, cf http://yorick.sourceforge.net 
+# and also http://www.maumae.net/yorick/doc/index.php
+# as well as http://www.mhatt.aps.anl.gov/dohn/software/yorick/
+
+BEGIN {
+my %_gradients = (
+		  'grey' => [
+	[  0,  0,  0],[  1,  1,  1],[  2,  2,  2],[  3,  3,  3],[  4,  4,  4],
+	[  5,  5,  5],[  6,  6,  6],[  7,  7,  7],[  9,  9,  9],[ 10, 10, 10],
+	[ 11, 11, 11],[ 12, 12, 12],[ 13, 13, 13],[ 14, 14, 14],[ 15, 15, 15],
+	[ 16, 16, 16],[ 17, 17, 17],[ 18, 18, 18],[ 19, 19, 19],[ 20, 20, 20],
+	[ 21, 21, 21],[ 22, 22, 22],[ 23, 23, 23],[ 25, 25, 25],[ 26, 26, 26],
+	[ 27, 27, 27],[ 28, 28, 28],[ 29, 29, 29],[ 30, 30, 30],[ 31, 31, 31],
+	[ 32, 32, 32],[ 33, 33, 33],[ 34, 34, 34],[ 35, 35, 35],[ 36, 36, 36],
+	[ 37, 37, 37],[ 38, 38, 38],[ 39, 39, 39],[ 41, 41, 41],[ 42, 42, 42],
+	[ 43, 43, 43],[ 44, 44, 44],[ 45, 45, 45],[ 46, 46, 46],[ 47, 47, 47],
+	[ 48, 48, 48],[ 49, 49, 49],[ 50, 50, 50],[ 51, 51, 51],[ 52, 52, 52],
+	[ 53, 53, 53],[ 54, 54, 54],[ 55, 55, 55],[ 57, 57, 57],[ 58, 58, 58],
+	[ 59, 59, 59],[ 60, 60, 60],[ 61, 61, 61],[ 62, 62, 62],[ 63, 63, 63],
+	[ 64, 64, 64],[ 65, 65, 65],[ 66, 66, 66],[ 67, 67, 67],[ 68, 68, 68],
+	[ 69, 69, 69],[ 70, 70, 70],[ 71, 71, 71],[ 73, 73, 73],[ 74, 74, 74],
+	[ 75, 75, 75],[ 76, 76, 76],[ 77, 77, 77],[ 78, 78, 78],[ 79, 79, 79],
+	[ 80, 80, 80],[ 81, 81, 81],[ 82, 82, 82],[ 83, 83, 83],[ 84, 84, 84],
+	[ 85, 85, 85],[ 86, 86, 86],[ 87, 87, 87],[ 89, 89, 89],[ 90, 90, 90],
+	[ 91, 91, 91],[ 92, 92, 92],[ 93, 93, 93],[ 94, 94, 94],[ 95, 95, 95],
+	[ 96, 96, 96],[ 97, 97, 97],[ 98, 98, 98],[ 99, 99, 99],[100,100,100],
+	[101,101,101],[102,102,102],[103,103,103],[105,105,105],[106,106,106],
+	[107,107,107],[108,108,108],[109,109,109],[110,110,110],[111,111,111],
+	[112,112,112],[113,113,113],[114,114,114],[115,115,115],[116,116,116],
+	[117,117,117],[118,118,118],[119,119,119],[121,121,121],[122,122,122],
+	[123,123,123],[124,124,124],[125,125,125],[126,126,126],[127,127,127],
+	[128,128,128],[129,129,129],[130,130,130],[131,131,131],[132,132,132],
+	[133,133,133],[134,134,134],[135,135,135],[137,137,137],[138,138,138],
+	[139,139,139],[140,140,140],[141,141,141],[142,142,142],[143,143,143],
+	[144,144,144],[145,145,145],[146,146,146],[147,147,147],[148,148,148],
+	[149,149,149],[150,150,150],[151,151,151],[153,153,153],[154,154,154],
+	[155,155,155],[156,156,156],[157,157,157],[158,158,158],[159,159,159],
+	[160,160,160],[161,161,161],[162,162,162],[163,163,163],[164,164,164],
+	[165,165,165],[166,166,166],[167,167,167],[169,169,169],[170,170,170],
+	[171,171,171],[172,172,172],[173,173,173],[174,174,174],[175,175,175],
+	[176,176,176],[177,177,177],[178,178,178],[179,179,179],[180,180,180],
+	[181,181,181],[182,182,182],[183,183,183],[185,185,185],[186,186,186],
+	[187,187,187],[188,188,188],[189,189,189],[190,190,190],[191,191,191],
+	[192,192,192],[193,193,193],[194,194,194],[195,195,195],[196,196,196],
+	[197,197,197],[198,198,198],[199,199,199],[201,201,201],[202,202,202],
+	[203,203,203],[204,204,204],[205,205,205],[206,206,206],[207,207,207],
+	[208,208,208],[209,209,209],[210,210,210],[211,211,211],[212,212,212],
+	[213,213,213],[214,214,214],[215,215,215],[217,217,217],[218,218,218],
+	[219,219,219],[220,220,220],[221,221,221],[222,222,222],[223,223,223],
+	[224,224,224],[225,225,225],[226,226,226],[227,227,227],[228,228,228],
+	[229,229,229],[230,230,230],[231,231,231],[233,233,233],[234,234,234],
+	[235,235,235],[236,236,236],[237,237,237],[238,238,238],[239,239,239],
+	[240,240,240],[241,241,241],[242,242,242],[243,243,243],[244,244,244],
+	[245,245,245],[246,246,246],[247,247,247],[249,249,249],[250,250,250],
+	[251,251,251],[252,252,252],[253,253,253],[254,254,254],[255,255,255]
+			    ],
+		  'heat' => [
+	[  0,  0,  0],[  1,  0,  0],[  2,  0,  0],[  4,  0,  0],[  5,  0,  0],
+	[  7,  0,  0],[  8,  0,  0],[ 10,  0,  0],[ 11,  0,  0],[ 13,  0,  0],
+	[ 15,  0,  0],[ 17,  0,  0],[ 18,  0,  0],[ 20,  0,  0],[ 21,  0,  0],
+	[ 23,  0,  0],[ 24,  0,  0],[ 26,  0,  0],[ 27,  0,  0],[ 28,  0,  0],
+	[ 30,  0,  0],[ 31,  0,  0],[ 33,  0,  0],[ 34,  0,  0],[ 36,  0,  0],
+	[ 37,  0,  0],[ 39,  0,  0],[ 40,  0,  0],[ 42,  0,  0],[ 43,  0,  0],
+	[ 46,  0,  0],[ 47,  0,  0],[ 49,  0,  0],[ 50,  0,  0],[ 52,  0,  0],
+	[ 53,  0,  0],[ 55,  0,  0],[ 56,  0,  0],[ 57,  0,  0],[ 59,  0,  0],
+	[ 60,  0,  0],[ 62,  0,  0],[ 63,  0,  0],[ 65,  0,  0],[ 66,  0,  0],
+	[ 68,  0,  0],[ 69,  0,  0],[ 70,  0,  0],[ 72,  0,  0],[ 73,  0,  0],
+	[ 76,  0,  0],[ 78,  0,  0],[ 79,  0,  0],[ 81,  0,  0],[ 82,  0,  0],
+	[ 84,  0,  0],[ 85,  0,  0],[ 86,  0,  0],[ 88,  0,  0],[ 89,  0,  0],
+	[ 92,  0,  0],[ 94,  0,  0],[ 95,  0,  0],[ 97,  0,  0],[ 98,  0,  0],
+	[ 99,  0,  0],[101,  0,  0],[102,  0,  0],[104,  0,  0],[105,  0,  0],
+	[108,  0,  0],[110,  0,  0],[111,  0,  0],[113,  0,  0],[114,  0,  0],
+	[115,  0,  0],[117,  0,  0],[118,  0,  0],[120,  0,  0],[121,  0,  0],
+	[123,  0,  0],[124,  0,  0],[126,  0,  0],[127,  0,  0],[128,  0,  0],
+	[130,  0,  0],[131,  0,  0],[133,  0,  0],[134,  0,  0],[136,  0,  0],
+	[139,  0,  0],[140,  0,  0],[141,  0,  0],[143,  0,  0],[144,  0,  0],
+	[146,  0,  0],[147,  0,  0],[149,  0,  0],[150,  0,  0],[152,  0,  0],
+	[153,  0,  0],[155,  0,  0],[156,  0,  0],[157,  0,  0],[159,  0,  0],
+	[160,  0,  0],[162,  0,  0],[163,  0,  0],[165,  0,  0],[166,  0,  0],
+	[169,  0,  0],[170,  0,  0],[172,  0,  0],[173,  0,  0],[175,  1,  0],
+	[176,  3,  0],[178,  5,  0],[179,  7,  0],[181,  9,  0],[182, 11,  0],
+	[185, 15,  0],[186, 17,  0],[188, 18,  0],[189, 20,  0],[191, 22,  0],
+	[192, 24,  0],[194, 26,  0],[195, 28,  0],[197, 30,  0],[198, 32,  0],
+	[201, 35,  0],[202, 37,  0],[204, 39,  0],[205, 41,  0],[207, 43,  0],
+	[208, 45,  0],[210, 47,  0],[211, 49,  0],[212, 51,  0],[214, 52,  0],
+	[215, 54,  0],[217, 56,  0],[218, 58,  0],[220, 60,  0],[221, 62,  0],
+	[223, 64,  0],[224, 66,  0],[226, 68,  0],[227, 69,  0],[228, 71,  0],
+	[231, 75,  0],[233, 77,  0],[234, 79,  0],[236, 81,  0],[237, 83,  0],
+	[239, 85,  0],[240, 86,  0],[241, 88,  0],[243, 90,  0],[244, 92,  0],
+	[246, 94,  0],[247, 96,  0],[249, 98,  0],[250,100,  0],[252,102,  0],
+	[253,103,  0],[255,105,  0],[255,107,  0],[255,109,  0],[255,111,  0],
+	[255,115,  0],[255,117,  0],[255,119,  0],[255,120,  0],[255,122,  0],
+	[255,124,  0],[255,126,  0],[255,128,  0],[255,130,  0],[255,132,  0],
+	[255,136,  7],[255,137, 11],[255,139, 15],[255,141, 19],[255,143, 23],
+	[255,145, 27],[255,147, 31],[255,149, 35],[255,151, 39],[255,153, 43],
+	[255,156, 51],[255,158, 54],[255,160, 58],[255,162, 62],[255,164, 66],
+	[255,166, 70],[255,168, 74],[255,170, 78],[255,171, 82],[255,173, 86],
+	[255,175, 90],[255,177, 94],[255,179, 98],[255,181,102],[255,183,105],
+	[255,185,109],[255,187,113],[255,188,117],[255,190,121],[255,192,125],
+	[255,196,133],[255,198,137],[255,200,141],[255,202,145],[255,204,149],
+	[255,205,153],[255,207,156],[255,209,160],[255,211,164],[255,213,168],
+	[255,215,172],[255,217,176],[255,219,180],[255,221,184],[255,222,188],
+	[255,224,192],[255,226,196],[255,228,200],[255,230,204],[255,232,207],
+	[255,236,215],[255,238,219],[255,239,223],[255,241,227],[255,243,231],
+	[255,245,235],[255,247,239],[255,249,243],[255,251,247],[255,253,251]
+			    ],
+		  'map' =>  [
+	[  0,  0,  0],[  0,  0, 46],[  0,  0, 58],[  0,  0, 69],[  0,  0, 81],
+	[  0,  0, 92],[  0,  0,104],[  0,  0,116],[  0,  3,116],[  1,  6,116],
+	[  2,  8,116],[  2, 11,116],[  3, 13,117],[  4, 16,117],[  5, 18,117],
+	[  5, 21,117],[  6, 23,117],[  7, 26,118],[  8, 28,118],[  8, 31,118],
+	[  9, 33,118],[ 10, 36,118],[ 11, 38,119],[ 11, 41,119],[ 12, 43,119],
+	[ 13, 45,119],[ 14, 48,119],[ 15, 50,120],[ 15, 52,120],[ 16, 55,120],
+	[ 17, 57,120],[ 18, 59,120],[ 18, 61,121],[ 19, 64,121],[ 20, 66,121],
+	[ 21, 68,121],[ 22, 70,121],[ 22, 72,122],[ 23, 74,122],[ 24, 77,122],
+	[ 25, 79,122],[ 26, 81,122],[ 26, 83,123],[ 27, 85,123],[ 28, 87,123],
+	[ 29, 89,123],[ 30, 91,123],[ 31, 93,124],[ 31, 95,124],[ 32, 97,124],
+	[ 33, 99,124],[ 34,100,124],[ 35,102,125],[ 36,104,125],[ 36,106,125],
+	[ 37,108,125],[ 38,109,125],[ 39,111,126],[ 40,113,126],[ 41,115,126],
+	[ 41,116,126],[ 42,118,126],[ 43,120,127],[ 44,121,127],[ 45,123,127],
+	[ 46,125,127],[ 47,126,127],[ 48,128,128],[ 48,128,126],[ 48,129,125],
+	[ 49,129,124],[ 49,130,123],[ 50,131,122],[ 50,131,120],[ 51,132,119],
+	[ 51,133,118],[ 52,133,117],[ 52,134,115],[ 53,134,114],[ 53,135,113],
+	[ 54,136,111],[ 54,136,110],[ 55,137,109],[ 55,138,108],[ 56,138,106],
+	[ 56,139,105],[ 57,140,104],[ 57,140,102],[ 58,141,101],[ 58,141,100],
+	[ 59,142, 98],[ 59,143, 97],[ 60,143, 96],[ 61,144, 94],[ 61,145, 93],
+	[ 62,145, 92],[ 62,146, 90],[ 63,146, 89],[ 63,147, 88],[ 64,148, 86],
+	[ 64,148, 85],[ 65,149, 84],[ 65,150, 82],[ 66,150, 81],[ 67,151, 80],
+	[ 67,151, 78],[ 68,152, 77],[ 68,153, 76],[ 69,153, 74],[ 69,154, 73],
+	[ 70,155, 71],[ 71,155, 70],[ 73,156, 71],[ 76,156, 72],[ 78,157, 72],
+	[ 81,158, 73],[ 83,158, 73],[ 86,159, 74],[ 88,160, 75],[ 91,160, 75],
+	[ 94,161, 76],[ 96,161, 76],[ 99,162, 77],[101,163, 77],[104,163, 78],
+	[106,164, 79],[109,165, 79],[111,165, 80],[114,166, 80],[117,166, 81],
+	[119,167, 82],[121,168, 82],[122,168, 82],[124,168, 83],[126,169, 83],
+	[128,169, 83],[129,170, 84],[131,170, 84],[133,171, 84],[135,171, 85],
+	[136,172, 85],[138,172, 85],[140,172, 86],[141,173, 86],[143,173, 86],
+	[145,174, 87],[147,174, 87],[149,175, 87],[150,175, 88],[152,175, 88],
+	[154,176, 88],[156,176, 89],[157,177, 89],[159,177, 89],[161,178, 90],
+	[163,178, 90],[165,179, 90],[166,179, 91],[168,179, 91],[170,180, 91],
+	[172,180, 92],[174,181, 92],[175,181, 92],[177,182, 93],[179,182, 93],
+	[181,183, 93],[183,183, 94],[183,182, 94],[184,181, 94],[184,181, 95],
+	[185,180, 95],[185,179, 95],[186,178, 96],[186,177, 96],[187,176, 97],
+	[187,175, 97],[187,174, 97],[188,173, 98],[188,172, 98],[189,171, 98],
+	[189,170, 99],[190,169, 99],[190,168, 99],[190,167,100],[191,166,100],
+	[191,165,100],[192,164,101],[192,163,101],[193,163,104],[195,164,106],
+	[196,164,108],[197,165,111],[198,165,113],[199,166,116],[201,167,118],
+	[202,167,121],[203,168,123],[204,169,126],[205,170,129],[207,171,131],
+	[208,172,134],[209,173,137],[210,174,139],[211,175,142],[213,176,145],
+	[214,177,148],[215,178,150],[216,179,153],[217,181,156],[219,182,159],
+	[220,184,162],[221,185,165],[222,187,168],[223,188,170],[225,190,173],
+	[226,192,176],[227,194,179],[228,196,182],[229,198,185],[231,200,189],
+	[232,202,192],[233,204,195],[234,206,198],[235,208,201],[237,211,204],
+	[238,213,207],[239,215,211],[240,218,214],[241,221,217],[243,223,220],
+	[244,226,224],[245,229,227],[246,232,230],[247,235,234],[249,238,237],
+	[250,241,241],[251,244,244],[252,248,248],[253,251,251],[255,255,255]
+				    ],
+		  'rainbow' => [
+	[255,  0, 42],[255,  0, 36],[255,  0, 31],[255,  0, 26],[255,  0, 20],
+	[255,  0, 15],[255,  0, 10],[255,  0,  4],[255,  5,  0],[255, 11,  0],
+	[255, 16,  0],[255, 22,  0],[255, 27,  0],[255, 32,  0],[255, 38,  0],
+	[255, 43,  0],[255, 48,  0],[255, 54,  0],[255, 59,  0],[255, 65,  0],
+	[255, 70,  0],[255, 75,  0],[255, 81,  0],[255, 91,  0],[255, 97,  0],
+	[255,102,  0],[255,108,  0],[255,113,  0],[255,118,  0],[255,124,  0],
+	[255,129,  0],[255,135,  0],[255,140,  0],[255,145,  0],[255,151,  0],
+	[255,156,  0],[255,161,  0],[255,167,  0],[255,178,  0],[255,183,  0],
+	[255,188,  0],[255,194,  0],[255,199,  0],[255,204,  0],[255,210,  0],
+	[255,215,  0],[255,221,  0],[255,226,  0],[255,231,  0],[255,237,  0],
+	[255,242,  0],[255,247,  0],[255,253,  0],[245,255,  0],[240,255,  0],
+	[235,255,  0],[229,255,  0],[224,255,  0],[219,255,  0],[213,255,  0],
+	[208,255,  0],[202,255,  0],[197,255,  0],[192,255,  0],[186,255,  0],
+	[181,255,  0],[175,255,  0],[170,255,  0],[159,255,  0],[154,255,  0],
+	[149,255,  0],[143,255,  0],[138,255,  0],[132,255,  0],[127,255,  0],
+	[122,255,  0],[116,255,  0],[111,255,  0],[106,255,  0],[100,255,  0],
+	[ 95,255,  0],[ 89,255,  0],[ 84,255,  0],[ 73,255,  0],[ 68,255,  0],
+	[ 63,255,  0],[ 57,255,  0],[ 52,255,  0],[ 46,255,  0],[ 41,255,  0],
+	[ 36,255,  0],[ 30,255,  0],[ 25,255,  0],[ 19,255,  0],[ 14,255,  0],
+	[  9,255,  0],[  3,255,  0],[  0,255,  1],[  0,255, 12],[  0,255, 17],
+	[  0,255, 23],[  0,255, 28],[  0,255, 33],[  0,255, 39],[  0,255, 44],
+	[  0,255, 49],[  0,255, 55],[  0,255, 60],[  0,255, 66],[  0,255, 71],
+	[  0,255, 76],[  0,255, 82],[  0,255, 87],[  0,255, 98],[  0,255,103],
+	[  0,255,109],[  0,255,114],[  0,255,119],[  0,255,125],[  0,255,130],
+	[  0,255,135],[  0,255,141],[  0,255,146],[  0,255,152],[  0,255,157],
+	[  0,255,162],[  0,255,168],[  0,255,173],[  0,255,184],[  0,255,189],
+	[  0,255,195],[  0,255,200],[  0,255,205],[  0,255,211],[  0,255,216],
+	[  0,255,222],[  0,255,227],[  0,255,232],[  0,255,238],[  0,255,243],
+	[  0,255,248],[  0,255,254],[  0,250,255],[  0,239,255],[  0,234,255],
+	[  0,228,255],[  0,223,255],[  0,218,255],[  0,212,255],[  0,207,255],
+	[  0,201,255],[  0,196,255],[  0,191,255],[  0,185,255],[  0,180,255],
+	[  0,174,255],[  0,169,255],[  0,164,255],[  0,153,255],[  0,148,255],
+	[  0,142,255],[  0,137,255],[  0,131,255],[  0,126,255],[  0,121,255],
+	[  0,115,255],[  0,110,255],[  0,105,255],[  0, 99,255],[  0, 94,255],
+	[  0, 88,255],[  0, 83,255],[  0, 78,255],[  0, 67,255],[  0, 62,255],
+	[  0, 56,255],[  0, 51,255],[  0, 45,255],[  0, 40,255],[  0, 35,255],
+	[  0, 29,255],[  0, 24,255],[  0, 18,255],[  0, 13,255],[  0,  8,255],
+	[  0,  2,255],[  2,  0,255],[  7,  0,255],[ 18,  0,255],[ 24,  0,255],
+	[ 29,  0,255],[ 34,  0,255],[ 40,  0,255],[ 45,  0,255],[ 50,  0,255],
+	[ 56,  0,255],[ 61,  0,255],[ 67,  0,255],[ 72,  0,255],[ 77,  0,255],
+	[ 83,  0,255],[ 88,  0,255],[ 93,  0,255],[104,  0,255],[110,  0,255],
+	[115,  0,255],[120,  0,255],[126,  0,255],[131,  0,255],[136,  0,255],
+	[142,  0,255],[147,  0,255],[153,  0,255],[158,  0,255],[163,  0,255],
+	[169,  0,255],[174,  0,255],[180,  0,255],[190,  0,255],[196,  0,255],
+	[201,  0,255],[206,  0,255],[212,  0,255],[217,  0,255],[223,  0,255],
+	[228,  0,255],[233,  0,255],[239,  0,255],[244,  0,255],[249,  0,255],
+	[255,  0,254],[255,  0,249],[255,  0,243],[255,  0,233],[255,  0,227],
+	[255,  0,222],[255,  0,217],[255,  0,211],[255,  0,206],[255,  0,201]
+			    ]
+		 );
+
+# Returns a hash: gradient-name => color-count
+sub available_gradients {
+  return map { $_, scalar( @{ $_gradients{$_} } ) } keys %_gradients;
+}
+
+# Returns array-ref of rgb-triples, undef if gradient-name not found
+sub gradient {
+  my ( $name ) = @_;
+
+  unless( exists $_gradients{ $name } ) { return; }
+
+  return $_gradients{$name};
+}
+
+# Returns the color corresponding to the position in the gradient given by f.
+# Returns undef when gradient not found or f outside valid range.
+sub grad2rgb {
+  my ( $name, $frac ) = @_;
+
+  unless( exists $_gradients{ $name } ) { return; }
+  if( $frac < 0.0 || $frac >= 1.0 ) { return; }
+
+  my $idx = int( $frac * scalar( @{$_gradients{$name}} ) );
+  return _fmt( @{ $_gradients{$name}[$idx] } );
+}
+
+# Expects a gradient and and array-ref to an array of rgb triples.
+# If the name already exists, the function returns the old array; undef otherws
+sub register_gradient {
+  my ( $name, $array_ref ) = @_;
+
+  if( exists $_gradients{ $name } ) {
+    my $old = $_gradients{ $name };
+    $_gradients{ $name } = $array_ref;
+    return $old;
+  }
+
+  $_gradients{ $name } = $array_ref;
+  return undef;
+}
+
+} # end BEGIN (Gradients)
+
+# ==================================================
+# Names
+
+BEGIN {
+
+my $_default_namespace = 'x11';
+
+my %_colors = (
+  'www:aqua'    => [  0,255,255],'www:black'   => [  0,  0,  0],
+  'www:blue'    => [  0,  0,255],'www:fuchsia' => [255,  0,255],
+  'www:gray'    => [190,190,190],'www:green'   => [  0,128,  0],
+  'www:lime'    => [  0,255,  0],'www:maroon'  => [128,  0,  0],
+  'www:navy'    => [  0,  0,128],'www:olive'   => [128,128,  0],
+  'www:purple'  => [128,  0,128],'www:red'     => [255,  0,  0],
+  'www:silver'  => [192,192,192],'www:teal'    => [  0,128,128],
+  'www:white'   => [255,255,255],'www:yellow'  => [255,255,  0],
+  'www:orange'  => [255,165,  0],
+
+'svg:palevioletred' => [219,112,147],'svg:mediumslateblue' => [123,104,238],
+'svg:gold' => [255,215,0],'svg:gainsboro' => [220,220,220],
+'svg:yellow' => [255,255,0],'svg:limegreen' => [50,205,50],
+'svg:lightgoldenrodyellow' => [250,250,210],'svg:lavenderblush' => [255,240,245],
+'svg:darkmagenta' => [139,0,139],'svg:darkgrey' => [169,169,169],
+'svg:blanchedalmond' => [255,235,205],'svg:ghostwhite' => [248,248,255],
+'svg:floralwhite' => [255,250,240],'svg:coral' => [255,127,80],
+'svg:honeydew' => [240,255,240],'svg:mistyrose' => [255,228,225],
+'svg:slateblue' => [106,90,205],'svg:goldenrod' => [218,165,32],
+'svg:darkcyan' => [0,139,139],'svg:moccasin' => [255,228,181],
+'svg:mediumvioletred' => [199,21,133],'svg:maroon' => [128,0,0],
+'svg:lightpink' => [255,182,193],'svg:lightsalmon' => [255,160,122],
+'svg:paleturquoise' => [175,238,238],'svg:darksalmon' => [233,150,122],
+'svg:yellowgreen' => [154,205,50],'svg:mediumturquoise' => [72,209,204],
+'svg:chartreuse' => [127,255,0],'svg:peru' => [205,133,63],
+'svg:palegoldenrod' => [238,232,170],'svg:red' => [255,0,0],
+'svg:lavender' => [230,230,250],'svg:lightseagreen' => [32,178,170],
+'svg:powderblue' => [176,224,230],'svg:orchid' => [218,112,214],
+'svg:cornsilk' => [255,248,220],'svg:seagreen' => [46,139,87],
+'svg:royalblue' => [65,105,225],'svg:ivory' => [255,255,240],
+'svg:tan' => [210,180,140],'svg:linen' => [250,240,230],
+'svg:darkorchid' => [153,50,204],'svg:tomato' => [255,99,71],
+'svg:lightcyan' => [224,255,255],'svg:darkolivegreen' => [85,107,47],
+'svg:sienna' => [160,82,45],'svg:lightsteelblue' => [176,196,222],
+'svg:indigo' => [75,0,130],'svg:peachpuff' => [255,218,185],
+'svg:lime' => [0,255,0],'svg:mediumspringgreen' => [0,250,154],
+'svg:silver' => [192,192,192],'svg:saddlebrown' => [139,69,19],
+'svg:lightyellow' => [255,255,224],'svg:grey' => [128,128,128],
+'svg:thistle' => [216,191,216],'svg:deepskyblue' => [0,191,255],
+'svg:lightgreen' => [144,238,144],'svg:blueviolet' => [138,43,226],
+'svg:aqua' => [0,255,255],'svg:cyan' => [0,255,255],
+'svg:papayawhip' => [255,239,213],'svg:deeppink' => [255,20,147],
+'svg:firebrick' => [178,34,34],'svg:navy' => [0,0,128],
+'svg:hotpink' => [255,105,180],'svg:pink' => [255,192,203],
+'svg:darkturquoise' => [0,206,209],'svg:navajowhite' => [255,222,173],
+'svg:lightslategrey' => [119,136,153],'svg:lawngreen' => [124,252,0],
+'svg:lightcoral' => [240,128,128],'svg:palegreen' => [152,251,152],
+'svg:dodgerblue' => [30,144,255],'svg:greenyellow' => [173,255,47],
+'svg:lightskyblue' => [135,206,250],'svg:brown' => [165,42,42],
+'svg:dimgrey' => [105,105,105],'svg:aquamarine' => [127,255,212],
+'svg:darkseagreen' => [143,188,143],'svg:fuchsia' => [255,0,255],
+'svg:magenta' => [255,0,255],'svg:chocolate' => [210,105,30],
+'svg:mediumseagreen' => [60,179,113],'svg:cadetblue' => [95,158,160],
+'svg:purple' => [128,0,128],'svg:turquoise' => [64,224,208],
+'svg:darkkhaki' => [189,183,107],'svg:antiquewhite' => [250,235,215],
+'svg:skyblue' => [135,206,235],'svg:sandybrown' => [244,164,96],
+'svg:mediumblue' => [0,0,205],'svg:steelblue' => [70,130,180],
+'svg:indianred' => [205,92,92],'svg:khaki' => [240,230,140],
+'svg:lightblue' => [173,216,230],'svg:green' => [0,128,0],
+'svg:olive' => [128,128,0],'svg:mediumorchid' => [186,85,211],
+'svg:blue' => [0,0,255],'svg:snow' => [255,250,250],
+'svg:rosybrown' => [188,143,143],'svg:orange' => [255,165,0],
+'svg:slategrey' => [112,128,144],'svg:darkorange' => [255,140,0],
+'svg:violet' => [238,130,238],'svg:darkslategrey' => [47,79,79],
+'svg:whitesmoke' => [245,245,245],'svg:burlywood' => [222,184,135],
+'svg:darkgreen' => [0,100,0],'svg:lemonchiffon' => [255,250,205],
+'svg:midnightblue' => [25,25,112],'svg:mintcream' => [245,255,250],
+'svg:oldlace' => [253,245,230],'svg:black' => [0,0,0],
+'svg:bisque' => [255,228,196],'svg:mediumaquamarine' => [102,205,170],
+'svg:olivedrab' => [107,142,35],'svg:salmon' => [250,128,114],
+'svg:teal' => [0,128,128],'svg:seashell' => [255,245,238],
+'svg:springgreen' => [0,255,127],'svg:plum' => [221,160,221],
+'svg:darkviolet' => [148,0,211],'svg:wheat' => [245,222,179],
+'svg:mediumpurple' => [147,112,219],'svg:cornflowerblue' => [100,149,237],
+'svg:forestgreen' => [34,139,34],'svg:darkgoldenrod' => [184,134,11],
+'svg:aliceblue' => [240,248,255],'svg:white' => [255,255,255],
+'svg:darkblue' => [0,0,139],'svg:azure' => [240,255,255],
+'svg:darkred' => [139,0,0],'svg:orangered' => [255,69,0],
+'svg:darkslateblue' => [72,61,139],'svg:crimson' => [220,20,60],
+'svg:lightgrey' => [211,211,211],'svg:beige' => [245,245,220],
+
+'x11:deepskyblue3' => [0,154,205],'x11:gold' => [255,215,0],
+'x11:gold1' => [255,215,0],'x11:mediumpurple3' => [137,104,205],
+'x11:royalblue3' => [58,95,205],'x11:lightgoldenrodyellow' => [250,250,210],
+'x11:lavenderblush' => [255,240,245],'x11:lavenderblush1' => [255,240,245],
+'x11:pink1' => [255,181,197],'x11:green3' => [0,205,0],
+'x11:lightsteelblue1' => [202,225,255],'x11:blanchedalmond' => [255,235,205],
+'x11:salmon1' => [255,140,105],'x11:ghostwhite' => [248,248,255],
+'x11:floralwhite' => [255,250,240],'x11:dodgerblue4' => [16,78,139],
+'x11:grey43' => [110,110,110],'x11:indianred4' => [139,58,58],
+'x11:mistyrose1' => [255,228,225],'x11:mistyrose' => [255,228,225],
+'x11:dodgerblue2' => [28,134,238],'x11:grey37' => [94,94,94],
+'x11:grey9' => [23,23,23],'x11:purple4' => [85,26,139],
+'x11:orchid2' => [238,122,233],'x11:cornsilk3' => [205,200,177],
+'x11:goldenrod' => [218,165,32],'x11:hotpink4' => [139,58,98],
+'x11:lightpink' => [255,182,193],'x11:coral2' => [238,106,80],
+'x11:cyan2' => [0,238,238],'x11:grey87' => [222,222,222],
+'x11:grey91' => [232,232,232],'x11:violetred4' => [139,34,82],
+'x11:violetred2' => [238,58,140],'x11:indianred2' => [238,99,99],
+'x11:lightyellow3' => [205,205,180],'x11:darkolivegreen2' => [188,238,104],
+'x11:magenta3' => [205,0,205],'x11:grey64' => [163,163,163],
+'x11:honeydew3' => [193,205,193],'x11:lightsalmon3' => [205,129,98],
+'x11:springgreen4' => [0,139,69],'x11:grey57' => [145,145,145],
+'x11:grey50' => [127,127,127],'x11:grey66' => [168,168,168],
+'x11:antiquewhite1' => [255,239,219],'x11:paleturquoise' => [175,238,238],
+'x11:navajowhite2' => [238,207,161],'x11:lightpink3' => [205,140,149],
+'x11:darksalmon' => [233,150,122],'x11:grey52' => [133,133,133],
+'x11:slategrey3' => [159,182,205],'x11:darkseagreen4' => [105,139,105],
+'x11:chartreuse' => [127,255,0],'x11:chartreuse1' => [127,255,0],
+'x11:grey42' => [107,107,107],'x11:peru' => [205,133,63],
+'x11:tan3' => [205,133,63],'x11:grey19' => [48,48,48],
+'x11:palegreen3' => [124,205,124],'x11:lavender' => [230,230,250],
+'x11:red3' => [205,0,0],'x11:orchid' => [218,112,214],
+'x11:powderblue' => [176,224,230],'x11:grey35' => [89,89,89],
+'x11:plum4' => [139,102,139],'x11:cornsilk' => [255,248,220],
+'x11:cornsilk1' => [255,248,220],'x11:royalblue' => [65,105,225],
+'x11:darkgoldenrod2' => [238,173,14],'x11:lightpink4' => [139,95,101],
+'x11:springgreen2' => [0,238,118],'x11:tan' => [210,180,140],
+'x11:lightslateblue' => [132,112,255],'x11:darkorchid' => [153,50,204],
+'x11:orangered2' => [238,64,0],'x11:palevioletred1' => [255,130,171],
+'x11:grey63' => [161,161,161],'x11:maroon2' => [238,48,167],
+'x11:blue2' => [0,0,238],'x11:turquoise4' => [0,134,139],
+'x11:lightcyan1' => [224,255,255],'x11:lightcyan' => [224,255,255],
+'x11:springgreen3' => [0,205,102],'x11:darkorchid4' => [104,34,139],
+'x11:sienna' => [160,82,45],'x11:goldenrod2' => [238,180,34],
+'x11:lightgoldenrod3' => [205,190,112],'x11:green' => [0,255,0],
+'x11:green1' => [0,255,0],'x11:peachpuff1' => [255,218,185],
+'x11:peachpuff' => [255,218,185],'x11:yellow3' => [205,205,0],
+'x11:mediumspringgreen' => [0,250,154],'x11:cadetblue3' => [122,197,205],
+'x11:royalblue1' => [72,118,255],'x11:deepskyblue1' => [0,191,255],
+'x11:deepskyblue' => [0,191,255],'x11:firebrick1' => [255,48,48],
+'x11:grey80' => [204,204,204],'x11:grey28' => [71,71,71],
+'x11:palegreen2' => [144,238,144],'x11:lightgreen' => [144,238,144],
+'x11:blueviolet' => [138,43,226],'x11:deeppink1' => [255,20,147],
+'x11:deeppink' => [255,20,147],'x11:deeppink2' => [238,18,137],
+'x11:lightskyblue2' => [164,211,238],'x11:grey77' => [196,196,196],
+'x11:grey72' => [184,184,184],'x11:tomato2' => [238,92,66],
+'x11:steelblue2' => [92,172,238],'x11:hotpink' => [255,105,180],
+'x11:slateblue4' => [71,60,139],'x11:pink' => [255,192,203],
+'x11:darkturquoise' => [0,206,209],'x11:antiquewhite3' => [205,192,176],
+'x11:grey32' => [82,82,82],'x11:lightyellow2' => [238,238,209],
+'x11:olivedrab4' => [105,139,34],'x11:lightblue4' => [104,131,139],
+'x11:royalblue2' => [67,110,238],'x11:navajowhite1' => [255,222,173],
+'x11:navajowhite' => [255,222,173],'x11:lightgoldenrod' => [238,221,130],
+'x11:grey85' => [217,217,217],'x11:maroon4' => [139,28,98],
+'x11:grey90' => [229,229,229],'x11:grey17' => [43,43,43],
+'x11:seashell4' => [139,134,130],'x11:greenyellow' => [173,255,47],
+'x11:dodgerblue1' => [30,144,255],'x11:dodgerblue' => [30,144,255],
+'x11:grey89' => [227,227,227],'x11:brown2' => [238,59,59],
+'x11:paleturquoise2' => [174,238,238],'x11:lightskyblue' => [135,206,250],
+'x11:salmon4' => [139,76,57],'x11:chocolate3' => [205,102,29],
+'x11:grey70' => [179,179,179],'x11:grey25' => [64,64,64],
+'x11:darkolivegreen4' => [110,139,61],'x11:mediumorchid2' => [209,95,238],
+'x11:brown' => [165,42,42],'x11:grey67' => [171,171,171],
+'x11:grey41' => [105,105,105],'x11:dimgrey' => [105,105,105],
+'x11:grey60' => [153,153,153],'x11:indianred3' => [205,85,85],
+'x11:chocolate' => [210,105,30],'x11:darkslategrey1' => [151,255,255],
+'x11:grey2' => [5,5,5],'x11:firebrick3' => [205,38,38],
+'x11:snow4' => [139,137,137],'x11:mediumseagreen' => [60,179,113],
+'x11:darkorchid1' => [191,62,255],'x11:pink3' => [205,145,158],
+'x11:violetred1' => [255,62,150],'x11:grey83' => [212,212,212],
+'x11:olivedrab1' => [192,255,62],'x11:darkkhaki' => [189,183,107],
+'x11:deepskyblue4' => [0,104,139],'x11:darkorchid2' => [178,58,238],
+'x11:skyblue' => [135,206,235],'x11:mediumorchid3' => [180,82,205],
+'x11:rosybrown4' => [139,105,105],'x11:grey16' => [41,41,41],
+'x11:yellow4' => [139,139,0],'x11:maroon' => [176,48,96],
+'x11:turquoise2' => [0,229,238],'x11:mistyrose2' => [238,213,210],
+'x11:blue3' => [0,0,205],'x11:mediumblue' => [0,0,205],
+'x11:grey4' => [10,10,10],'x11:pink2' => [238,169,184],
+'x11:chocolate2' => [238,118,33],'x11:lightyellow4' => [139,139,122],
+'x11:grey99' => [252,252,252],'x11:red2' => [238,0,0],
+'x11:tan4' => [139,90,43],'x11:yellow2' => [238,238,0],
+'x11:grey12' => [31,31,31],'x11:deeppink4' => [139,10,80],
+'x11:lightsalmon4' => [139,87,66],'x11:lightcyan4' => [122,139,139],
+'x11:snow1' => [255,250,250],'x11:snow' => [255,250,250],
+'x11:brown4' => [139,35,35],'x11:darkseagreen2' => [180,238,180],
+'x11:lightsteelblue2' => [188,210,238],'x11:rosybrown' => [188,143,143],
+'x11:maroon1' => [255,52,179],'x11:slategrey' => [112,128,144],
+'x11:orange' => [255,165,0],'x11:orange1' => [255,165,0],
+'x11:orangered3' => [205,55,0],'x11:plum3' => [205,150,205],
+'x11:turquoise3' => [0,197,205],'x11:pink4' => [139,99,108],
+'x11:violet' => [238,130,238],'x11:grey96' => [245,245,245],
+'x11:whitesmoke' => [245,245,245],'x11:lightgoldenrod1' => [255,236,139],
+'x11:darkorange1' => [255,127,0],'x11:seashell2' => [238,229,222],
+'x11:midnightblue' => [25,25,112],'x11:grey27' => [69,69,69],
+'x11:mediumpurple2' => [159,121,238],'x11:bisque4' => [139,125,107],
+'x11:black' => [0,0,0],'x11:grey0' => [0,0,0],
+'x11:lavenderblush4' => [139,131,134],'x11:bisque1' => [255,228,196],
+'x11:bisque' => [255,228,196],'x11:mediumaquamarine' => [102,205,170],
+'x11:aquamarine3' => [102,205,170],'x11:goldenrod1' => [255,193,37],
+'x11:green4' => [0,139,0],'x11:bisque3' => [205,183,158],
+'x11:salmon' => [250,128,114],'x11:grey1' => [3,3,3],
+'x11:purple3' => [125,38,205],'x11:khaki4' => [139,134,78],
+'x11:grey' => [190,190,190],'x11:cadetblue4' => [83,134,139],
+'x11:cadetblue1' => [152,245,255],'x11:hotpink3' => [205,96,144],
+'x11:antiquewhite2' => [238,223,204],'x11:darkorange4' => [139,69,0],
+'x11:cornsilk2' => [238,232,205],'x11:grey93' => [237,237,237],
+'x11:thistle3' => [205,181,205],'x11:plum2' => [238,174,238],
+'x11:burlywood2' => [238,197,145],'x11:skyblue4' => [74,112,139],
+'x11:peachpuff2' => [238,203,173],'x11:grey62' => [158,158,158],
+'x11:paleturquoise3' => [150,205,205],'x11:lightblue1' => [191,239,255],
+'x11:mediumpurple' => [147,112,219],'x11:peachpuff3' => [205,175,149],
+'x11:grey49' => [125,125,125],'x11:grey3' => [8,8,8],
+'x11:steelblue1' => [99,184,255],'x11:grey73' => [186,186,186],
+'x11:grey44' => [112,112,112],'x11:palevioletred4' => [139,71,93],
+'x11:khaki2' => [238,230,133],'x11:gold3' => [205,173,0],
+'x11:grey47' => [120,120,120],'x11:aliceblue' => [240,248,255],
+'x11:grey58' => [148,148,148],'x11:darkslategrey4' => [82,139,139],
+'x11:mediumorchid4' => [122,55,139],'x11:thistle1' => [255,225,255],
+'x11:mistyrose4' => [139,125,123],'x11:orchid1' => [255,131,250],
+'x11:hotpink2' => [238,106,167],'x11:azure' => [240,255,255],
+'x11:azure1' => [240,255,255],'x11:darkred' => [139,0,0],
+'x11:red4' => [139,0,0],'x11:chartreuse2' => [118,238,0],
+'x11:slateblue1' => [131,111,255],'x11:grey15' => [38,38,38],
+'x11:grey71' => [181,181,181],'x11:darkslategrey2' => [141,238,238],
+'x11:snow3' => [205,201,201],'x11:bisque2' => [238,213,183],
+'x11:darkslateblue' => [72,61,139],'x11:coral4' => [139,62,47],
+'x11:grey69' => [176,176,176],'x11:burlywood4' => [139,115,85],
+'x11:coral3' => [205,91,69],'x11:purple' => [160,32,240],
+'x11:grey36' => [92,92,92],'x11:grey94' => [240,240,240],
+'x11:palevioletred2' => [238,121,159],'x11:grey46' => [117,117,117],
+'x11:palevioletred' => [219,112,147],'x11:mediumslateblue' => [123,104,238],
+'x11:seagreen1' => [84,255,159],'x11:gainsboro' => [220,220,220],
+'x11:yellow1' => [255,255,0],'x11:yellow' => [255,255,0],
+'x11:limegreen' => [50,205,50],'x11:darkgrey' => [169,169,169],
+'x11:darkmagenta' => [139,0,139],'x11:magenta4' => [139,0,139],
+'x11:grey59' => [150,150,150],'x11:firebrick2' => [238,44,44],
+'x11:coral' => [255,127,80],'x11:honeydew' => [240,255,240],
+'x11:honeydew1' => [240,255,240],'x11:grey86' => [219,219,219],
+'x11:grey13' => [33,33,33],'x11:purple1' => [155,48,255],
+'x11:grey82' => [209,209,209],'x11:grey65' => [166,166,166],
+'x11:grey97' => [247,247,247],'x11:azure4' => [131,139,139],
+'x11:darkslategrey3' => [121,205,205],'x11:lightcyan3' => [180,205,205],
+'x11:aquamarine2' => [118,238,198],'x11:grey92' => [235,235,235],
+'x11:slateblue' => [106,90,205],'x11:darkcyan' => [0,139,139],
+'x11:cyan4' => [0,139,139],'x11:chartreuse3' => [102,205,0],
+'x11:moccasin' => [255,228,181],'x11:mediumvioletred' => [199,21,133],
+'x11:tomato3' => [205,79,57],'x11:grey31' => [79,79,79],
+'x11:sienna2' => [238,121,66],'x11:grey98' => [250,250,250],
+'x11:gold4' => [139,117,0],'x11:slateblue3' => [105,89,205],
+'x11:grey14' => [36,36,36],'x11:honeydew4' => [131,139,131],
+'x11:grey61' => [156,156,156],'x11:violetred3' => [205,50,120],
+'x11:grey39' => [99,99,99],'x11:aquamarine4' => [69,139,116],
+'x11:darkgoldenrod4' => [139,101,8],'x11:mediumpurple1' => [171,130,255],
+'x11:lightsalmon1' => [255,160,122],'x11:lightsalmon' => [255,160,122],
+'x11:darkolivegreen3' => [162,205,90],'x11:grey10' => [26,26,26],
+'x11:khaki3' => [205,198,115],'x11:navajowhite3' => [205,179,139],
+'x11:lightpink1' => [255,174,185],'x11:grey81' => [207,207,207],
+'x11:grey45' => [115,115,115],'x11:wheat3' => [205,186,150],
+'x11:steelblue4' => [54,100,139],'x11:grey48' => [122,122,122],
+'x11:olivedrab3' => [154,205,50],'x11:yellowgreen' => [154,205,50],
+'x11:mediumturquoise' => [72,209,204],'x11:palegoldenrod' => [238,232,170],
+'x11:ivory2' => [238,238,224],'x11:darkolivegreen1' => [202,255,112],
+'x11:red1' => [255,0,0],'x11:red' => [255,0,0],
+'x11:lemonchiffon4' => [139,137,112],'x11:lightseagreen' => [32,178,170],
+'x11:seagreen4' => [46,139,87],'x11:seagreen' => [46,139,87],
+'x11:ivory' => [255,255,240],'x11:ivory1' => [255,255,240],
+'x11:linen' => [250,240,230],'x11:grey34' => [87,87,87],
+'x11:thistle2' => [238,2...
 
[truncated message content]