FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

remove debug output

Browse Source 
use package name


git-svn-id: https://svn.fhem.de/fhem/trunk@4304 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2013-12-01 06:11:29 +00:00
parent 8c6959efd7
commit 8d5aff9e5b
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/Color.pm
View File

@ -76,10 +76,10 @@ Color_devStateIcon($)
{
my ($rgb) = @_;
my @channels = RgbToChannels($rgb,3);
my $dim = ChannelsToBrightness(@channels);
my @channels = Color::RgbToChannels($rgb,3);
my $dim = Color::ChannelsToBrightness(@channels);
my $percent = $dim->{bri};
my $RGB = ChannelsToRgb(@{$dim->{channels}});
my $RGB = Color::ChannelsToRgb(@{$dim->{channels}});
return ".*:off:toggle"
if( $rgb eq "off" || $rgb eq "000000" || $percent == 0 );
@ -111,31 +111,30 @@ RgbToChannels($$) {
sub
ChannelsToRgb(@) {
return "abc";
my @channels = @_;
return sprintf("%02X" x @_, @_);
return sprintf("%02X" x @_, @_);
}
sub
ChannelsToBrightness(@) {
my (@channels) = @_;
my $max = 0;
foreach my $value (@channels) {
$max = $value if ($max < $value);
}
return {
bri => 0,
channels => \(255 x @channels),
} unless ($max > 0);
my @bri = ();
my $norm = 255/$max;
foreach my $value (@channels) {
push @bri,int($value*$norm);
}
return {
bri => int($max/2.55),
channels => \@bri,