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\"/>";
}
Ein Erklärung dazu, wo das hin soll? Und wie es aufgerufen wird ? ;-)
gruß
Sascha