[moullla]

Сообщение от Pilot_Red

внимание подсказка:
Для того чтобы вращать точку вокруг какой-то оси нужно нужно изменять ее КООРДИНАТЫ!!!

x=x_центр+радиус_вращения*cos(a);
y=y_центр+радиус_вращения*sin(a);

х_центр/y_центр -это координаты оси

зная это подумайте как все это организовать с прямоугольником(у него ч-е точки которые надо вращать)

формулы движения я знаю не понимаю как в коде организовать
на данный момент имею ток

Код:

procedure TForm1.Button3Click(Sender: TObject);

 begin
  x:=100;
 y:=100;
 x1:=150;
 y2:=150;
   With Form1.Canvas do
   begin
       Brush.Color:=clRed;
     Pen.Color:=clRed;
    Rectangle(x,y,x1,y2);
    Brush.Color:=clBlue;
    Pen.Color:=clBlue;
    Ellipse(x,y,x1,y2);
   end;
end;