Delphi. Построение фигур с помощью Canvas.

[armchair]

Мне нужно изобразить шестиконечную звезду. ( это вроде как два наложенных друг на друга равносторонних треугольника, один острием вверх, другой вниз)

Вот часть кода для правильного 8-миугольника:

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
  var S, P: real;
  s1, s2: string;
begin
  if Key=#13 then begin
  val(Edit3.Text, y0, code);
  if code=0 then begin
  S:=2*sqrt(3)*sqr(r);
  P:=8*R;
   str(S:0:2, s1);
   str(P:0:2, s2);
   Label5.Caption:='Площадь восьмиуголника= '+s1+#13+
                                     'Периметр восьмиугольника= '+s2;
   Form2.Show;
   Form2.PaintBox1Paint(Sender);
   end
    else begin
    Edit3.Text:='';
    Edit3.SetFocus;
  end;
 end;
end;

end.
Также требуется вычислить периметр и площадь фигуры. Какие параметры и формулы вычисления нужны для моей звезды, я не знаю. Заранее спасибо.

[Stilet]

Могу предложить из своих архивов:

procedure TForm1.FormPaint(Sender: TObject);
var cx,cy,rx,ry,x,r,y,angle,BeginAngle, rang, ang:real;n,e,i:integer;
 atp:array of TPoint;
begin
  cx:=Width / 2; cy:=Height/2;
  n:=12;  BeginAngle:=0;
  ang:=360/n;
  angle:=(2*pi*ang)/360; rang:=angle;
  SetLength(atp,n);
    for  i:=0  to n  do
    begin
     if odd(i) then r:=100 else r:=50;
     rx:=(cos(angle+BeginAngle));
     ry:=(sin(angle+BeginAngle));
     atp[i].X:=round(cx+r*(rx));
     atp[i].Y:=round(cy+r*(ry));
     angle:=angle+rang;
    end;
    Canvas.Polygon(atp);
    SetLength(atp,0);
end;

[min@y™]

это типа звезда Давида, штоли?

[zvygin1964]

А может такая ?

[min@y™]

атас и шухер!
дядьмиша осваивает фотожоп!