sub DrawDataPoint { my $value = shift; # wert wird als Parameter mitgegeben my $color = shift; # farbe der funktion # positon des neuen y-Wertes if (looks_like_number($value)) { $hNew = 575 - ($hPixelPerValue * $value); } else { $hNew = 575; } # linie wird gezeichnet if($wOld + $wPixelPerValue <= 775){ $wNew = $wOld + $wPixelPerValue; $canvas->createLine($wOld, $hOld, $wNew, $hNew, -fill => "$color"); $hOld = $hNew; $wOld = $wNew; } # rücksetzen - neue funktion beginnt else { $wOld = 25; $hOld = 575; } }