Поворот полигона

[Николая Ленин]

Здравствуйте, у меня есть полигон, построенный по точкам из мемо. Как мне осуществить его поворот на какой-то угол? Заранее спасибо!

[_-Re@l-_]

Поворачивайте координаты всех углов по отдельности относительно центра(центр - на вашей совести), и получите повёрнутый полигон.

[Swarog]

http://programmersforum.ru/showthread.php?t=154236

[Николая Ленин]

Swarog, а если у нас заранее не известно, сколько и где будут точки в полигона? как тот твой код подогнать под задачу?

[Swarog]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
  private
   PolyArr: array of tpoint;
   Center: Tpoint;
   procedure Draw();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Draw;
begin
 Canvas.Rectangle(0,0,Width,Height);
 canvas.Polygon(PolyArr);

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 i: integer;
begin
 if button = mbLeft then
  begin
   i := length(PolyArr);
   SetLength (PolyArr,i + 1);
   PolyArr[i].X := x;
   PolyArr[i].Y := y;
  end
 else
  begin
   Center.X := x;
   Center.Y := y;
  end;
 Draw;
end;

procedure TForm1.Button1Click(Sender: TObject);

procedure Rotate(var d,center: Tpoint; Fi: real);
 var tx: real;
 begin
  // сначала перенос
  d.x := d.x - center.x;
  d.y := d.y - center.y;
  // поворот
  tx := d.x;
  d.x := round(tx * cos(fi) +  d.y * sin(fi));
  d.y := round(-tx * sin(fi) + d.y * cos(fi));
  // перенос обратно на место
  d.x := d.x + center.x;
  d.y := d.y + center.y;
 end;
var f: real;
  var I: integer;
begin
 f := 5;
 f := DegToRad(f);
 for i := 0 to length(PolyArr) - 1 do Rotate(polyarr[i],center,f);
 Draw;
end;

end.

[Николая Ленин]

Что делает этот код? Что он вообще крутит? Прямоугольник неподвижный, который рисуется

[Swarog]

при щелчке левой клавишей маши по форме добавляется точка в полигон, при щелчке правой кнопкой мыши по форма определяется центр поворота, на форме еще есть кнопка при нажатии на кнопку осуществляется поворот полигона вокруг определенного центра на угол 5градусов. проект рабочий вчера игрался с ним

[Николая Ленин]

Swarog, Разобрался! Большое спасибо!
Не подскажешь ещё, как копировать тот полигон, который нарисовали?

[Swarog]

Если я вас правильно понял то создаем новый массив точек и копируем точки

[Николая Ленин]

Сделать так, чтобы в каком-то другом месте появился такой же полигон и тот не исчез