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