[patch] 02_RSS.pm Fontsize relativ und mit perlSpecials

[betateilchen]

Bezugnehmend auf die Frage in diesem Thread http://forum.fhem.de/index.php/topic,23210.0.html

schlage ich folgenden Patch vor:

Code Auswählen Erweitern


          } elsif($cmd eq "pt") {
            if($def =~ m/^[+-]/) {
              $params{pt} += $def;
            } else {
              $params{pt} = AnalyzePerlCommand(undef, $def);
            }
            $params{pt}  = 6 if($params{pt} < 0);
          } elsif($cmd eq "moveto") {


Damit ist dann folgendes möglich:

Code Auswählen Erweitern


pt 24
rgb "FF0000" # rot
text 250 40 "font-size = 24"

pt -4
rgb "2E64FE" # blau
text 400 40 "font-size = 20"

pt +4
rgb "00FF00" # gruen
text 500 40 "font size = 24"

pt {4*5}
rgb "FFFFFF" # weiss
text 500 40 "font size = 20"


[betateilchen]

*schubs*

[Dr. Boris Neubert]

schlage ich folgenden Patch vor:

Code Auswählen Erweitern


          } elsif($cmd eq "pt") {
            if($def =~ m/^[+-]/) {
              $params{pt} += $def;
            } else {
              $params{pt} = AnalyzePerlCommand(undef, $def);
            }
            $params{pt}  = 6 if($params{pt} < 0);
          } elsif($cmd eq "moveto") {


eingecheckt