координаты точек на спирали

    int needP, gotP;
    double phi, ep, x, y, x2, y2, xC, yC, D, l;
 
    x2 = y2 = xC = yC = 200; //центр спирали
    phi=0; ep=0.1; D=30; l=0; //ep - точность (чем меньше, тем меньше погрешность), D - расстояние между точками
    needP=50; gotP=0; //needP - сколько нужно точек
    Canvas->MoveTo(xC, yC);
 
 
    while (gotP<needP)
    {
        x = xC+10*phi*sin(phi);
        y = yC+10*phi*cos(phi);
        l+=Sqrt((x2-x)*(x2-x)+(y2-y)*(y2-y));
        x2 = x; y2 = y;
 
        if (l>D) { 
            //когда мы сюда заходим, в x, y лежат координаты точки с индексом gotP
            l=0;
            Canvas->Ellipse(x-2, y-2, x+3, y+3);
            Canvas->LineTo(x, y);
            gotP++;
        }
        phi+=ep;
    }

void MyTextOut(TCanvas *Canvas, int x, int y, double phi, String text)
{
  LOGFONT lf;                         // определяем структуру шрифта
  Canvas->Brush->Style = bsClear;     // устан прозрачный стиль кисти
  ZeroMemory(&lf, sizeof(LOGFONT));   //очищаем память
  lf.lfHeight = 20;                  // высота шрифта (размер подбирается системой)
  lf.lfEscapement = phi/3.1415*180*10 ; // угол поворота например: 45*00" = 450
  lf.lfOrientation = 900;              // ориентация  в десятых долях градуса
                                       // под WinXP почему-то не работает :(
  lf.lfCharSet = DEFAULT_CHARSET;       // набор символов
  strcpy(lf.lfFaceName, "Times New Roman");       // шрифт
  Canvas->Font->Handle = CreateFontIndirect(&lf); // создаем из структуры хэндл
                         // и устанавливаем его текущим
  Canvas->TextOut(x, y, text);           // выводим текст на холст (канву)
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int needP, gotP;
    double phi, ep, x, y, x2, y2, xC, yC, D, l;
 
    x2 = y2 = xC = yC = 200; //центр спирали
    phi=0; ep=0.1; D=30; l=0; //ep - точность (чем меньше, тем меньше погрешность), D - расстояние между точками
    needP=50; gotP=0; //needP - сколько нужно точек
    Canvas->MoveTo(xC, yC);
 
 
    while (gotP<needP)
    {
        x = xC+10*phi*sin(phi);
        y = yC+10*phi*cos(phi);
        l+=Sqrt((x2-x)*(x2-x)+(y2-y)*(y2-y));
        x2 = x; y2 = y;
 
        if (l>D) {
            //когда мы сюда заходим, в x, y лежат координаты точки с индексом gotP
            l=0;
            Canvas->Ellipse(x-2, y-2, x+3, y+3);
            //Canvas->LineTo(x, y);
            gotP++;
            MyTextOut(Canvas, x, y, phi, "A");
        }
        phi+=ep;
    }
}