view lib/CPT/Plot/Colours.pm @ 1:8691c1c61a8e draft default tip

planemo upload commit 94b0cd1fff0826c6db3e7dc0c91c0c5a8be8bb0c
author cpt
date Mon, 05 Jun 2023 02:48:47 +0000
parents
children
line wrap: on
line source

package CPT::Plot::Colours;

# ABSTRACT: Color transformation library.

our %artemis_colours = (
	0  => 'rgb(255,255,255)',
	1  => 'rgb(100,100,100)',
	2  => 'rgb(255,0,0)',
	3  => 'rgb(0,255,0)',
	4  => 'rgb(0,0,255)',
	5  => 'rgb(0,255,255)',
	6  => 'rgb(255,0,255)',
	7  => 'rgb(255,255,0)',
	8  => 'rgb(152,251,152)',
	9  => 'rgb(135,206,250)',
	10 => 'rgb(255,165,0)',
	11 => 'rgb(200,150,100)',
	12 => 'rgb(255,200,200)',
	13 => 'rgb(170,170,170)',
	14 => 'rgb(0,0,0)',
	15 => 'rgb(255,63,63)',
	16 => 'rgb(255,127,127)',
	17 => 'rgb(255,191,191)',
);

sub new {
	my $class = shift;
	my $self  = {@_};
	bless $self, $class;
	return $self;
}

sub getColour {
	my ( $self, $string ) = @_;
	if ($string) {
		my $colour_result;
		if ( $string =~ qr/^\s*(\d+)\s*$/ ) {
			$colour_result = $artemis_colours{$1};
		}
		elsif ( $string =~ qr/^\s*(\d+)\s+(\d+)\s+(\d+)\s*$/ ) {
			$colour_result = "rgb($1,$2,$3)";
		}
		else {
			warn "Bad Colour Specfication";
			return undef;
		}
		return $colour_result;
	}
	else {
		return undef;
	}
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

CPT::Plot::Colours - Color transformation library.

=head1 VERSION

version 1.96

=head1 AUTHOR

Eric Rasche <rasche.eric@yandex.ru>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2014 by Eric Rasche.

This is free software, licensed under:

  The GNU General Public License, Version 3, June 2007

=cut