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