Рисование n-угольной правильной звезды

[Nextgen]

Доброго времени суток! Значит к чему я пришел:
нужно получить n-угольник. На рисунке в виде примера дана звезда.
Заданы внешний и внутренний радиусы, имеется центр многоугольника, соответственно сами задаем количество вершин. Вот что вышло:
В событии FormPaint я вписал вот что

 R=30;//внешний радиус
r=10;//внутренний радиус
  int x=150, y=150;  //координаты центра
  const float pi=3.1415926;
  Canvas->MoveTo(x + R, y);//перемещаем указатель на 1-ю вершину

 for(int i=1; i<=n; i++){
Canvas->LineTo(x + cos(i*pi*2/n) * R, y + sin(i*pi*2/n) * R);
}

Но не выходит как на изображении, нет острых углов, ну я и не ставил внутренний радиус, т.к. уже там перепробовал много всего и вписал то что работает. Вот я не могу придумать такую формулу что бы использовался еще и внутренний радиус, и как их объеденить в одну формулу.

Надейюсь на вашу помощь!

[DomiNick]

нужно получить n-угольник.

Ну у вас и получился n-угольник... А то что на картинке сильно смахивает на n-конечную звезду...

Уточните задание... =\\

[Nextgen]

А ну да оговарился. Должна быть n-угольная звезда

[DomiNick]

Переделал из Делфи под билдер... Работает?

R=30;
r=10;
int x=150, y=150;
const float pi=3.1415926;
Canvas->MoveTo(x+R, y);
int i=1;
while (i<=n*2)
{
      Canvas->LineTo(x+cos(i*pi/n)*r, y+sin(i*pi/n)*r);
      i=i+1;
      Canvas.LineTo(x+cos(i*pi/n)*R, y+sin(i*pi/n)*R);
      i=i+1;
}

[Nextgen]

Спасибо! Прекрасно работает, щас буду разбирать формулу))