fix color translation
authordiv0 <div0@f962a42d-fe04-0410-a3ab-8c8b0445ebaa>
Mon, 26 Jan 2009 06:56:54 +0000 (06:56 +0000)
committerdiv0 <div0@f962a42d-fe04-0410-a3ab-8c8b0445ebaa>
Mon, 26 Jan 2009 06:56:54 +0000 (06:56 +0000)
git-svn-id: svn://svn.icculus.org/nexuiz/trunk@5667 f962a42d-fe04-0410-a3ab-8c8b0445ebaa

server/rcon2irc/rcon2irc.pl

index 45f8787..fb9db9f 100755 (executable)
@@ -129,9 +129,9 @@ sub color_dp2none($)
 sub color_rgb2basic($)
 {
        my ($data) = @_;
-       my ($r, $g, $b) = @$data;
-       my $min = [sort ($r, $g, $b)]->[0];
-       my $max = [sort ($r, $g, $b)]->[-1];
+       my ($R, $G, $B) = @$data;
+       my $min = [sort { $a <=> $b } ($R, $G, $B)]->[0];
+       my $max = [sort { $a <=> $b } ($R, $G, $B)]->[-1];
 
        my $v = $max / 15;
        my $s = ($max == $min) ? 0 : 1 - $min/$max;
@@ -147,17 +147,17 @@ sub color_rgb2basic($)
        {
                $h = 0;
        }
-       elsif($max == $r)
+       elsif($max == $R)
        {
-               $h = (60 * ($g - $b) / ($max - $min)) % 360;
+               $h = (60 * ($G - $B) / ($max - $min)) % 360;
        }
-       elsif($max == $g)
+       elsif($max == $G)
        {
-               $h = (60 * ($b - $r) / ($max - $min)) + 120;
+               $h = (60 * ($B - $R) / ($max - $min)) + 120;
        }
-       elsif($max == $b)
+       elsif($max == $B)
        {
-               $h = (60 * ($r - $g) / ($max - $min)) + 240;
+               $h = (60 * ($R - $G) / ($max - $min)) + 240;
        }
 
        return 1 if $h < 36;