Re-arrange player colors in rainbow order, as done in Xonotic

[voretournament/voretournament.git] / data / gfx / colormap_palette.pl

diff --git a/data/gfx/colormap_palette.pl b/data/gfx/colormap_palette.pl
index b9643fc8c0997b11ef0358632379bad1e2022fc7..07ad2de1142c640f30c387b969c2f97d86523c5e 100644 (file)
--- a/data/gfx/colormap_palette.pl
+++ b/data/gfx/colormap_palette.pl
@@ -1,43 +1,56 @@
-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";