#!/usr/bin/perl
#
# |
# |
# |
#
#$c[$r]$c[$g]$c[$b]
print << "END";
Color Chart
END
#----
@c=("00","80","FF");
print "\n | ";
for ($g=0; $g<3; $g++) {
for ($r=0; $r<3; $r++) {
print ("$c[$r]$c[$g]-- | \n")
}
}
print "
\n";
for ($b=0; $b<3; $b++) {
print "| $c[$b] | \n";
for ($g=0; $g<3; $g++) {
for ($r=0; $r<3; $r++) {
print ("$c[$r]$c[$g]$c[$b] | \n")
}
}
print "
\n";
}
print "
\n";
#----
@c=("00","40","80","C0","FF");
print "
";
print (" | Green |
\n");
print "\n | ";
for ($g=0; $g<5; $g++) {
# for ($r=0; $r<5; $r++) {
print ("$c[$g] | \n")
# }
}
print "
\n";
for ($b=0; $b<5; $b++) {
print "B
$c[$b] | \n";
for ($g=0; $g<5; $g++) {
for ($r=0; $r<5; $r++) {
if (($r*2+$g*4+$b)<=10) {
print ("$c[$r] | \n")
} else {
print ("$c[$r] | \n")
}
}
}
print "
\n";
}
print "
\n";
#----
@c=("00","40","80","C0","FF");
print "
";
print (" | Red |
\n");
print "\n | ";
for ($g=0; $g<5; $g++) {
# for ($r=0; $r<5; $r++) {
print ("$c[$g] | \n")
# }
}
print "
\n";
for ($b=0; $b<5; $b++) {
print "B
$c[$b] | \n";
for ($r=0; $r<5; $r++) {
for ($g=0; $g<5; $g++) {
if (($r*2+$g*4+$b)<=10) {
print ("$c[$g] | \n")
} else {
print ("$c[$g] | \n")
}
}
}
print "
\n";
}
print "
\n";
#----
print << "END";