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