".
@@ -675,6 +677,34 @@ sub DOIFtools_Notify($$) {
}
return undef;
}
+
+# DOIFtoolsLinColorGrad(start_color,end_color,percent|[$min,max,current])
+# start_color, end_color: 6 hexadecimal values as string with or without leading #
+# percent: from 0 to 1
+# min: minmal value
+# max: maximal value
+# current: current value
+# return: 6 hexadecimal value as string, prefix depends on input
+sub DOIFtoolsLinColorGrad {
+ my ($sc,$ec,$pct,$max,$cur) = @_;
+ $pct = ($cur-$pct)/($max-$pct) if (@_ == 5);
+ my $prefix = "";
+ $prefix = "#" if ("$sc $ec"=~"#");
+ $sc =~ s/^#//;
+ $ec =~ s/^#//;
+ $pct = $pct > 1 ? 1 : $pct;
+ $pct = $pct < 0 ? 0 : $pct;
+ $sc =~/([0-9A-F]{2})([0-9A-F]{2})([0-9A-F]{2})/;
+ my @sc = (hex($1),hex($2),hex($3));
+ $ec =~/([0-9A-F]{2})([0-9A-F]{2})([0-9A-F]{2})/;
+ my @ec = (hex($1),hex($2),hex($3));
+ my @rgb;
+ for (0..2) {
+ $rgb[$_] = sprintf("%02X", int(($ec[$_] - $sc[$_])*$pct + $sc[$_] + .5));
+ }
+ return $prefix.join("",@rgb);
+}
+
sub DOIFtoolsRg
{
my ($hash,$arg) = @_;
@@ -1125,6 +1155,7 @@ sub DOIFtools_Set($@)
return $ret;
} elsif ($arg eq "targetDOIF") {
readingsSingleUpdate($hash,"targetDOIF",$value,0);
+ FW_directNotify("#FHEMWEB:$FW_wname", "location.reload('".AttrVal($pn,"DOIFtoolsForceGet","")."')", "");
} elsif ($arg eq "deleteReadingsInTargetDOIF") {
if ($value) {
my @i = split(",",$value);
@@ -1141,6 +1172,7 @@ sub DOIFtools_Set($@)
}
} elsif ($arg eq "targetDevice") {
readingsSingleUpdate($hash,"targetDevice",$value,0);
+ FW_directNotify("#FHEMWEB:$FW_wname", "location.reload('".AttrVal($pn,"DOIFtoolsForceGet","")."')", "");
} elsif ($arg eq "deleteReadingsInTargetDevice") {
if ($value) {
my @i = split(",",$value);
@@ -1459,9 +1491,53 @@ sub DOIFtools_Get($@)
$ret .= CommandAttr(undef,"$value icon helper_doif");
$ret .= CommandSave(undef,undef) if (AttrVal($pn,"DOIFtoolsExecuteSave",""));
return $ret;
+ } elsif ($arg eq "linearColorGradient") {
+ my ($sc,$ec,$min,$max,$step) = split(",",$value);
+ if ($value && $sc =~ /[0-9A-F]{6}/ && $ec =~ /[0-9A-F]{6}/ && $min =~ /(-?\d+(\.\d+)?)/ && $max =~ /(-?\d+(\.\d+)?)/ && $step =~ /(-?\d+(\.\d+)?)/) {
+ $ret .= "
";
+ $ret .= "| Color Table | ";
+ $ret .= "";
+ for (my $i=0;$i<=255;$i++) {
+ my $col = DOIFtoolsLinColorGrad($sc,$ec,0,255,$i);
+ $ret .= " ";
+ }
+ $ret .= " |
";
+ $ret .= "| Value | Color Number | Color |
";
+ for (my $i=$min;$i<=$max;$i+=$step) {
+ my $col = DOIFtoolsLinColorGrad($sc,$ec,$min,$max,$i);
+ $ret .= "| ".sprintf("%.1f",$i)." | $col | |
";
+ }
+ $ret .= "
\n";
+
+ return $ret;
+ } else {
+ $ret = $DE ? "Syntax:
+
<Startfarbnummer>,<Endfarbnummer>,<Minimalwert>,<Maximalwert>,<Schrittweite>
+
+<Startfarbnummer>, ist eine HTML-Farbnummer, Beispiel: #0000FF für Blau.
+<Endfarbnummer>, , ist eine HTML-Farbnummer, Beispiel: #FF0000 für Rot.
+<Minimalwert>, der Minimalwert auf den die Startfarbnummer skaliert wird, Beispiel: 7.
+<Maximalwert>, der Maximalwert auf den die Endfarbnummer skaliert wird, Beispiel: 30.
+<Schrittweite>, für jeden Schritt wird ein Farbwert erzeugt, Beispiel: 0.5.
+
+Beispielangabe: #0000FF,#FF0000,7,30,0.5
+":
+"Syntax:
+
<start color number>,<end color number>,<minimal value>,<maximal value>,<step width>
+
+<start color number>, a HTML color number, example: #0000FF for blue.
+<end color number>, , a HTML color number, example: #FF0000 for red.
+<minimal value>, the start color number will be scaled to it, example: 7.
+<maximal value>, the end color number will be scaled to it, example: 30.
+<step width>, for each step a color number will be generated, example: 0.5.
+
+Example specification: #0000FF,#FF0000,7,30,0.5
+";
+ return $ret
+ }
} else {
my $hardcoded = "checkDOIF:noArg statisticsReport:noArg runningTimerInDOIF:noArg";
- return "unknown argument $arg for $pn, choose one of readingsGroup_for:multiple-strict,$dL DOIF_to_Log:multiple-strict,$dL SetAttrIconForDOIF:multiple-strict,$dL userReading_nextTimer_for:multiple-strict,$ntL ".(AttrVal($pn,"DOIFtoolsHideGetSet",0) ? $hardcoded :"");
+ return "unknown argument $arg for $pn, choose one of readingsGroup_for:multiple-strict,$dL DOIF_to_Log:multiple-strict,$dL SetAttrIconForDOIF:multiple-strict,$dL userReading_nextTimer_for:multiple-strict,$ntL ".(AttrVal($pn,"DOIFtoolsHideGetSet",0) ? $hardcoded :"")." linearColorGradient:textField";
}
return $ret;
@@ -1501,6 +1577,7 @@ DOIFtools contains tools to support DOIF.
create shortcuts
optionally create a menu entry
show a list of running wait timer
+
scale values to color numbers for coloration
Just one definition per FHEM-installation is allowed.
More in the german section.
@@ -1530,7 +1607,8 @@ DOIFtools stellt Funktionen zur Unterstützung von DOIF-Geräten bereit.
Zugriff aus DOIFtools auf vorhandene DOIFtoolsLog-Logdateien.
zeigt den Event Monitor in der Detailansicht von DOIFtools.
ermöglicht den Zugriff auf den Event Monitor in der Detailansicht von DOIF.
-
erzeugt DOIF-Operanden aus einer Event-Zeile des Event-Monitors:
+
erzeugt DOIF-Operanden aus einer Event-Zeile des Event-Monitors.
+
skaliert Werte zu Farbnummern zum Einfärben, z.B. von Icons.
- Ist der Event-Monitor in DOIF geöffnet, dann kann die Definition des DOIF geändert werden.
- Ist der Event-Monitor in DOIFtools geöffnet, dann kann die Definition eines DOIF erzeugt werden.
@@ -1646,6 +1724,17 @@ DOIFtools stellt Funktionen zur Unterstützung von DOIF-Geräten bereit.
get <name> SetAttrIconForDOIF <DOIF names for setting the attribute icon to helper_doif>
SetAttrIconForDOIF setzt für die ausgewählten DOIF das Attribut icon auf helper_doif.
+ get <name> linearColorGradient <start color number>,<end color number>,<minimal value>,<maximal value>,<step width>
+ linearColorGradient erzeugt eine Tabelle mit linear abgestuften Farbnummern.
+ <Startfarbnummer>, ist eine HTML-Farbnummer, Beispiel: #0000FF für Blau.
+ <Endfarbnummer>, , ist eine HTML-Farbnummer, Beispiel: #FF0000 für Rot.
+ <Minimalwert>, der Minimalwert auf den die Startfarbnummer skaliert wird, Beispiel: 7.
+ <Maximalwert>, der Maximalwert auf den die Endfarbnummer skaliert wird, Beispiel: 30.
+ <Schrittweite>, für jeden Schritt wird ein Farbwert erzeugt, Beispiel: 0.5.
+
+ Beispiel: get DOIFtools linearColorGradient #0000FF,#FF0000,7,30,0.5
+
+