GDI Графика в Delphi

[newStudent]

Создал фигуры многоугольника и окружности.
Вопрос: какие алгоритмы можно использовать для преобразования систем координат на плоскости для след. ситуаций?
- Отразить относительно оси X;
- увеличить по оси X на 150%, по оси Y - в 2 раза;
- повернуть на 30 градусов против часовой стрелки.



Исходный код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,x1,y,y1,r,xc,yc: integer;
begin
 // Рисование оси координат
 x:=Form1.Width;
 y:=Form1.Height;
 x1 := x div 2;
 y1 := y div 2;
 Canvas.MoveTo(x1,0);
 Canvas.LineTo(x1,y);
 Canvas.MoveTo(0,y1);
 Canvas.LineTo(x,y1);

 // Рисование окружности
 r:=60;
 xc:=215;
 yc:=415;
 canvas.Ellipse(xc-r,yc-r,xc+r,yc+r);

 // Рисование многоугольника
 Canvas.MoveTo(253,333);
 Canvas.LineTo(233,396);
 Canvas.LineTo(188,399);
 Canvas.LineTo(210,435);
 Canvas.LineTo(109,482);
 Canvas.LineTo(58,443);
 Canvas.LineTo(89,408);
 Canvas.LineTo(52,375);
 Canvas.LineTo(100,340);
 Canvas.LineTo(121,372);
 Canvas.LineTo(164,336);
 Canvas.LineTo(253,333);

end;

end.

[DomiNick]

Отразить относительно оси X

Все координаты X умножить на -1?

увеличить по оси X на 150%, по оси Y - в 2 раза

Умножить все координаты X на 1,5, а все Y на 2?

повернуть на 30 градусов против часовой стрелки

Воспользоваться Cos и Sin?

[newStudent]

не совсем понятно

Умножить все координаты X на 1,5, а все Y на 2?

какие именно координаты в данном примере?

[DomiNick]

Хм..... Вообще бы надо сначала подправить сам подход...
Мы рисуем на клиентской области окна, поэтому нужно писать не Form1.Width, а Form1.ClientWidth...
И нам постоянно писать Canvas.LineTo(109,482) и вбивать/изменять все цифры вручную чтоль? Ну хоть массивом бы сделали... И они же должны зависеть от (x1, y1)...
Да и вывод фигур нужно делать в OnFormPaint...

Ну вот такой примерчик набросал:

var Form1: TForm1; koordinates_1: array of TPoint; x0, y0: Integer;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered:=True; // чтоб не мелькало
end;

procedure TForm1.FormResize(Sender: TObject);
begin
x0:=Form1.ClientWidth Div 2;
y0:=Form1.ClientHeight Div 2;
Form1.Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i: Integer;
begin
Canvas.MoveTo(0, y0);
Canvas.LineTo(x0*2, y0);
Canvas.MoveTo(x0, 0);
Canvas.LineTo(x0, y0*2); // оси координат
if Length(koordinates_1)>2 then
      begin
      Canvas.MoveTo(x0+koordinates_1[0].X, y0+koordinates_1[0].Y);
      for i:=0 to Length(koordinates_1)-1 do
            Canvas.LineTo(x0+koordinates_1[i].X, y0+koordinates_1[i].Y);
      Canvas.LineTo(x0+koordinates_1[0].X, y0+koordinates_1[0].Y);
      end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var k: Integer;
begin
k:=Length(koordinates_1);
SetLength(koordinates_1, k+1); // добавим новый узел
koordinates_1[k].X:=X-x0;
koordinates_1[k].Y:=Y-y0;
Form1.Repaint;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to Length(koordinates_1)-1 do
      koordinates_1[i].X:=Round(koordinates_1[i].X*1.5); // увеличим (растянем) в полтора раза по X
Form1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to Length(koordinates_1)-1 do
      koordinates_1[i].X:=koordinates_1[i].X*-1; // отразим относительно оси X
Form1.Repaint;
end;