sig
  val ( -|- ) : AGeom.Point3d.t -> AGeom.Point3d.t -> AGeom.Point3d.t
  val ( <=> ) : AGeom.Point3d.t -> AGeom.Point3d.t -> float
  val ( ?. ) : AGeom.Point3d.t -> AGeom.Point3d.t -> AGeom.Point3d.t
end