From 9f9ca5b08590bfa99936499340db7f438cb12ff0 Mon Sep 17 00:00:00 2001 From: justme-1968 Date: Mon, 15 Jul 2013 08:58:42 +0000 Subject: [PATCH] use maxNum git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3424 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/31_HUEDevice.pm | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/FHEM/31_HUEDevice.pm b/FHEM/31_HUEDevice.pm index 62338b682..91744a520 100644 --- a/FHEM/31_HUEDevice.pm +++ b/FHEM/31_HUEDevice.pm @@ -197,15 +197,6 @@ sub HUEDevice_Undefine($$) return undef; } -sub -HUEDevice_max($@) -{ - my ($max, @vars) = @_; - for (@vars) { - $max = $_ if $_ > $max; - } - return $max; -} sub HUEDevice_SetParam($$@) { @@ -282,7 +273,7 @@ HUEDevice_SetParam($$@) #$y = 1 if( $y > 1 ); $Y = 1 if( $Y > 1 ); - my $bri = HUEDevice_max($r,$g,$b); + my $bri = maxNum($r,$g,$b); #my $bri = $Y; $obj->{'on'} = JSON::true; @@ -411,7 +402,7 @@ xyYtorgb($$$) if( $X > 1 || $Y > 1 || $Z > 1 ) { - my $f = HUEDevice_max($X,$Y,$Z); + my $f = maxNum($X,$Y,$Z); $X /= $f; $Y /= $f; $Z /= $f; @@ -425,7 +416,7 @@ xyYtorgb($$$) if( $r > 1 || $g > 1 || $b > 1 ) { - my $f = HUEDevice_max($r,$g,$b); + my $f = maxNum($r,$g,$b); $r /= $f; $g /= $f; $b /= $f;