Рисование фигур в Delphi (поворот)

[Алексей777911]

Задача состоит в том, чтобы нарисовать круг, прямоугольник, треугольник и бабочку. Затем необходимо их повернуть, видимо через Timer.

Мой код:

unit Unit3;

interface

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

type
TForm3 = class(TForm)
Button1: TButton;
PaintBox1: TPaintBox;
RadioGroup1: TRadioGroup;
ColorDialog1: TColorDialog;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}



procedure TForm3.Button1Click(Sender: TObject);
begin

case
RadioGroup1.ItemIndex of
0:
begin
PaintBox1.Refresh;
PaintBox1.Canvas.Ellipse(150,150,50 0,500);
end;

1:
begin
PaintBox1.Refresh;
PaintBox1.Canvas.MoveTo(200,200);
PaintBox1.Canvas.LineTo(200,300);
PaintBox1.Canvas.LineTo(300,250);
PaintBox1.Canvas.LineTo(200,200);
end;

2:
begin
PaintBox1.Refresh;
Paintbox1.Canvas.Rectangle(10,150,5 00,500);
end;

3:
begin
PaintBox1.Refresh;
PaintBox1.Canvas.Ellipse(100,50,150 ,100);
PaintBox1.Canvas.MoveTo(50,500);
PaintBox1.Canvas.LineTo(115,100);
PaintBox1.Canvas.Ellipse(130,210,90 ,310);
PaintBox1.Canvas.Ellipse(90,210,50, 310);

end;
end;
end;

end.

Фигуры нарисованы. Помогите их повернуть

[Greblin]

Берём любой учебник линейной алгебры и читаем про матрицы поворота
Матрица поворота

[Алексей777911]

А как увеличить размер фигуры?

[Greblin]

Умножить векторы на коэффициент растяжения