diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm index 884a9526c..be2a7cf9d 100755 --- a/fhem/FHEM/10_CUL_HM.pm +++ b/fhem/FHEM/10_CUL_HM.pm @@ -4381,6 +4381,28 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++ return "device for command cannot be identified"; } } + elsif($cmd eq "brightCol") { ################################################ + my (undef,undef,$bright,$colVal,$duration,$ramp) = @a; #date prepared extention to entdate + return "please enter the duration in seconds" + if (!defined $duration || $duration !~ m/^[+-]?\d+(\.\d+)?$/); + my $tval = CUL_HM_encodeTime16($duration);# onTime 0.0..85825945.6, 0=forever + return "timer value to low" if ($tval eq "0000"); + $ramp = CUL_HM_encodeTime16($ramp); + + CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.'80'.$chn. + sprintf("%02x%02",$bright,$colVal).$ramp.$tval); + } + elsif($cmd eq "brightAuto") { ############################################### + my (undef,undef,$bright,$colProg,$min,$max,$duration,$ramp) = @a; #date prepared extention to entdate + return "please enter the duration in seconds" + if (!defined $duration || $duration !~ m/^[+-]?\d+(\.\d+)?$/); + my $tval = CUL_HM_encodeTime16($duration);# onTime 0.0..85825945.6, 0=forever + return "timer value to low" if ($tval eq "0000"); + $ramp = CUL_HM_encodeTime16($ramp); + + CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.'80'.$chn. + sprintf("%02x%02%02x%02",$bright,$colProg,$min,$max).$ramp.$tval); + } elsif($cmd eq "playTone") { ################################################# my $msg; if ($a[2] eq 'replay'){ diff --git a/fhem/FHEM/HMConfig.pm b/fhem/FHEM/HMConfig.pm index a09f34a55..e118c2820 100644 --- a/fhem/FHEM/HMConfig.pm +++ b/fhem/FHEM/HMConfig.pm @@ -646,6 +646,11 @@ foreach my $al (keys %culHmModel){ # duplicate entries for alias devices mtrConstLed =>{a=>154.0,s=>2 ,l=>1,min=>1 ,max=>65536 ,c=>'' ,f=>'' ,u=>'i/kWh',d=>0,t=>"constant led"}, mtrSensIr =>{a=>156.0,s=>1 ,l=>1,min=>-99 ,max=>99 ,c=>'' ,f=>'' ,u=>'%' ,d=>0,t=>"sensiblity IR"}, + waRed =>{a=>164.0,s=>1 ,l=>1,min=>0 ,max=>100 ,c=>'' ,f=>'' ,u=>'%' ,d=>0,t=>"whitebalance red"}, + waGreen =>{a=>165.0,s=>1 ,l=>1,min=>0 ,max=>100 ,c=>'' ,f=>'' ,u=>'%' ,d=>0,t=>"whitebalance green"}, + waBlue =>{a=>166.0,s=>1 ,l=>1,min=>0 ,max=>100 ,c=>'' ,f=>'' ,u=>'%' ,d=>0,t=>"whitebalance blue"}, + colChangeSpeed =>{a=>167.0,s=>1 ,l=>1,min=>0 ,max=>255 ,c=>'' ,f=>'' ,u=>'s/U' ,d=>0,t=>"color change speed"}, + #un-identified List1 # SEC-WM55 08:01 (AES on?) # SEC-WDS 34:0x64 ? @@ -1172,7 +1177,8 @@ $culHmRegModel{"ROTO_ZEL-STG-RM-DWT-10"}= $culHmRegModel{"HM-PB-4DIS-WM"}; ,OffDlyStep =>1,OffDlyNewTime =>1,OffDlyOldTime =>1 ,lgMultiExec =>1 } - ,"HM-LC-RGBW-WM02" =>{ ActHsvCol =>1} + ,"HM-LC-RGBW-WM02" =>{ ActHsvCol =>1 + ,waRed =>1,waGreen =>1,waBlue =>1,colChangeSpeed =>1} ,"HM-LC-RGBW-WM03" =>{ ActColPrgm =>1,ActMinBoarder =>1,ActMaxBoarder =>1} ); @@ -1666,11 +1672,15 @@ $culHmModelSets{"ROTO_ZEL-STG-RM-DWT-10"}= $culHmModelSets{"HM-PB-4DIS-WM"}; ,inhibit =>"[on|off]" ,statusRequest =>"" ,peerIODev =>"[IO] [set|unset]... not for future use" + ,brightCol =>" " + ,brightAuto =>" " } - ,"HM-LC-RGBW-WM02" =>{ brightCol =>"" #General work 2 do!!! - ,brightAuto =>"" + ,"HM-LC-RGBW-WM02" =>{ brightCol =>" " #General rework + ,brightAuto =>" " + } + ,"HM-LC-RGBW-WM03" =>{ brightCol =>" " + ,brightAuto =>" " } - ); # clones- - - - - - - - - - - - - - - - -