FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-09 20:57:11 +00:00
Code Issues Releases Wiki Activity

Color.pm: added pahColor by betateilchen and pah, see forum: http://forum.fhem.de/index.php/topic,30128.msg261174.html#msg261174

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8014 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2015-02-16 23:11:13 +00:00
parent 060766cb1b
commit b7d62dc079
1 changed files with 72 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
fhem/FHEM/Color.pm
View File

@ -425,5 +425,77 @@ devStateIcon($$@)
return undef;
}
# see: http://forum.fhem.de/index.php/topic,30128.msg261174.html#msg261174
sub pahColor {
my ($starttemp,$midtemp2,$endtemp,$temp,$opacity) = @_;
$opacity //= 255;
my($uval,$rval,$rval1,$rval2,$rval3);
my($gval,$gval1,$gval2,$gval3);
my($bval,$bval1,$bval2,$bval3);
my $startcolorR = 0;
my $startcolorG = 255;
my $startcolorB = 255;
my $midcolor1R = 30;
my $midcolor1G = 80;
my $midcolor1B = 255;
my $midcolor2R = 40;
my $midcolor2G = 255;
my $midcolor2B = 60;
my $midcolor3R = 160;
my $midcolor3G = 128;
my $midcolor3B = 10;
my $endcolorR = 255;
my $endcolorG = 69;
my $endcolorB = 0;
return sprintf("%02X%02X%02X%02X",$startcolorR,$startcolorG,$startcolorB,$opacity) if ($temp <= $starttemp);
return sprintf("%02X%02X%02X%02X",$endcolorR,$endcolorG,$endcolorB,$opacity) if ($temp > $endtemp);
if ($temp <= $midtemp2) {
$uval = sprintf("%.5f",($temp - $starttemp) / ($midtemp2 - $starttemp));
$rval1 = sprintf("%.5f",(1-$uval)**2 * $startcolorR);
$rval2 = sprintf("%.5f",2*(1-$uval) * $uval * $midcolor1R);
$rval3 = sprintf("%.5f",$uval**2 * $midcolor2R);
$rval = sprintf("%.0f",(100*($rval1 + $rval2 + $rval3)+0.5)/100);
$gval1 = sprintf("%.5f",(1-$uval)**2 * $startcolorG);
$gval2 = sprintf("%.5f",2*(1-$uval) * $uval * $midcolor1G);
$gval3 = sprintf("%.5f",$uval**2 * $midcolor2G);
$gval = sprintf("%.0f",(100*($gval1 + $gval2 + $gval3)+0.5)/100);
$bval1 = sprintf("%.5f",(1-$uval)**2 * $startcolorB);
$bval2 = sprintf("%.5f",2*(1-$uval) * $uval * $midcolor1B);
$bval3 = sprintf("%.5f",$uval**2 * $midcolor2B);
$bval = sprintf("%.0f",(100*($bval1 + $bval2 + $bval3)+0.5)/100);
return sprintf("%02X%02X%02X%02X",$rval,$gval,$bval,$opacity);
}
if ($temp <= $endtemp) {
$uval = sprintf("%.5f",($temp - $midtemp2)/($endtemp - $midtemp2));
$rval1 = sprintf("%.5f",(1-$uval)**2 * $midcolor2R);
$rval2 = sprintf("%.5f",2 * (1-$uval) * $uval * $midcolor3R);
$rval3 = sprintf("%.5f",$uval**2 * $endcolorR);
$rval = sprintf("%.0f",(100*($rval1+$rval2+$rval3)+0.5)/100);
$gval1 = sprintf("%.5f",(1-$uval)**2 * $midcolor2G);
$gval2 = sprintf("%.5f",2 * (1-$uval) * $uval * $midcolor3G);
$gval3 = sprintf("%.5f",$uval**2 * $endcolorG);
$gval = sprintf("%.0f",(100*($gval1+$gval2+$gval3)+0.5)/100);
$bval1 = sprintf("%.5f",(1-$uval)**2 * $midcolor2B);
$bval2 = sprintf("%.5f",2*(1-$uval)*$uval*$midcolor3B);
$bval3 = sprintf("%.5f",$uval**2 *$endcolorB);
$bval = sprintf("%.0f",(100*($bval1+$bval2+$bval3)+0.5)/100);
return sprintf("%02X%02X%02X%02X",$rval,$gval,$bval,$opacity);
}
}
1;