let infos_zones = (ref []: ((float * float) * float list) list Pervasives.ref)