mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
044800b019
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@7413 2b470e98-0d58-463d-a4d8-8e2adae1ed80
502 lines
11 KiB
Perl
502 lines
11 KiB
Perl
|
|
# $Id$
|
|
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use vars qw($FW_ME);
|
|
|
|
sub
|
|
Color_Initialize()
|
|
{
|
|
FHEM_colorpickerInit();
|
|
}
|
|
|
|
sub
|
|
FHEM_colorpickerInit()
|
|
{
|
|
$data{webCmdFn}{colorpicker} = "FHEM_colorpickerFn";
|
|
$data{FWEXT}{colorpicker}{SCRIPT} = "/jscolor/jscolor.js";
|
|
}
|
|
|
|
sub
|
|
FHEM_colorpickerFn($$$$$)
|
|
{
|
|
#return undef;
|
|
my ($FW_wname, $d, $FW_room, $cmd, $values) = @_;
|
|
|
|
my @args = split("[ \t]+", $cmd);
|
|
|
|
my @value = split( ',', $values );
|
|
return undef if($values !~ m/^colorpicker,([^,]*)/);
|
|
|
|
my $mode = $1;
|
|
$mode = "RGB" if( !defined($mode) );
|
|
|
|
if( $mode eq "CT" ) {
|
|
if( !$args[1] && $data{webCmdFn}{slider} ) {
|
|
no strict "refs";
|
|
my $values = "slider,". join( ',', @value[2..4] );
|
|
my $htmlTxt = &{$data{webCmdFn}{slider}}($FW_wname, $d, $FW_room, $cmd, $values);
|
|
use strict "refs";
|
|
|
|
return $htmlTxt;
|
|
}
|
|
|
|
return undef if( !$args[1] );
|
|
}
|
|
|
|
my $trigger = $cmd; #default trigger is the event from the reading with the same name as the command
|
|
my $cv = ReadingsVal($d,$cmd,""); #get default value from this reading
|
|
if( !$cv ) { #if this reading does not exist ->
|
|
$trigger = "RGB"; # trigger name will be RGB
|
|
$cv = CommandGet("","$d $cmd"); # get default value from get command
|
|
}
|
|
|
|
$cmd = "" if($cmd eq "state");
|
|
my $srf = $FW_room ? "&room=$FW_room" : "";
|
|
if( $args[1] ) {
|
|
my $c = "cmd=set $d $cmd$srf";
|
|
|
|
if( $mode eq "CT" ) {
|
|
my $ct = $args[1];
|
|
my ($r, $g, $b) = Color::ct2rgb( $ct );
|
|
$args[1] = Color::rgb2hex( $r, $g, $b );
|
|
}
|
|
|
|
return '<td align="center">'.
|
|
"<div onClick=\"FW_cmd('$FW_ME?XHR=1&$c')\" style=\"width:32px;height:19px;".
|
|
'border:1px solid #fff;border-radius:8px;background-color:#'. $args[1] .';"></div>'.
|
|
'</td>' if( AttrVal($FW_wname, "longpoll", 1));
|
|
|
|
return '<td align="center">'.
|
|
"<a href=\"$FW_ME?$c\">".
|
|
'<div style="width:32px;height:19px;'.
|
|
'border:1px solid #fff;border-radius:8px;background-color:#'. $args[1] .';"></div>'.
|
|
'</a>'.
|
|
'</td>';
|
|
} elsif(AttrVal($d,"realtimePicker",0)) {
|
|
my $c = "$FW_ME?XHR=1&cmd=set $d $cmd %$srf";
|
|
my $ci = $c;
|
|
$ci = "$FW_ME?XHR=1&cmd=set $d $cmd % : transitiontime 0 : noUpdate$srf" if($defs{$d}->{TYPE} eq "HUEDevice");
|
|
return '<td align="center">'.
|
|
"<input maxlength='6' size='6' id='colorpicker.$d-$trigger' class=\"color {pickerMode:'$mode',pickerFaceColor:'transparent',pickerFace:3,pickerBorder:0,pickerInsetColor:'red',command:'$ci',onImmediateChange:'colorpicker_setColor(this)'}\" value='$cv' onChange='colorpicker_setColor(this,\"$mode\",\"$c\")'>".
|
|
'</td>';
|
|
} else {
|
|
my $c = "$FW_ME?XHR=1&cmd=set $d $cmd %$srf";
|
|
return '<td align="center">'.
|
|
"<input maxlength='6' size='6' id='colorpicker.$d-$trigger' class=\"color {pickerMode:'$mode',pickerFaceColor:'transparent',pickerFace:3,pickerBorder:0,pickerInsetColor:'red'}\" value='$cv' onChange='colorpicker_setColor(this,\"$mode\",\"$c\")'>".
|
|
'</td>';
|
|
}
|
|
}
|
|
|
|
my %dim_values = (
|
|
0 => "dim06%",
|
|
1 => "dim12%",
|
|
2 => "dim18%",
|
|
3 => "dim25%",
|
|
4 => "dim31%",
|
|
5 => "dim37%",
|
|
6 => "dim43%",
|
|
7 => "dim50%",
|
|
8 => "dim56%",
|
|
9 => "dim62%",
|
|
10 => "dim68%",
|
|
11 => "dim75%",
|
|
12 => "dim81%",
|
|
13 => "dim87%",
|
|
14 => "dim93%",
|
|
);
|
|
sub
|
|
Color_devStateIcon($)
|
|
{
|
|
my ($rgb) = @_;
|
|
|
|
my @channels = Color::RgbToChannels($rgb,3);
|
|
my $dim = Color::ChannelsToBrightness(@channels);
|
|
my $percent = $dim->{bri};
|
|
my $RGB = Color::ChannelsToRgb(@{$dim->{channels}});
|
|
|
|
return ".*:off:toggle"
|
|
if( $rgb eq "off" || $rgb eq "000000" || $percent == 0 );
|
|
|
|
$percent = 100 if( $rgb eq "on" );
|
|
|
|
my $s = $dim_values{int($percent/7)};
|
|
$s="on" if( $percent eq "100" );
|
|
|
|
return ".*:$s@#$RGB:toggle" if( $percent < 100 );
|
|
return ".*:on@#$rgb:toggle";
|
|
}
|
|
|
|
package Color;
|
|
require Exporter;
|
|
our @ISA = qw(Exporter);
|
|
our %EXPORT_TAGS = (all => [qw(RgbToChannels ChannelsToRgb ChannelsToBrightness BrightnessToChannels)]);
|
|
Exporter::export_tags('all');
|
|
|
|
sub
|
|
RgbToChannels($$) {
|
|
my ($rgb,$numChannels) = @_;
|
|
my @channels = ();
|
|
foreach my $channel (unpack("(A2)[$numChannels]",$rgb)) {
|
|
push @channels,hex($channel);
|
|
}
|
|
return @channels;
|
|
}
|
|
|
|
sub
|
|
ChannelsToRgb(@) {
|
|
my @channels = @_;
|
|
return sprintf("%02X" x @_, @_);
|
|
}
|
|
|
|
sub
|
|
ChannelsToBrightness(@) {
|
|
my (@channels) = @_;
|
|
|
|
my $max = 0;
|
|
foreach my $value (@channels) {
|
|
$max = $value if ($max < $value);
|
|
}
|
|
|
|
my @bri = ();
|
|
if( $max == 0) {
|
|
@bri = (0) x @channels;
|
|
} else {
|
|
my $norm = 255/$max;
|
|
foreach my $value (@channels) {
|
|
push @bri,int($value*$norm);
|
|
}
|
|
}
|
|
|
|
return {
|
|
bri => int($max/2.55),
|
|
channels => \@bri,
|
|
}
|
|
}
|
|
|
|
sub
|
|
BrightnessToChannels($) {
|
|
my $arg = shift;
|
|
my @channels = ();
|
|
my $bri = $arg->{bri};
|
|
foreach my $value (@{$arg->{channels}}) {
|
|
push @channels,$value*$bri/100;
|
|
}
|
|
return @channels;
|
|
}
|
|
|
|
|
|
# COLOR SPACE: HSV & RGB(dec)
|
|
# HSV > h=float(0, 1), s=float(0, 1), v=float(0, 1)
|
|
# RGB > r=int(0, 255), g=int(0, 255), b=int(0, 255)
|
|
#
|
|
|
|
sub
|
|
rgb2hsv($$$) {
|
|
my( $r, $g, $b ) = @_;
|
|
my( $h, $s, $v );
|
|
|
|
my $M = ::maxNum( $r, $g, $b );
|
|
my $m = ::minNum( $r, $g, $b );
|
|
my $c = $M - $m;
|
|
|
|
if ( $c == 0 ) {
|
|
$h = 0;
|
|
} elsif ( $M == $r ) {
|
|
$h = ( 60 * ( ( $g - $b ) / $c ) % 360 ) / 360;
|
|
} elsif ( $M == $g ) {
|
|
$h = ( 60 * ( ( $b - $r ) / $c ) + 120 ) / 360;
|
|
} elsif ( $M == $b ) {
|
|
$h = ( 60 * ( ( $r - $g ) / $c ) + 240 ) / 360;
|
|
}
|
|
|
|
if ( $M == 0 ) {
|
|
$s = 0;
|
|
} else {
|
|
$s = $c / $M;
|
|
}
|
|
|
|
$v = $M;
|
|
|
|
return( $h,$s,$v );
|
|
}
|
|
|
|
sub
|
|
hsv2rgb($$$) {
|
|
my ( $h, $s, $v ) = @_;
|
|
my $r = 0.0;
|
|
my $g = 0.0;
|
|
my $b = 0.0;
|
|
|
|
if ( $s == 0 ) {
|
|
$r = $v;
|
|
$g = $v;
|
|
$b = $v;
|
|
} else {
|
|
my $i = int( $h * 6.0 );
|
|
my $f = ( $h * 6.0 ) - $i;
|
|
my $p = $v * ( 1.0 - $s );
|
|
my $q = $v * ( 1.0 - $s * $f );
|
|
my $t = $v * ( 1.0 - $s * ( 1.0 - $f ) );
|
|
$i = $i % 6;
|
|
|
|
if ( $i == 0 ) {
|
|
$r = $v;
|
|
$g = $t;
|
|
$b = $p;
|
|
} elsif ( $i == 1 ) {
|
|
$r = $q;
|
|
$g = $v;
|
|
$b = $p;
|
|
} elsif ( $i == 2 ) {
|
|
$r = $p;
|
|
$g = $v;
|
|
$b = $t;
|
|
} elsif ( $i == 3 ) {
|
|
$r = $p;
|
|
$g = $q;
|
|
$b = $v;
|
|
} elsif ( $i == 4 ) {
|
|
$r = $t;
|
|
$g = $p;
|
|
$b = $v;
|
|
} elsif ( $i == 5 ) {
|
|
$r = $v;
|
|
$g = $p;
|
|
$b = $q;
|
|
}
|
|
}
|
|
|
|
return( $r,$g,$b );
|
|
}
|
|
|
|
|
|
# COLOR SPACE: HSB & RGB(dec)
|
|
# HSB > h=int(0, 65535), s=int(0, 255), b=int(0, 255)
|
|
# RGB > r=int(0, 255), g=int(0, 255), b=int(0, 255)
|
|
#
|
|
|
|
sub
|
|
hsb2rgb ($$$) {
|
|
my ( $h, $s, $bri ) = @_;
|
|
|
|
my $h2 = $h / 65535.0;
|
|
my $s2 = $s / 255.0;
|
|
my $bri2 = $bri / 255.0;
|
|
|
|
my @rgb = Color::hsv2rgb( $h2, $s2, $bri2 );
|
|
my $r = int( $rgb[0] * 255 );
|
|
my $g = int( $rgb[1] * 255 );
|
|
my $b = int( $rgb[2] * 255 );
|
|
|
|
return ( $h, $s, $bri );
|
|
}
|
|
|
|
sub
|
|
rgb2hsb ($$$) {
|
|
my ( $r, $g, $b ) = @_;
|
|
|
|
my $r2 = $r / 255.0;
|
|
my $g2 = $g / 255.0;
|
|
my $b2 = $b / 255.0;
|
|
|
|
my @hsv = Color::rgb2hsv( $r2, $g2, $b2 );
|
|
my $h = int( $hsv[0] * 65535 );
|
|
my $s = int( $hsv[1] * 255 );
|
|
my $bri = int( $hsv[2] * 255 );
|
|
|
|
return ( $h, $s, $bri );
|
|
}
|
|
|
|
|
|
# COLOR SPACE: RGB(hex) & HSV
|
|
# RGB > r=hex(00, FF), g=hex(00, FF), b=hex(00, FF)
|
|
# HSV > h=float(0, 1), s=float(0, 1), v=float(0, 1)
|
|
#
|
|
|
|
sub
|
|
hex2hsv($) {
|
|
my ($hex) = @_;
|
|
my @rgb = Color::hex2rgb($hex);
|
|
|
|
return Color::rgb2hsv( $rgb[0], $rgb[1], $rgb[2] );
|
|
}
|
|
|
|
sub
|
|
hsv2hex($$$) {
|
|
my ( $h, $s, $v ) = @_;
|
|
my @rgb = Color::hsv2rgb( $h, $s, $v );
|
|
|
|
return Color::rgb2hex( $rgb[0], $rgb[1], $rgb[2] );
|
|
}
|
|
|
|
|
|
# COLOR SPACE: RGB(hex) & HSB
|
|
# RGB > r=hex(00, FF), g=hex(00, FF), b=hex(00, FF)
|
|
# HSB > h=int(0, 65535), s=int(0, 255), b=int(0, 255)
|
|
#
|
|
|
|
sub
|
|
hex2hsb($) {
|
|
my ($hex) = @_;
|
|
my @rgb = Color::hex2rgb($hex);
|
|
|
|
return Color::rgb2hsb( $rgb[0], $rgb[1], $rgb[2] );
|
|
}
|
|
|
|
sub
|
|
hsb2hex($$$) {
|
|
my ( $h, $s, $b ) = @_;
|
|
my @rgb = Color::hsb2rgb( $h, $s, $b );
|
|
|
|
return Color::rgb2hex( $rgb[0], $rgb[1], $rgb[2] );
|
|
}
|
|
|
|
|
|
# COLOR SPACE: RGB(hex) & RGB(dec)
|
|
# hex > r=hex(00, FF), g=hex(00, FF), b=hex(00, FF)
|
|
# dec > r=int(0, 255), g=int(0, 255), b=int(0, 255)
|
|
#
|
|
|
|
sub
|
|
hex2rgb($) {
|
|
my ($hex) = @_;
|
|
if ( uc($hex) =~ /^(..)(..)(..)$/ ) {
|
|
my ( $r, $g, $b ) = ( hex($1), hex($2), hex($3) );
|
|
|
|
return ( $r, $g, $b );
|
|
}
|
|
}
|
|
|
|
sub
|
|
rgb2hex($$$) {
|
|
my ( $r, $g, $b ) = @_;
|
|
my $return = sprintf( "%2.2X%2.2X%2.2X", $r, $g, $b );
|
|
|
|
return uc($return);
|
|
}
|
|
|
|
sub
|
|
ct2rgb($)
|
|
{
|
|
my ($ct) = @_;
|
|
|
|
# calculation from http://www.tannerhelland.com/4435/convert-temperature-rgb-algorithm-code
|
|
|
|
# kelvin -> mired
|
|
$ct = 1000000/$ct if( $ct > 1000 );
|
|
|
|
# adjusted by 1000K
|
|
my $temp = (1000000/$ct)/100 + 10;
|
|
|
|
my $r = 0;
|
|
my $g = 0;
|
|
my $b = 0;
|
|
|
|
$r = 255;
|
|
$r = 329.698727446 * ($temp - 60) ** -0.1332047592 if( $temp > 66 );
|
|
$r = 0 if( $r < 0 );
|
|
$r = 255 if( $r > 255 );
|
|
|
|
if( $temp <= 66 ) {
|
|
$g = 99.4708025861 * log($temp) - 161.1195681661;
|
|
} else {
|
|
$g = 288.1221695283 * ($temp - 60) ** -0.0755148492;
|
|
}
|
|
$g = 0 if( $g < 0 );
|
|
$g = 255 if( $g > 255 );
|
|
|
|
$b = 255;
|
|
$b = 0 if( $temp <= 19 );
|
|
if( $temp < 66 ) {
|
|
$b = 138.5177312231 * log($temp-10) - 305.0447927307;
|
|
}
|
|
$b = 0 if( $b < 0 );
|
|
$b = 255 if( $b > 255 );
|
|
|
|
return( $r, $g, $b );
|
|
}
|
|
|
|
|
|
sub
|
|
devStateIcon($$@)
|
|
{
|
|
my($hash,$type,$rgb,$pct,$onoff) = @_;
|
|
$hash = $::defs{$hash} if( ref($hash) ne 'HASH' );
|
|
|
|
return undef if( !$hash );
|
|
|
|
my $name = $hash->{NAME};
|
|
|
|
if( $type && $type eq "switch" ) {
|
|
my $value;
|
|
if( $onoff ) {
|
|
$value = ::ReadingsVal($name,$onoff,undef);
|
|
$value = ::CommandGet("","$name $onoff") if( !$value );
|
|
$value = "on" if( $value && $value eq "1" );
|
|
$value = "off" if( $value && $value eq "0" );
|
|
|
|
} else {
|
|
$value = ::Value($name);
|
|
}
|
|
|
|
my $s = $value;
|
|
|
|
return ".*:light_question" if( !$s );
|
|
return ".*:$s:toggle";
|
|
|
|
} elsif( $type && $type eq "dimmer" ) {
|
|
my $percent;
|
|
if( $pct ) {
|
|
$percent = ::ReadingsVal($name,$pct, undef);
|
|
$percent = ::CommandGet("","$name $pct") if( !$percent );
|
|
|
|
} else {
|
|
$percent = ::Value($name);
|
|
}
|
|
|
|
return ".*:light_question" if( !defined($percent) );
|
|
|
|
my $s = $dim_values{int($percent/7)};
|
|
$s="off" if( $percent eq "0" );
|
|
$s="on" if( $percent eq "100" );
|
|
|
|
return ".*:$s:toggle";
|
|
|
|
} elsif( $type && $type eq "rgb" ) {
|
|
my $value;
|
|
if( $rgb ) {
|
|
$value = ::ReadingsVal($name,$rgb,undef);
|
|
$value = ::CommandGet("","$name $rgb") if( !$value );
|
|
|
|
} else {
|
|
$value = ::Value($name);
|
|
|
|
}
|
|
|
|
return ".*:light_question" if( !defined($value) );
|
|
return ".*:on:toggle" if( $value eq "on" );
|
|
return ".*:off:toggle" if( $value eq "off" );
|
|
|
|
my $s = 'on';
|
|
if( $pct ) {
|
|
my $percent = ::ReadingsVal($name,$pct, undef);
|
|
$percent = ::CommandGet("","$name $pct") if( !$percent );
|
|
return ".*:off:toggle" if( $percent eq "off" );
|
|
$percent = 100 if( $percent eq "on" );
|
|
$s = $dim_values{int($percent/7)} if( $percent && $percent < 100 );
|
|
}
|
|
|
|
return ".*:$s@#$value:toggle";
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
|
|
1;
|