2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 23:36:37 +00:00

76_SolarForecast.pm: contrib 0.55.1

git-svn-id: https://svn.fhem.de/fhem/trunk@24921 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-09-05 19:23:29 +00:00
parent c100542c58
commit b4ffea9631

View File

@ -5075,7 +5075,7 @@ sub _flowGraphic {
$css
$animation
</style>
<svg xmlns="http://www.w3.org/2000/svg" viewBox="5 15 580 580" style="$style" id="SVGPLOT">
<g transform="translate(300,50)">
@ -5181,19 +5181,19 @@ END3
my $consumer_style = 'flowg inactive_out';
for my $c1 (@consumers) {
# Log3 ($name, 1, "$name - Energieflussgrafik, Consumer to show -> $c1");
my $power = ConsumerVal ($hash, $c1, "power", 0);
my $currentPower = ReadingsNum($name, "consumer${c1}_currentPower", 0);
my $p = $currentPower;
$p = (($currentPower / $power) * 100) if ($power > 0);
$consumer_style = 'flowg inactive_out';
$consumer_style = 'flowg active_out' if($p > 0);
my $consumer_color = "";
$consumer_color = 'style="stroke: #'.substr(Color::pahColor(0,50,100,$p,[0,255,0, 127,255,0, 255,255,0, 255,127,0, 255,0,0]),0,6).';"' if($p > 0);
# Log3 ($name, 1, "$name - Energieflussgrafik, Consumer to show -> $c1");
my $power = ConsumerVal ($hash, $c1, "power", 0);
my $currentPower = ReadingsNum($name, "consumer${c1}_currentPower", 0);
my $p = $currentPower;
$p = (($currentPower / $power) * 100) if ($power > 0);
$consumer_style = 'flowg inactive_out';
$consumer_style = 'flowg active_out' if($p > 0.5);
my $consumer_color = "";
$consumer_color = 'style="stroke: #'.substr(Color::pahColor(0,50,100,$p,[0,255,0, 127,255,0, 255,255,0, 255,127,0, 255,0,0]),0,6).';"' if($p > 0.5);
$ret .= qq{<path id="home-consumer_$c1" class="$consumer_style" $consumer_color d="M500,700 L$pos_left,850" />};
$pos_left += ($consumer_distance * 2);