Создает правильный n-угольник.
Visual Basic:
Function CreateRegularPolygon(N As Long, Xc As Double, Yc As Double, R As Double, Angle As Double, flag As Long) As Contour
N - количество сторон многоугольника.
Xc, Yc - координаты центра многоугольника.
R - Сторона многоуголдиника или радиус вписанной или описанной окружности, в зависимости от параметра flag.
Angle - угол поворота многоугольника вокруг центра.
flag - задает назначение параметра R:
0 - радиус вписанной окружности,
1 - радиус описанной окружности,
2 - сторона многоугольника.
Результат возвращается в виде контурного объекта Contour