color palatete

#!/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