\n$table_side";
foreach $Col (0..3){
$shade = $Row*4 + $Col;
print OUT "\n";
#
# inner color table ...
#
printf OUT "\n
$color=%x%x\n", $shade, $shade;
foreach $row (0..15) {
print OUT "\n";
foreach $col (0..15) {
if ($color eq "red") {$red = $shade; $green = $row; $blue = $col}
if ($color eq "green") {$green = $shade; $blue = $row; $red = $col}
if ($color eq "blue") {$blue = $shade; $red = $row; $green = $col}
printf OUT " | \n", $red, $red, $green, $green, $blue, $blue, $red, $red, $green, $green, $blue, $blue;
}
print OUT " \n\n";
}
print OUT " \n";
print OUT " | \n";
} # eoCol
print OUT "$table_side
\n";
} # eoRow
print OUT "\n";
print OUT "