10 '00a8ff', # was: 0080ff, green increased
18 '0050ff', # was: 0000ff, green increased so the color is perceptively just as bright as red (for teamplay)
29 /^(..)(..)(..)$/ or die "invalid color spec: $_";
33 printf "%c%c%c", map { int(0.5 + $value_min + ($_ * 1.0 / 0xFF) * ($value_max - $value_min)) } $r, $g, $b;
34 printf STDERR "\t\tcase %2d: return '%f %f %f';\n", $i, $r / 0xFF, $g / 0xFF, $b / 0xFF;