let draw_text_left (x : float) (y : float) (text : string) (col : Tk.color) (tag_number : int) (tag2 : string) : unit = 
                                 let xc = 5+(xconv x) in
                                 let yc = yconv y in 
                                 ignore(Canvas.create_text ~x:(xc+3) ~y:yc ~font:"guifont" ~fill:col ~width:(xconv 100.) ~tags:[("tag"^(string_of_int tag_number));(tag2^(string_of_int tag_number))] ~anchor:`W ~text:text  canvas);
                                 ignore(Canvas.create_line ~xys:[xc,(yc-(int_of_float (!yscale *. 0.5 *. !yDelta -. 0.1))) ; xc,(yc+(int_of_float(!yscale *. 0.5 *. !yDelta -. 0.1)))] ~width:2 ~tags:[("tag"^(string_of_int tag_number));(tag2^(string_of_int tag_number))] ~fill:col canvas);