color palatete

From 6a554f641a37af28a668cc938430a683c37247ef Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Thu, 14 Jul 2016 18:11:03 +0200 Subject: added pool color generator test 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 +# +# 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 . +# + +use strict; +use Data::Dumper::Simple; +use Color::Scheme; + +# print "\n"; +# print "\n"; +# print " \n"; +# print " color palatete\n"; +# print " \n"; +# print " \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 "

\n"; +# foreach (@colors) { +# print '

#' . $_ . '

' . "\n"; +# } +# print "

\n"; +# } +# print " \n"; +# print "\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 "\n"; +print "\n"; +print " \n"; +print " color palatete\n"; +print " \n"; +print " \n"; + +my @colors = keys %color_map; +for(my $i = 0; $i < $#colors; $i+=1) { + if(($i % 10) == 0) { + print " \n" unless($i == 0); + print "

\n"; + } + print '

#' . $colors[$i] . '

' . "\n"; +} +print "

\n"; +print " \n"; +print "\n"; + + +exit 0 -- cgit v0.10.2