Source position: XGR32_Polygons.pas line 52
procedure Build_Circle(
var aPolyPoints: TPolyPoints;
const CenterPoint: TPoint;
const CurrentPoint: TPoint
);