data/gfx/colormap_palette.pl

   1 use strict;\r
   2 use warnings;\r
   3 \r
   4 my @colors = (\r
   5         'cccccc',\r
   6         '996600',\r
   7         '00ff80',\r
   8         '00ff00',\r
   9         'ff0000',\r
  10         '00a8ff', # was: 0080ff, green increased\r
  11         '00ffff',\r
  12         '80ff00',\r
  13         '8000ff',\r
  14         'ff00ff',\r
  15         'ff0080',\r
  16         '999999',\r
  17         'ffff00',\r
  18         '0050ff', # was: 0000ff, green increased so the color is perceptively just as bright as red (for teamplay)\r
  19         'ff8000',\r
  20         '000000'\r
  21 );\r
  22 \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
  27 \r
  28 my $i = 0;\r
  29 my $pal_colormap = "";\r
  30 my $pal_scoreboard = "";\r
  31 for(@colors)\r
  32 {\r
  33         /^(..)(..)(..)$/ or die "invalid color spec: $_";\r
  34         my $r = hex $1;\r
  35         my $g = hex $2;\r
  36         my $b = hex $3;\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
  40         ++$i;\r
  41 }\r
  42 \r
  43 print "$pal_colormap$pal_scoreboard$pal_colormap$pal_scoreboard";\r