Звездный фрактал

const int r = 0.35;
 
void pentagramma(int centerX, int centerY, double radius, int step)
{
    int p[2][5]; // p[0][0..4] - X вершин звезды, p[1][0..4] - Y вершин
    // вычисление
    // рисуем на канвасе по вычисленным точкам
    for (int i = 4; i >= 0; --i)
        pentagramma(p[0][i], p[1][i], radius*r, step-1);
}

const double scale = 0.35;
const int depth = 5;
 
void pentagramma(int level, double x, double y, double r, TCanvas *canvas)
{
    const double offset = -M_PI / 2;
    const double angle = 4 * M_PI / 5;
 
    for (int i = 0; i < 5;)
    {
        canvas->MoveTo((int)(x + r*cos(offset + i*angle)),
            (int)(y + r*sin(offset + i*angle)));
        i += 1;
        canvas->LineTo((int)(x + r*cos(offset + i*angle)),
            (int)(y + r*sin(offset + i*angle)));
 
        if (level < depth)
            pentagramma(level + 1, x + r*cos(offset + i*angle),
            y + r*sin(offset + i*angle), r*scale, canvas);
    }
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    pentagramma(1, this->Width / 2., this->Height / 2., 200., this->Canvas);
}