28 '80ff00', # yellowgreen
29 '8000ff', # bluemagenta
31 'ff0080', # redmagenta
43 my $pal_colormap = "";
44 my $pal_scoreboard = "";
47 /^(..)(..)(..)$/ or die "invalid color spec: $_";
51 $pal_colormap .= sprintf "%c%c%c", map { int(0.5 + $value_min + ($_ * 1.0 / 0xFF) * ($value_max - $value_min)) } $r, $g, $b;
52 printf STDERR "\t\tcase %2d: return '%f %f %f';\n", $i, $r / 0xFF, $g / 0xFF, $b / 0xFF;
56 print "$pal_colormap$pal_colormap$pal_colormap$pal_colormap";