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))