Алгоритм поворота прямоугольника. Всего 4 точки. Проблема.

[Vova777]

var
xA,yA,xB,yB,xC,yC,xD,yD,fi: integer;
begin
//получаем значение угла
fi:= StrToInt(Edit1.Text);

//инициализация начальных точек полигона
xA:= 70;
yA:= 85;
xB:= 130;
yB:= 85;
xC:= 130;
yC:= 115;
xD:= 70;
yD:= 115;
//конец инициализации

// преобразуем градусы в радианы
xA:= Round((xA*cos(fi*Pi/180) - yA*sin(fi*Pi/180)));
yA:= Round((xA*sin(fi*Pi/180) + yA*cos(fi*Pi/180)));

xB:= Round((xB*cos(fi*Pi/180) - yB*sin(fi*Pi/180)));
yB:= Round((xB*sin(fi*Pi/180) + yB*cos(fi*Pi/180)));

xC:= Round((xC*cos(fi*Pi/180) - yC*sin(fi*Pi/180)));
yC:= Round((xC*sin(fi*Pi/180) + yC*cos(fi*Pi/180)));

xD:= Round((xD*cos(fi*Pi/180) - yD*sin(fi*Pi/180)));
yD:= Round((xD*sin(fi*Pi/180) + yD*cos(fi*Pi/180)));
//конец преобразования

//вывод полигона
Form1.Canvas.Polygon([Point(xA,yA),Point(xB,yB),Point(xC, yC),Point(xD, yD)]);
end;

Не могу понять, что же тут не так? Рисуется прямоугольник, который должен поворачиваться на угол fi при нажатии по кнопке. Поворачивается, но не понятно относительно какой точки происходит поворот? Это не центр пересечения его диагоналей и даже не ноль формы. А нужно относительно центра пересечения его диагоналей. Что же не так?

[mss]

не понятно относительно какой точки

Как это не понятно ?
Отн-но верхнего левого угла канвы !

[Vova777]

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

Как это не понятно ?
Отн-но верхнего левого угла канвы !

нет. точно не относительно ее. Такое чувство что как будто в 3D поворачивается. Но это не так. Нужно разобраться, и сделать, чтобы относительно центра пересечения его диагоналей.

[mss]

точно не относительно ее

Тогда начни "разборки" с выяснения относительно КАКОЙ точки тобой произведена "инициализация начальных точек полигона"

Pi/180

Для перевода градусов в радианы существует штатная ф-ция DegToRad()

[Vova777]

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

Тогда начни "разборки" с выяснения относительно КАКОЙ точки тобой произведена "инициализация начальных точек полигона"

Относительно нуля, это понятно ведь. Но производится поворот непонятным образом: помимо того, что полигон вращается относительно нуля, он еще вращается вокруг себя самого(?), в пространстве причем.
Тут вся проблема в том, что я не знаю как сделать так, чтобы поворот полигона осуществлялся относительно точки пересечения диагоналей данного полигона и все, больше мне ничего не надо.

[Vova777]

Для перевода градусов в радианы существует штатная ф-ция DegToRad()[/QUOTE]

учту на будущее )))

[mss]

Относительно нуля, это понятно ведь

А "нуль"-то в координатах канвы ГДЕ по-твоему ?)

[Swarog]

исправлено и дополнено, поворот относительно чентра диагонали AC
что не понятно спрашивай

var
xA,yA,xB,yB,xC,yC,xD,yD,fi: real;

var
 cx, cy: real;

procedure TForm1.FormCreate(Sender: TObject);
begin
//инициализация начальных точек полигона
xA:= 70;
yA:= 85;
xB:= 130;
yB:= 85;
xC:= 130;
yC:= 115;
xD:= 70;
yD:= 115;
// считаем центр
 cx := xa - (xa - xc) / 2;
 cy := ya - (ya - yc) / 2;

//конец инициализации
end;

procedure TForm1.Button1Click(Sender: TObject);
procedure Rotate(var X,Y,Cx,CY,Fi: real);
 var tx: real;
 begin
  // сначала перенос
  x := x - cx;
  y := y - cy;
  // поворот
  tx := x;
  x := tx * cos(fi) +  y * sin(fi);
  y := -tx * sin(fi) + y * cos(fi);
  // перенос обратно на место
  x := x + cx;
  y := y + cy;
 end;

begin

 fi := 5;
 fi := DegToRad(fi);

// поворот каждой точки
 Rotate(xa,ya,cx,cy,fi);
 Rotate(xb,yb,cx,cy,fi);
 Rotate(xc,yc,cx,cy,fi);
 Rotate(xd,yd,cx,cy,fi);

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1Click(nil);
 Form1.Canvas.Polygon([
  Point(round(xA),round(yA)),
  Point(round(xB),round(yB)),
  Point(round(xC), round(yC)),
  Point(round(xD), round(yD))]);
end;

end.

[Swarog]

твоя ошибка была во первых в формуле, хотя нет с формулой нормально просто крутить будет в обратную сторону, это формула обратного преобразования, вторая твоя ошибка ты не сохранял Х, в итоге значение У считалось не правильно

[Vova777]

говорит:
[Error] Unit1.pas(68): Undeclared identifier: 'DegToRad'

что-то добавить нужно?