let in_click_zone (x : float) (y : float) : bool = List.mem true (List.map (fun ((click_x,click_y),_) -> (x = click_x && click_y = y) ) (!infos_zones))