Матрица поворота

[Тамерлан Абилов]

Искал похожие темы но увы нема,как все это происходит.даже перечитал тригонометрию(в геометрии слабо с этим) но в точности не могу понять откуда такая формула ибо контроля было бы больше.И ещё читал статью полезная, "линейная алгебра для разраб. игр".там тоже так же вот и написал код а понять в сущности не как не могу исправить проблема в том что абстрактно моя фигура поворачивается вокруг больщущего шара а должна на месте же крутиться(помогите пжл что читать вообще как понять всю эту прелесть(

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    pb1: TPaintBox;
    Timer2: TTimer;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x0,y0:integer;
  x,y:array[1..3] of integer;

implementation

{$R *.dfm}


procedure u4buc(x1,y1,x2,y2,x3,y3:integer); //треугольник
begin
 form1.Canvas.MoveTo(x1,y1);
form1.Canvas.LineTo(x2,y2);
form1.Canvas.LineTo(x3,y3);
form1.Canvas.LineTo(x1,y1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
x0:=clientwidth div 2;
y0:=clientheight div 2;
x[1]:=x0; y[1]:=y0;
x[2]:=x0; y[2]:=y0-100;
x[3]:=x0+100; y[3]:=y0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
u4buc(x[1],y[1],x[2],y[2],x[3],y[3]); //рисуем
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var i:integer;
 begin
 for i:=1 to 3 do begin
x[i]:=round(x[i]*cos(15*3.14/180)-y[i]*sin(15*3.14/180));
y[i]:=round(x[i]*sin(15*3.14/180)+y[i]*cos(15*3.14/180));
end;
form1.Repaint;

end;

end.

П.с. знаю сразу же можно базис векторами наколдовать легче будет на много но опяпь таки хочется не написать а понять все это(

[Smogg]

 for i:=1 to 3 do begin
x[i]:=round(x[i]*cos(15*3.14/180)-y[i]*sin(15*3.14/180));
y[i]:=round(x[i]*sin(15*3.14/180)+y[i]*cos(15*3.14/180));
end;

выделенное должно быть равным в обеих формулах

[BDA]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x0, y0: integer;
  x, y: array [1 .. 3] of integer;
  p: real;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  p := 0;
  x0 := clientwidth div 2;
  y0 := clientheight div 2;
  x[1] := 0;
  y[1] := 0;
  x[2] := 0;
  y[2] := -100;
  x[3] := 100;
  y[3] := 0;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  i, a, b: integer;
begin
  a := x0 + round(x[3] * cos(p) - y[3] * sin(p));
  b := y0 + round(x[3] * sin(p) + y[3] * cos(p));
  Canvas.MoveTo(a, b);
  for i := 1 to 3 do
  begin
    a := x0 + round(x[i] * cos(p) - y[i] * sin(p));
    b := y0 + round(x[i] * sin(p) + y[i] * cos(p));
    Canvas.LineTo(a, b);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  p := p + 15 * Pi / 180;
  if p > 2 * Pi then
    p := p - 2 * Pi;
  repaint;
end;

end.

[Тамерлан Абилов]

Спасибо понял.но все же.общее понятие всего этого что изучать что читать помогло бы мне