#!/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 lib "../lib/"; use RHRD::utils; my @colors = @{+RHRD::utils::POOL_COLORS}; print "\n"; print "\n"; print " \n"; print " color palatete\n"; print " \n"; print " \n"; for(my $i = 0; $i <= $#colors; $i+=1) { if(($i % 10) == 0) { print " \n" unless($i == 0); print "
\n"; print "
$i
\n"; } print '
#' . $colors[$i] . '
' . "\n"; } print "
\n"; print " \n"; print "\n"; exit 0