Поворот фигуры вокруг точки в пространстве

MyPoint a(-200,0);
MyPoint b(0,300);
MyPoint c(200,0);
 
//событие таймера
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    MyPoint a1(a.x*cos(0.02)-a.y*sin(0.02), a.x*sin(0.02)+a.y*cos(0.02));
    MyPoint b1(b.x*cos(0.02)-b.y*sin(0.02), b.x*sin(0.02)+b.y*cos(0.02));
    MyPoint c1(c.x*cos(0.02)-c.y*sin(0.02), c.x*sin(0.02)+c.y*cos(0.02));
    a=a1;
    b=b1;
    c=c1;
    DrawTriangle(a,b,c);
}
 
void Prepare()
{
    Form1->Canvas->Brush->Color= clWhite;//установить цвет фона = белый
    Form1->Canvas->FillRect(Form1->ClientRect);//залить всю клиентскую область белой кистью
 
    //установить режим просмотра MM_LOENGLISH
    //Это WINAPI функция, у борланда нет обёртки для неё
    SetMapMode(Form1->Canvas->Handle,MM_LOENGLISH);
    //и точку 0,0 в центр экрана, тоесть теперь рисовать будем как в обычной системе коордиант (x,y)
    SetViewportOrgEx(Form1->Canvas->Handle,Form1->Width/2, Form1->Height/2,NULL);
}
 
DrawTriangle(MyPoint a, MyPoint b, MyPoint c)
{
    Prepare();
    SetViewportOrgEx(Form1->Canvas->Handle,Form1->Width/2, Form1->Height/2,NULL);
    Form1->Canvas->Brush->Color= clWhite;//установить цвет фона = белый
    Form1->Canvas->FillRect(Form1->ClientRect);//залить всю клиентскую область белой кистью
 
    Form1->Canvas->MoveTo(a.x,a.y);
    Form1->Canvas->LineTo(b.x,b.y);
    Form1->Canvas->LineTo(c.x,c.y);
    Form1->Canvas->LineTo(a.x,a.y);
 
}

MyPoint a0(-200, 0);  //начальные координаты
MyPoint b0(0, 300);
MyPoint c0(200, 0);
double alfa = 0;  //угол поворота
 
//событие таймера
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    alfa += 0.02;
    if (alfa == 360)
        alfa = 0;
    MyPoint a(a0.x*cos(alfa)-a0.y*sin(alfa), a0.x*sin(alfa)+a0.y*cos(alfa));
    MyPoint b(b0.x*cos(alfa)-b0.y*sin(alfa), b0.x*sin(alfa)+b0.y*cos(alfa));
    MyPoint c(c0.x*cos(alfa)-c0.y*sin(alfa), c0.x*sin(alfa)+c0.y*cos(alfa));
 
    DrawTriangle(a,b,c);
}

void Correction(MyPoint &a, MyPoint &b, MyPoint &c)
{
    //координаты середины треугольника
    double Xc = (a.x + b.x + c.x) / 3,
           Yc = (a.y + b.y + c.y) / 3;
    a.x -= Xc;
    a.y -= Yc;
    b.x -= Xc;
    b.y -= Yc;
    c.x -= Xc;
    c.y -= Yc;
}

Correction(a0, b0, c0);