#!/usr/bin/perl
#
############################################################################
#
# Name: palettes.pl
# Author: pete@rasterweb.net
#
# $Id: palettes.pl,v 0.3 2003/05/28 20:50:38 pete Exp pete $
#
############################################################################
############################################################################
#
@hex1 = qw(0 3 6 9 a b c d e f);
@hex2 = @hex1;
@hex3 = @hex1;
&header;
print qq|\n\n\n\n|;
foreach $char1 (@hex1) {
foreach $char2 (@hex2) {
foreach $char3 (@hex3) {
my $color = sprintf "%s%s%s", $char1, $char2, $char3;
printf qq|#%s
\n|, $color, $color;
}
}
}
print qq|\n\n\n\n|;
foreach $char1 (@hex1) {
foreach $char2 (@hex2) {
foreach $char3 (@hex3) {
my $color = sprintf "%s%s%s", $char1, $char2, $char3;
printf qq|#%s
\n|, $color, $color;
}
}
}
print qq|\n\n\n\n|;
foreach $char1 (@hex1) {
foreach $char2 (@hex2) {
foreach $char3 (@hex3) {
my $color = sprintf "%s%s%s", $char1, $char2, $char3;
printf qq|#%s
\n|, $color, $color;
}
}
}
&footer;
###################
# subs below here #
############################################################################
############################################################################
# sub header
sub header {
print <
Color Palettes
Color Palettes
HERE
} # end sub header
############################################################################
# sub footer
sub footer {
print <
HERE
} # end sub footer
__END__
=head1 NAME
palettes.pl
=head1 DESCRIPTION
Creates a big old color palette file...
=head1 AUTHOR
Pete Prodoehl Epete@rasterweb.netE
=head1 LICENSE
This is free software, you may use it and distribute it under the same terms as Perl itself.
=cut