diff options
| author | Christian Pointner <equinox@helsinki.at> | 2016-07-14 16:11:03 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2016-07-14 16:11:03 (GMT) |
| commit | 6a554f641a37af28a668cc938430a683c37247ef (patch) | |
| tree | 6d030ddf203a1e7bd720d326195676a200021e16 | |
| parent | 867de29e00d021afb25014b1a5d2c37eb48f31d5 (diff) | |
added pool color generator test
| -rw-r--r-- | debian/control | 2 | ||||
| -rwxr-xr-x | test/pool-colors | 84 |
2 files changed, 85 insertions, 1 deletions
diff --git a/debian/control b/debian/control index f7bfe60..1d7f05c 100644 --- a/debian/control +++ b/debian/control @@ -15,7 +15,7 @@ Description: Radio Helsinki Rivendell Perl Modules Package: rhrd-utils Architecture: all -Depends: ${misc:Depends}, ${perl:Depends}, librhrd-perl, libstring-mkpasswd-perl +Depends: ${misc:Depends}, ${perl:Depends}, librhrd-perl, libstring-mkpasswd-perl, libcolor-scheme-perl Description: Radio Helsinki Rivendell Utilities This package contains the following tools * get-rd-token diff --git a/test/pool-colors b/test/pool-colors new file mode 100755 index 0000000..1d4f352 --- /dev/null +++ b/test/pool-colors @@ -0,0 +1,84 @@ +#!/usr/bin/perl -w +# +# rhrdlibs +# +# Copyright (C) 2015-2016 Christian Pointner <equinox@helsinki.at> +# +# This file is part of rhrdlibs. +# +# rhrdlibs is free software: you can redistribute it and/or modify +# it under the terms of the GNU Affero General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# any later version. +# +# rhrdlibs 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 Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public License +# along with rhrdlibs. If not, see <http://www.gnu.org/licenses/>. +# + +use strict; +use Data::Dumper::Simple; +use Color::Scheme; + +# print "<!DOCTYPE HTML>\n"; +# print "<html>\n"; +# print " <head>\n"; +# print " <title>color palatete</title>\n"; +# print " </head>\n"; +# print " <body>\n"; +# for(my $base = 0; $base <= 360; $base+=18) { +# my $scheme = Color::Scheme->new->from_hue($base)->scheme('triade')->distance(0.1)->variation('pastel')->web_safe(1); +# my @colors = $scheme->colors(); +# print " <div style=\"float: left\">\n"; +# foreach (@colors) { +# print ' <div style="width: 8em; padding: 1em; font-weight: bold; text-align: center; background-color: #' . $_ . ';">#' . $_ . '</div>' . "\n"; +# } +# print " </div>\n"; +# } +# print " </body>\n"; +# print "</html>\n"; + +my %color_map; + +for(my $base = 0; $base <= 360; $base+=1) { + my $scheme = Color::Scheme->new->from_hue($base)->scheme('contrast')->variation('pastel')->web_safe(1); + my @c = $scheme->colors(); + foreach (@c) { + $color_map{$_} = 1; + } +} + +for(my $base = 0; $base <= 360; $base+=1) { + my $scheme = Color::Scheme->new->from_hue($base)->scheme('contrast')->variation('hard')->web_safe(1); + my @c = $scheme->colors(); + foreach (@c) { + $color_map{$_} = 1; + } +} +delete $color_map{'ffffff'}; + +print "<!DOCTYPE HTML>\n"; +print "<html>\n"; +print " <head>\n"; +print " <title>color palatete</title>\n"; +print " </head>\n"; +print " <body>\n"; + +my @colors = keys %color_map; +for(my $i = 0; $i < $#colors; $i+=1) { + if(($i % 10) == 0) { + print " </div>\n" unless($i == 0); + print " <div style=\"float: left;\">\n"; + } + print ' <div style="width: 8em; padding: 1em; font-weight: bold; text-align: center; background-color: #' . $colors[$i] . ';">#' . $colors[$i] . '</div>' . "\n"; +} +print " </div>\n"; +print " </body>\n"; +print "</html>\n"; + + +exit 0 |