Mercurial > repos > cpt > cpt_psm_comparison_table

comparison lib/CPT/Plot/ArtemisColours.pm @ 1:f093e08f21f3 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 94b0cd1fff0826c6db3e7dc0c91c0c5a8be8bb0c
author cpt
date Mon, 05 Jun 2023 02:47:24 +0000
parents
children
comparison
equal deleted inserted replaced
0:b8b8b52904a5 1:f093e08f21f3
1 package CPT::Plot::ArtemisColours;
2 use Moose;
3 use strict;
4 use warnings;
5 use Carp;
6
7 has format => (
8 is => 'rw',
9 isa => 'Str',
10 default => sub {
11 'svg/rgb'
12 },
13 );
14
15 my %artemis_colours = (
16 0 => [ 255, 255, 255 ],
17 1 => [ 100, 100, 100 ],
18 2 => [ 255, 0, 0 ],
19 3 => [ 0, 255, 0 ],
20 4 => [ 0, 0, 255 ],
21 5 => [ 0, 255, 255 ],
22 6 => [ 255, 0, 255 ],
23 7 => [ 255, 255, 0 ],
24 8 => [ 152, 251, 152 ],
25 9 => [ 135, 206, 250 ],
26 10 => [ 255, 165, 0 ],
27 11 => [ 200, 150, 100 ],
28 12 => [ 255, 200, 200 ],
29 13 => [ 170, 170, 170 ],
30 14 => [ 0, 0, 0 ],
31 15 => [ 255, 63, 63 ],
32 16 => [ 255, 127, 127 ],
33 17 => [ 255, 191, 191 ],
34 );
35
36 sub getAvailableFormats {
37 my ($self) = @_;
38 return [ 'svg/rgb', 'artemis' ];
39 }
40
41 sub getColour {
42 my ( $self, $string ) = @_;
43 if ($string) {
44 my @rgb;
45 if ( $string =~ qr/^\s*(\d+)\s*$/ ) {
46 @rgb = @{ $artemis_colours{$1} };
47 }
48 elsif ( $string =~ qr/^\s*(\d+)\s+(\d+)\s+(\d+)\s*$/ ) {
49 @rgb = ( $1, $2, $3 );
50 }
51 else {
52 confess "Bad Colour Specfication [$string]";
53 return;
54 }
55
56 # return $colour_result;
57 my $format = $self->format();
58 if ( $format eq 'svg/rgb' ) {
59 return 'rgb(' . join( ',', @rgb ) . ')';
60 }
61 elsif ( $format eq 'artemis' ) {
62 return join( ' ', @rgb );
63 }
64 else {
65 carp "Bad format specified, or format not added to spec list [$format]";
66 }
67 }
68 else {
69 return;
70 }
71 }
72
73 no Moose;
74 1;
75
76 __END__
77
78 =pod
79
80 =encoding UTF-8
81
82 =head1 NAME
83
84 CPT::Plot::ArtemisColours
85
86 =head1 VERSION
87
88 version 1.99.4
89
90 =head1 AUTHOR
91
92 Eric Rasche <rasche.eric@yandex.ru>
93
94 =head1 COPYRIGHT AND LICENSE
95
96 This software is Copyright (c) 2014 by Eric Rasche.
97
98 This is free software, licensed under:
99
100 The GNU General Public License, Version 3, June 2007
101
102 =cut