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