Neuer Diagrammtyp

Begonnen von Irene, 07 April 2017, 13:06:19

Vorheriges Thema - Nächstes Thema

Irene

Hi! Habe mir einen neuen Balkentyp zusammengebastelt um Ölverbrauch gegen Temperatur besser darstellen zu können (Öl ist invertiert). Vielleicht kann es sonst noch wer brauchen...

Mfg Irene

} elsif( $lType eq "bars0" ) {
       if(@{$dxp} == 1) {
          my $y1 = $y+$h-($dyp->
  • -$min)*$hmul;
              $ret .=  sprintf(" %d,%d %d,%d %d,%d %d,%d",
                    $x,$y+$h, $x,$y1, $x+$w,$y1, $x+$w,$y+$h);
           } else {
              my $bw = $barwidth*$tmul;
              # bars are all of equal width (see far above !),
              # position rounded to integer multiples of bar width
              foreach my $i (0..int(@{$dxp})-1) {
                my ($x1, $y1) = ( $x + $dxp->[$i] - $bw, $y);
                my $curBw = $bw;                                                                         
                if($x1 < $x) {
                    $curBw -= $x - $x1;
                    $x1 = $x;
                }
                my ($x2, $y2) = ($curBw, $h-($dyp->[$i]-$min)*$hmul);
                SVG_pO "<rect $attributes $lStyle x=\"$x1\" y=\"$y1\" ".
                            "width=\"$x2\" height=\"$y2\"/>";
    }

sash.sc

Ein Erklärung dazu, wo das hin soll? Und wie es aufgerufen wird ? ;-)

gruß
Sascha
Raspi 4B+ Bullseye ;LaCrosse; HomeMatic; MapleCUL; ZigBee; Signalduino ESP32 ; Shellys; MQTT2; Grafana mit Influxdb