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)