Линия вращается вокруг одной из своих точек - C++ Builder - Ответ 7716088

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "math.h"
 
#define R 75
#define TORAD 0.0174532
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x, y;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        Timer1->Enabled=true;
        x = R + 300;
    y = R + 300;
     int x1,y1;
     double f;
    // l=200 + rand() % 101;
     f=0;
     Canvas->MoveTo(x,y);
     f+=0.50;
     if(f==360)
     {
        f=0;
     }
     x1=x*cos(f)-y*sin(f);
     y1=x*sin(f)+y*cos(f);
     Canvas->LineTo(x1,y1);
}
//---------------------------------------------------------------------------