Построить квадрат, который вращается вокруг своего центра на угол a

UINT x = 50, y = 50, dif = 150;
// ClientHeight = ClientWidth = 700;
 
float Tan (float a)  // тангенс
{
  return Sin(a)/Cos(a);
}
//---------------------------------------------------------------------------
float rad (int grad)  // градусы в радианы
{
  float PI = 3.14159;
  return PI/180*grad;
}
//---------------------------------------------------------------------------
// tg a = dif x / (side - dif x)
// tg a * (side - dif x) = dif x
// tg a * side = dif x * (1 + tg a)
// dif x = tg a * side / (1 + tg a)
//---------------------------------------------------------------------------
void rotate_square (int x1, int y1, int x2, int y2, int angle)  // вращение квадрата; угол в градусах
{
  int temp = Tan(rad(angle))*dif/(1+Tan(rad(angle)));
  Form1->Canvas->MoveTo(x1+temp, y1);
  Form1->Canvas->LineTo(x1+dif, y1+temp);
  Form1->Canvas->LineTo(x1+dif-temp, y1+dif);
  Form1->Canvas->LineTo(x1, y1+dif-temp);
  Form1->Canvas->LineTo(x1+temp, y1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//  DoubleBuffered = 1;
//  Timer1->Interval = 100;
  Canvas->Brush->Style = bsClear;  // "пустой" внешний квадрат
  const k=4;
  int i, j, n;  // n - угол поворота в градусах
  bool m;  // перменная для "стирания" / отрисовки внутр. квадрата
 
  for (m = 0; m <= 1; m++)
  {
    if (m==1)
    {
      Tag++;
      if (Tag==90)
        Tag = 0;
    }
    Canvas->Pen->Color = (m==0) ? Color : clBlack;  // стираем / рисуем внутр. квадрат
// для статичной картинки достаточно указать фиксированное значение угла n
// Tag (да и таймер) тогда не нужен, как и "стирание"
    for (i = 0; i < k; i++)
      for (j = 0; j < k; j++)
      {
        n = (i%2==0 && j%2==0) || (i%2==1 && j%2==1) ? Tag : 90-Tag;  // Tag-90 : -Tag;  ->  :-)
        rotate_square(x+i*dif, y+j*dif, x+(i+1)*dif, y+(j+1)*dif, n);  // внутр. квадрат
        Canvas->Rectangle(x+i*dif, y+j*dif, x+(i+1)*dif+1, y+(j+1)*dif+1);  // внешний квадрат
      }
  }
}