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;
  
    }
}