let in_zone (ord : float) : bool =
        let rec aux l =
                match l with [] -> false
                        |((_,z)::ls) -> (
                                        let mini = min_l z in
                                        let maxi = max_l z in
                                        if ( (mini <= ord && ord <= maxi) )
                                        then true
                                        else aux ls 
                                )
        in aux (!infos_zones)