Source position: graphmath.pp line 99
function Quadrant(
const PT: TPoint;
const Center: TPoint
):Integer;