let draw_plot (x_pos : float) (text : string) (col : Tk.color) : unit =
draw_line x_pos ((!ymax)*. (-1000.)) x_pos (!ymax -. 5.) col (-1) ;
draw_line (x_pos -. 3.5) ((!ymax)-. 5.) (x_pos +.3.5) ((!ymax)-. 5.) col (-1) ;
draw_text x_pos ((!ymax)-. 3.) text col [("tag"^(string_of_int (-1)))] `Center;
Hashtbl.add role_position text x_pos