let draw_text (x : float) (y : float) (text : string) (col : Tk.color) (tag : string list) (a : Tk.anchor) : unit = 
                                 let xc = xconv x in
                                 let yc = yconv y in 
                                 ignore(Canvas.create_text ~x:xc ~y:yc~font:"textfont" ~fill:col ~width:(xconv 100.) ~anchor:a ~tags:tag ~text:text  canvas)