Изобразить на форме отрезок, который вращается вокруг своей концевой точки. Вокруг произвольной своей точки. Вокруг п

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
const count = 3, dot_radius = 3;
unsigned radius[2] = {0};
double step[2] = {0};
TPoint dot[count];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Constraints->MinHeight = 638;
  Constraints->MinWidth = 616;
  Image->Canvas->Pen->Color = clBlack;
  ButtonRotate->Enabled = 0;
  ButtonClear->Enabled = 0;
  Timer->Enabled = 0;
  Timer->Interval = 10;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  if (Button == mbLeft && Tag < count)
  {
    Tag++;
 
    if (Tag == 1 || Tag == 2)  // первая и вторая точки
    {
      Image->Canvas->Brush->Color = (Tag == 1) ? clBlue : clGreen;
      Image->Canvas->Ellipse(X - dot_radius, Y - dot_radius, X + dot_radius, Y + dot_radius);
      if (Tag == 1)
      {
        Image->Canvas->MoveTo(X, Y);
        ButtonClear->Enabled = 1;
      }
      else
        Image->Canvas->LineTo(X, Y);
 
      dot[Tag - 1].x = X;
      dot[Tag - 1].y = Y;
    }
 
    if (Tag == 3)  // третья точка
    {
      ButtonRotate->Enabled = 1;
      Image->Canvas->Brush->Color = clRed;
 
      switch (ComboBoxMode->ItemIndex)
      {
        case 0:  // режим №1 - отрезок будет вращаться вокруг своей ближайшей (к точке №3) концевой точки
          if (pow(X - dot[0].x, 2) + pow(Y - dot[0].y, 2) < pow(X - dot[1].x, 2) + pow(Y - dot[1].y, 2))
          {
            dot[2].x = dot[0].x;
            dot[2].y = dot[0].y;
          }
          else
          {
            dot[2].x = dot[1].x;
            dot[2].y = dot[1].y;
          }
          break;
 
        case 1:  // режим №2 - отрезок будет вращаться вокруг ближайшей (к точке №3) точки прямой, на которой он лежит
          if (dot[0].x == dot[1].x)
            {
              dot[2].x = dot[0].x;
              dot[2].y = Y;
            }
          else if (dot[0].y == dot[1].y)
          {
            dot[2].x = X;
            dot[2].y = dot[0].y;
          }
          else
          {
            int a = dot[1].x - dot[0].x, b = dot[1].y - dot[0].y;
            dot[2].y = 1. * (a * a / b * dot[0].y + a * (X - dot[0].x) + b * Y) / (a * a / b + b);
            dot[2].x = 1. * a / b * (dot[2].y - dot[0].y) + dot[0].x;
          }
          break;
 
        case 2:  // режим №3 - отрезок будет вращаться вокруг произвольной точки плоскости
          dot[2].x = X;
          dot[2].y = Y;
          break;
      }
 
      Image->Canvas->Ellipse(dot[2].x - dot_radius, dot[2].y - dot_radius, dot[2].x + dot_radius, dot[2].y + dot_radius);
      for (int i = 0; i < 2; i++)
        radius[i] = sqrt((dot[2].x - dot[i].x) * (dot[2].x - dot[i].x) + (dot[2].y - dot[i].y) * (dot[2].y - dot[i].y));
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonClearClick(TObject *Sender)
{
  radius[0] = 0;
  radius[1] = 0;
  step[0] = 0;
  step[1] = 0;
  Tag = 0;
  Image->Canvas->Brush->Color = clWhite;
  Image->Canvas->FillRect(Image->Canvas->ClipRect);
  ButtonRotate->Enabled = 0;
  ButtonClear->Enabled = 0;
  Timer->Enabled = 0;
  ComboBoxMode->Enabled = 1;
 
  for (int i = 0; i < count; i++)
  {
    dot[i].x = 0;
    dot[i].y = 0;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonRotateClick(TObject *Sender)
{
  if (dot[2].x == dot[0].x)
    dot[0].x++;
  if (dot[2].y == dot[0].y)
    dot[0].y++;
  step[0] = M_PI + atan2(1. * (dot[2].y - dot[0].y), (dot[2].x - dot[0].x));
 
  if (dot[2].x == dot[1].x)
    dot[1].x++;
  if (dot[2].y == dot[1].y)
    dot[1].y++;
  step[1] = M_PI + atan2(1. * (dot[2].y - dot[1].y), (dot[2].x - dot[1].x));
 
  ButtonRotate->Enabled = 0;
  Timer->Enabled = 1;
  ComboBoxMode->Enabled = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
  Image->Canvas->Brush->Color = clWhite;
  Image->Canvas->FillRect(Image->Canvas->ClipRect);
  double dif = 0.01;
  step[0] += dif;
  step[1] += dif;
 
  // точки (концы) отрезка и сам отрезок
  for (int i = 0; i < 2; i++)
  {
    Image->Canvas->Brush->Color = (i == 0) ? clBlue : clGreen;
    dot[i].x = dot[2].x + radius[i] * cos(step[i]);
    dot[i].y = dot[2].y + radius[i] * sin(step[i]);
 
    if (i == 0)
      Image->Canvas->MoveTo(dot[0].x, dot[0].y);
    else
      Image->Canvas->LineTo(dot[1].x, dot[1].y);
 
    Image->Canvas->Ellipse(dot[i].x - dot_radius, dot[i].y - dot_radius, dot[i].x + dot_radius, dot[i].y + dot_radius);
  }
 
  // точка вращения
  Image->Canvas->Brush->Color = clRed;
  Image->Canvas->Ellipse(dot[2].x - dot_radius, dot[2].y - dot_radius, dot[2].x + dot_radius, dot[2].y + dot_radius);
}
//---------------------------------------------------------------------------