let draw_click_zone (x : float) (y : float) (tag_number1 : int) (tag2 : string) : unit =
let xc1 = xconv (x -. 0.25) in
let yc1 = yconv (y +. 0.55) in
let xc2 = xconv (x +. 0.25) in
let yc2 = yconv (y -. 0.55) in
ignore(Canvas.create_rectangle ~x1:xc1 ~y1:yc1 ~x2:xc2 ~y2:yc2 ~width:1 ~tags:[("tag"^(string_of_int tag_number1));tag2] ~fill:clicol ~outline:violet canvas)