Копирование полигона

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

как произвести копирование полигона точек? и после копирования строить такие же со смещением?

[Swarog]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
type
 Tpolygon = array of tpoint;

procedure copyPolygon(Src: Tpolygon; var Dst: Tpolygon);
 var i: integer;
 begin
  setlength(Dst, length(src));
  for i := 0 to length(src) - 1 do  dst[i] := src[i];
 end;

function ShiftPolygon(src: Tpolygon; Dx, Dy: integer): Tpolygon;
 var i: integer;
 begin
  setlength(result, length(src));
  for i := 0 to length(src) - 1 do
   begin
    result[i].x := src[i].x + dx;
    result[i].y := src[i].y + dy;
   end
 end;

 function RotatePolygon(src: Tpolygon; Cx, Cy: integer; Fi: real): Tpolygon;
 var i: integer;
     tx: integer;
 begin
  Fi := DegToRad(fi);
  setlength(result, length(src));
  for i := 0 to length(src) - 1 do
   begin
    result[i].x := src[i].x - cx;
    result[i].y := src[i].y - cy;

    tx := result[i].x;
    result[i].x := round(tx * cos(fi) +  result[i].y * sin(fi));
    result[i].y := round(-tx * sin(fi) + result[i].y * cos(fi));

    result[i].x := result[i].x + cx;
    result[i].y := result[i].y + cy;

   end
 end;
 
procedure TForm1.FormClick(Sender: TObject);
var 
 p1, p2: Tpolygon;
 i : integer;
begin
//создали полигон
 setlength(p1, 12);

 p1[0] := Point(-30,-10);
 p1[1] := Point(-11,3);
 p1[2] := Point(-22,32);
 p1[3] := Point(5,14);
 p1[4] := Point(36,34);
 p1[5] := Point(36,34);
 p1[6] := Point(21,4);
 p1[7] := Point(43,-12);
 p1[8] := Point(12,-11);
 p1[9] := Point(12,-11);
 p1[10] := Point(3,-30);
 p1[11] := Point(-5,-11);

 // скопировали полигон
 copyPolygon(p1, p2);

// выводим кучу полигонов
 for i := 0 to 399 do
  Canvas.Polygon(ShiftPolygon(RotatePolygon(p2,0,0,random(360)), random(width - 60) + 30, random(Height - 60) + 30));

end;

end.

Звездный мир XD

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

Огромное спасибо! А нельзя связать ту задачу, где полигон создаешь и крутишь с это задача, чтобы тот можно было копировать?

[Swarog]

да без проблем

объявляешь перменную

Polygon: Tpolygon;

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

теперь копируй из Polygon куда хочешь, можно выводить со смещением даже не копируя,

  Canvas.Polygon(ShiftPolygon(RotatePolygon(Polygon,cx,cx,fi), dx,dy));

cx, cy - координаты точки поворота
fi - уголо поворота
dx, dy - смещение полигона

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

И будут точки полигона строиться по нажатию мышки? Если да куда тогда деть точки, которые у тебя заданы в этом коде?

[Swarog]

а переопределить свои обработчики слабо? за Вас и так почти все написали, вам только разобрать два примера на кирпичики и построить свой "дом"