13 lines
365 B
ObjectPascal
13 lines
365 B
ObjectPascal
uses GraphWPF;
|
|
|
|
procedure ВсеТочкиМногоугольника(x0,y0,r: real; n: integer);
|
|
begin
|
|
var q := Partition(0,2*Pi,n).Select(a->Pnt(x0 + r * Cos(a), y0 - r * Sin(a)));
|
|
q.Cartesian(q).ForEach(p->Line(p[0].x,p[0].y,p[1].x,p[1].y,RandomColor));
|
|
end;
|
|
|
|
begin
|
|
Pen.Width := 0.5;
|
|
ВсеТочкиМногоугольника(400,300,290,30)
|
|
end.
|