28 '80ff00', # yellowgreen
29 '8000ff', # bluemagenta
31 'ff0080', # redmagenta
43 my $pal_colormap = "";
44 my $pal_scoreboard = "";
45 print STDERR "\nPaste these cases into the qc colormapPaletteColor function\n\n";
47 print STDERR "\t\t// generated by gfx/colormap_palette.pl\n";
50 /^(..)(..)(..)$/ or die "invalid color spec: $_";
54 $pal_colormap .= sprintf "%c%c%c", map { int(0.5 + $value_min + ($_ * 1.0 / 0xFF) * ($value_max - $value_min)) } $r, $g, $b;
55 printf STDERR "\t\tcase %2d: return '%f %f %f';\n", $i, $r / 0xFF, $g / 0xFF, $b / 0xFF;
59 print "$pal_colormap$pal_colormap$pal_colormap$pal_colormap";