Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

fixed list declarations

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5469 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2014-04-07 06:59:05 +00:00
parent 014b88301d
commit f8e1807536
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/Color.pm
View File

@ -259,7 +259,7 @@ hsb2rgb ($$$) {
my $s2 = $s / 255.0; my $s2 = $s / 255.0;
my $bri2 = $bri / 255.0; my $bri2 = $bri / 255.0;
my $rgb = Color::hsv2rgb( $h2, $s2, $bri2 ); my @rgb = Color::hsv2rgb( $h2, $s2, $bri2 );
my $r = int( $rgb[0] * 255 ); my $r = int( $rgb[0] * 255 );
my $g = int( $rgb[1] * 255 ); my $g = int( $rgb[1] * 255 );
my $b = int( $rgb[2] * 255 ); my $b = int( $rgb[2] * 255 );
@ -275,7 +275,7 @@ rgb2hsb ($$$) {
my $g2 = $g / 255.0; my $g2 = $g / 255.0;
my $b2 = $b / 255.0; my $b2 = $b / 255.0;
my $hsv = Color::rgb2hsv( $r2, $g2, $b2 ); my @hsv = Color::rgb2hsv( $r2, $g2, $b2 );
my $h = int( $hsv[0] * 65535 ); my $h = int( $hsv[0] * 65535 );
my $s = int( $hsv[1] * 255 ); my $s = int( $hsv[1] * 255 );
my $bri = int( $hsv[2] * 255 ); my $bri = int( $hsv[2] * 255 );
@ -292,7 +292,7 @@ rgb2hsb ($$$) {
sub sub
hex2hsv($) { hex2hsv($) {
my ($hex) = @_; my ($hex) = @_;
my $rgb = Color::hex2rgb($hex); my @rgb = Color::hex2rgb($hex);
return Color::rgb2hsv( $rgb[0], $rgb[1], $rgb[2] ); return Color::rgb2hsv( $rgb[0], $rgb[1], $rgb[2] );
} }
@ -300,7 +300,7 @@ hex2hsv($) {
sub sub
hsv2hex($$$) { hsv2hex($$$) {
my ( $h, $s, $v ) = @_; my ( $h, $s, $v ) = @_;
my $rgb = Color::hsv2rgb( $h, $s, $v ); my @rgb = Color::hsv2rgb( $h, $s, $v );
return Color::rgb2hex( $rgb[0], $rgb[1], $rgb[2] ); return Color::rgb2hex( $rgb[0], $rgb[1], $rgb[2] );
} }
@ -314,7 +314,7 @@ hsv2hex($$$) {
sub sub
hex2hsb($) { hex2hsb($) {
my ($hex) = @_; my ($hex) = @_;
my $rgb = Color::hex2rgb($hex); my @rgb = Color::hex2rgb($hex);
return Color::rgb2hsb( $rgb[0], $rgb[1], $rgb[2] ); return Color::rgb2hsb( $rgb[0], $rgb[1], $rgb[2] );
} }
@ -322,7 +322,7 @@ hex2hsb($) {
sub sub
hsb2hex($$$) { hsb2hex($$$) {
my ( $h, $s, $b ) = @_; my ( $h, $s, $b ) = @_;
my $rgb = Color::hsb2rgb( $h, $s, $b ); my @rgb = Color::hsb2rgb( $h, $s, $b );
return Color::rgb2hex( $rgb[0], $rgb[1], $rgb[2] ); return Color::rgb2hex( $rgb[0], $rgb[1], $rgb[2] );
} }