open(OUT,">colors-r.tex"); my $cnt = 0; print (OUT "\n\nBlue-Red plane\n"); my $g = 0; for my $b (1,.9,.8,.7,.6,.5,.4,.3,.2,.1,0) { for (my $r = 0; $r<=1; $r=$r+.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}{}"); #print "\n$r $g $b"; $cnt++; if ($cnt == 11) { $cnt = 0; print (OUT "\n"); } } } my $cnt = 0; print (OUT "\n\\newpage{}Blue-Green plane\n"); my $r = 0; for my $b (1,.9,.8,.7,.6,.5,.4,.3,.2,.1,0) { for (my $g = 0; $g<=1; $g=$g+.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}{}"); #print "\n$r $g $b"; $cnt++; if ($cnt == 11) { $cnt = 0; print (OUT "\n"); } } } my $cnt = 0; print (OUT "\n\\newpage{}Green-Red plane\n"); my $b = 0; for my $g (1,.9,.8,.7,.6,.5,.4,.3,.2,.1,0) { for (my $r = 0; $r<=1; $r=$r+.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}{}"); #print "\n$r $g $b"; $cnt++; if ($cnt == 11) { $cnt = 0; print (OUT "\n"); } } } my $cnt = 0; print (OUT "\n\\newpage{}Gray vector\n"); for (my $r = 0; $r<=1; $r=$r+.1) { print (OUT "\n\\def\\Red{".$r."}"); print (OUT "\n\\def\\Green{".$r."}"); print (OUT "\n\\def\\Blue{".$r."}"); print (OUT "\n\\colorbox[\\Model]{\\Red,\\Green,\\Blue}{}"); #print "\n$r $g $b"; $cnt++; if ($cnt == 11) { $cnt = 0; print (OUT "\n"); } } my $cnt = 0; print (OUT "\n\\newpage{}Magenta-Yellow plane\n"); my $r = 1; for my $b (1,.9,.8,.7,.6,.5,.4,.3,.2,.1,0) { for (my $g = 0; $g<=1; $g=$g+.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}{}"); #print "\n$r $g $b"; $cnt++; if ($cnt == 11) { $cnt = 0; print (OUT "\n"); } } } my $cnt = 0; print (OUT "\n\\newpage{}Cyan-Yellow plane\n"); my $g = 1; for my $b (1,.9,.8,.7,.6,.5,.4,.3,.2,.1,0) { for (my $r = 0; $r<=1; $r=$r+.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}{}"); #print "\n$r $g $b"; $cnt++; if ($cnt == 11) { $cnt = 0; print (OUT "\n"); } } } my $cnt = 0; print (OUT "\n\\newpage{}Cyan-Magenta plane\n"); my $b = 1; for my $g (1,.9,.8,.7,.6,.5,.4,.3,.2,.1,0) { for (my $r = 0; $r<=1; $r=$r+.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}{}"); #print "\n$r $g $b"; $cnt++; if ($cnt == 11) { $cnt = 0; print (OUT "\n"); } } } close(OUT);