open(OUT,">colors.tex"); my $cnt = 0; for (my $r = 0; $r<=1; $r=$r+.1) { for (my $g = 0; $g<=1,; $g=$g+.1) { for (my $b = 0; $b<=1; $b=$b+.1) { print (OUT "\n\\def\\Red{".$r."}"); print (OUT "\n\\def\\Green{".$g."}"); print (OUT "\n\\def\\Blue{".$b."}"); print (OUT "\n\\colorbox[\\Model]{\\Red,\\Green,\\Blue}{}\\quad\\hbox to .75in{\\Red/\\Green/\\Blue}\\quad"); #print "\n$r $g $b"; $cnt++; if ($cnt == 5) { $cnt = 0; print (OUT "\n"); } } } } close(OUT);