-use strict;\r
-use warnings;\r
-\r
-my @colors = (\r
- 'cccccc',\r
- '996600',\r
- '00ff80',\r
- '00ff00',\r
- 'ff0000',\r
- '00a8ff', # was: 0080ff, green increased\r
- '00ffff',\r
- '80ff00',\r
- '8000ff',\r
- 'ff00ff',\r
- 'ff0080',\r
- '999999',\r
- 'ffff00',\r
- '0050ff', # was: 0000ff, green increased so the color is perceptively just as bright as red (for teamplay)\r
- 'ff8000',\r
- '000000'\r
-);\r
-\r
-my $value_min = 0x0F;\r
-my $value_max = 0xFF;\r
-my $value_smin = 0x00;\r
-my $value_smax = 0xB3;\r
-\r
-my $i = 0;\r
-my $pal_colormap = "";\r
-my $pal_scoreboard = "";\r
-for(@colors)\r
-{\r
- /^(..)(..)(..)$/ or die "invalid color spec: $_";\r
- my $r = hex $1;\r
- my $g = hex $2;\r
- my $b = hex $3;\r
- $pal_colormap .= sprintf "%c%c%c", map { int(0.5 + $value_min + ($_ * 1.0 / 0xFF) * ($value_max - $value_min)) } $r, $g, $b;\r
- $pal_scoreboard .= sprintf "%c%c%c", map { int(0.5 + $value_smin + ($_ * 1.0 / 0xFF) * ($value_smax - $value_smin)) } $r, $g, $b;\r
- printf STDERR "\t\tcase %2d: return '%f %f %f';\n", $i, $r / 0xFF, $g / 0xFF, $b / 0xFF;\r
- ++$i;\r
-}\r
-\r
-print "$pal_colormap$pal_scoreboard$pal_colormap$pal_scoreboard";\r
+use strict;
+use warnings;
+
+# Colors:
+# red
+# ORANGE1
+# ORANGE2
+# yellow
+# yellowgreen
+# green
+# cyangreen
+# cyan
+# CYANBLUE1
+# CYANBLUE2
+# blue
+# bluemagenta
+# magenta
+# redmagenta
+
+my @colors = (
+ 'ffffff', # white
+ 'ff5500', # orange1
+ '00ff80', # cyangreen
+ '00ff00', # green
+ 'ff0000', # red
+ '00aaff', # cyanblue1
+ '00ffff', # cyan
+ '80ff00', # yellowgreen
+ '8000ff', # bluemagenta
+ 'ff00ff', # magenta
+ 'ff0080', # redmagenta
+ '0000ff', # blue
+ 'ffff00', # yellow
+ '0055ff', # cyanblue2
+ 'ffaa00', # orange2
+ '000000' # unused
+);
+
+my $value_min = 0x0F;
+my $value_max = 0xFF;
+
+my $i = 0;
+my $pal_colormap = "";
+my $pal_scoreboard = "";
+for(@colors)
+{
+ /^(..)(..)(..)$/ or die "invalid color spec: $_";
+ my $r = hex $1;
+ my $g = hex $2;
+ my $b = hex $3;
+ $pal_colormap .= sprintf "%c%c%c", map { int(0.5 + $value_min + ($_ * 1.0 / 0xFF) * ($value_max - $value_min)) } $r, $g, $b;
+ printf STDERR "\t\tcase %2d: return '%f %f %f';\n", $i, $r / 0xFF, $g / 0xFF, $b / 0xFF;
+ ++$i;
+}
+
+print "$pal_colormap$pal_colormap$pal_colormap$pal_colormap";