10 '00a8ff', # was: 0080ff, green increased
\r
18 '0050ff', # was: 0000ff, green increased so the color is perceptively just as bright as red (for teamplay)
\r
23 my $value_min = 0x0F;
\r
24 my $value_max = 0xFF;
\r
25 my $value_smin = 0x00;
\r
26 my $value_smax = 0xB3;
\r
29 my $pal_colormap = "";
\r
30 my $pal_scoreboard = "";
\r
33 /^(..)(..)(..)$/ or die "invalid color spec: $_";
\r
37 $pal_colormap .= sprintf "%c%c%c", map { int(0.5 + $value_min + ($_ * 1.0 / 0xFF) * ($value_max - $value_min)) } $r, $g, $b;
\r
38 $pal_scoreboard .= sprintf "%c%c%c", map { int(0.5 + $value_smin + ($_ * 1.0 / 0xFF) * ($value_smax - $value_smin)) } $r, $g, $b;
\r
39 printf STDERR "\t\tcase %2d: return '%f %f %f';\n", $i, $r / 0xFF, $g / 0xFF, $b / 0xFF;
\r
43 print "$pal_colormap$pal_scoreboard$pal_colormap$pal_scoreboard";
\r