Source position: XGR32_Polygons.pas line 50
procedure Build_Polygon(
var aPolyPoints: TPolyPoints;
const CenterPoint: TPoint;
const CurrentPoint: TPoint;
Sides: Integer
);