let draw_step (x : float) (y : float) (text : string) (col : Tk.color) (tag_number : int) (tag2 : string) : unit = 
                                 let xc = xconv x in
                                 let yc = yconv y in 
                                 ignore(Canvas.create_text ~x:xc ~y:yc ~font:"guifont" ~fill:col ~width:(xconv 100.) ~tags:[("tag"^(string_of_int tag_number));(tag2^(string_of_int tag_number))] ~anchor:`E ~text:text  canvas);