Вращение фигуры

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
a1=0; //объявлены в h файле
a2=0;
a3=70;
a4=50;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (a3==0)
{
Timer1->Enabled=false;
Timer2->Enabled=true;
}
else
{
PaintBox1->Repaint();
PaintBox1->Canvas->Pen->Color=clRed;
PaintBox1->Canvas->Ellipse(a1++,a2,a3--,a4);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
if (a3==70)
{
Timer2->Enabled=false;
Timer1->Enabled=true;
}
else
{
PaintBox1->Repaint();
PaintBox1->Canvas->Pen->Color=clRed;
PaintBox1->Canvas->Ellipse(a1--,a2,a3++,a4);
}
}
//-------

//С помощью этой функции можно рисовать под углом все что угодно, правда, не забудь про SetVieportOrgExt.
void RotateDC(HANDLE dc,float angle)
{
XFORM xform;
angle = angle * 3.1416 / 180.0;
xform.eDx = 0.0f;
xform.eDy = 0.0f;
xform.eM11 = cos(angle);
xform.eM12 = sin(angle);
xform.eM21 = -sin(angle);
xform.eM22 = cos(angle);
SetGraphicsMode(dc, GM_ADVANCED);
SetWorldTransform(dc, &xform);
}
//----------------------------------------------------------------------------
//Кординаты центра, длина по "горизонтали","вертикали", угол,контекст.
void DrawAngleEllipse(int x,int y, int wx,int wy,float angle,HDC dc)
{
RotateDC(dc,angle);
SetViewportOrgEx(dc,x,y,NULL);
Ellipse(dc,0-wx/2,0-wy/2,0+wx/2,0+wy/2);
SetViewportOrgEx(dc,0,0,NULL);
}
//---------------------------------------------------------------------------
 
//А вот, собственно, и сам вызов
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DrawAngleEllipse(300,300,200,50,45,Canvas->Handle);
}
//--------------------------------------------------------------------------