gfx/colormap_palette.pl

   1 use strict;
   2 use warnings;
   3
   4 my @colors = (
   5         'cccccc',
   6         '996600',
   7         '00ff80',
   8         '00ff00',
   9         'ff0000',
  10         '00a8ff', # was: 0080ff, green increased
  11         '00ffff',
  12         '80ff00',
  13         '8000ff',
  14         'ff00ff',
  15         'ff0080',
  16         '999999',
  17         'ffff00',
  18         '0050ff', # was: 0000ff, green increased so the color is perceptively just as bright as red (for teamplay)
  19         'ff8000',
  20         '000000'
  21 );
  22
  23 my $value_min = 0x0F;
  24 my $value_max = 0xFF;
  25 my $value_smin = 0x00;
  26 my $value_smax = 0xB3;
  27
  28 my $i = 0;
  29 my $pal_colormap = "";
  30 my $pal_scoreboard = "";
  31 for(@colors)
  32 {
  33         /^(..)(..)(..)$/ or die "invalid color spec: $_";
  34         my $r = hex $1;
  35         my $g = hex $2;
  36         my $b = hex $3;
  37         $pal_colormap .= sprintf "%c%c%c", map { int(0.5 + $value_min + ($_ * 1.0 / 0xFF) * ($value_max - $value_min)) } $r, $g, $b;
  38         $pal_scoreboard .= sprintf "%c%c%c", map { int(0.5 + $value_smin + ($_ * 1.0 / 0xFF) * ($value_smax - $value_smin)) } $r, $g, $b;
  39         printf STDERR "\t\tcase %2d: return '%f %f %f';\n", $i, $r / 0xFF, $g / 0xFF, $b / 0xFF;
  40         ++$i;
  41 }
  42
  43 print "$pal_colormap$pal_scoreboard$pal_colormap$pal_scoreboard";