Вращение прямоугольника!!!!

[SuGarIm]

Мне необходимо изобразить прямоугольник, вращающийся вокруг одной из своих вершин в плоскости экрана на си++билдер.
наррисовала я его через координаты, вычислила радиус окружности, по которой он будет вращаться, углы, а как привязать ко всему этому стороны-не знаю))))

[_-Re@l-_]

поворачивайте каждую вершину относительно той из вершин, вокруг которой идёт вращение, и рисуйте прямоугольник.
вот паскалевский код, на с++ сами перенесёте.

Uses Graph,Crt;
procedure MyDelay(HundSecond : longInt);
var
  Ticks      : LongInt  absolute 0:$46c;
begin
  HundSecond:=round(HundSecond * 0.185) +Ticks;
  repeat  until (Ticks>HundSecond);
end;

procedure DrawRectRotate(x0, y0, a, b : integer; Ugol : double;
                         LineColor : integer);
var x1,y1,x2,y2, x3,y3 : integer;
begin
  setcolor(LineColor);
  x1 := round(x0 + a * cos(Ugol*pi/180));
  y1 := round(y0 + a * sin(Ugol*pi/180));
  Line(x0, y0, x1, y1);

  x2 := round(x1 + b * cos((Ugol-270)*pi/180));
  y2 := round(y1 + b * sin((Ugol-270)*pi/180));
  Line(x1, y1, x2, y2);

  x3 := round(x0 + b * cos((Ugol-270)*pi/180));
  y3 := round(y0 + b * sin((Ugol-270)*pi/180));
  Line(x0, y0, x3, y3);

  Line(x2, y2, x3, y3);

end;

var GraphDriver, GraphMode,
   i : integer;
   x0, y0 : integer;
   Ang : integer;
begin
  GraphDriver := detect;
  InitGraph(GraphDriver, GraphMode, '..\BGI');
  x0 := 250;
  y0 := 200;
  setcolor(15);
  Ang := 0;

  repeat
    DrawRectRotate(x0, y0, 100, 50, Ang, 15);
    MyDelay(5);
    {сотрём - просто выведем фигуру цветом 0}
    DrawRectRotate(x0, y0, 100, 50, Ang, 0);
    Ang := Ang + 2;
  until KeyPressed;
  CloseGraph;
end.

[SuGarIm]

Спасибо большое, попробовала, тока че-то он не так вращает, и стороны увеличивает, мож я че-нид не то делаю???вот то что я накалякала, пожалуйста, посмотрите, что исправить????
void __fastcall TForm1::FormPaint(TObject *Sender)
{ q=3.14;
int a=100;int b=50;
for (int i=0;i<300;i=i+2)
{ Canvas->Pen->Color=clYellow;
Canvas->MoveTo(x+a*cos(i*q/180),y+a*sin(i*q/180)); //int i=0;
Canvas->LineTo(x+a*cos(i*q/180),y+50+a*sin(i*q/180));
Canvas->LineTo(x+100+b*cos((i-270)*q/180),y+50+b*sin((i-270)*q/180));
Canvas->LineTo(x+100+b*cos((i-270)*q/180),y+b*sin((i-270)*q/180));
Canvas->LineTo(x+a*cos((i)*q/180),y+sin((i)*q/180)*a);

Sleep(150);

Canvas->Pen->Color=clBtnFace;
Canvas->MoveTo(x+a*cos(i*q/180),y+a*sin(i*q/180)); //int i=0;
Canvas->LineTo(x+a*cos(i*q/180),y+50+a*sin(i*q/180));
Canvas->LineTo(x+100+b*cos((i-270)*q/180),y+50+b*sin((i-270)*q/180));
Canvas->LineTo(x+100+b*cos((i-270)*q/180),y+b*sin((i-270)*q/180));
Canvas->LineTo(x+a*cos((i)*q/180),y+sin((i)*q/180)*a);
}

}