Delphi.Треугольник.Вопрос.

[kalipsoo]

Доброго времени суток.Самое банальное задание..но я ответа так и не нашёл.

Задание:построить треугольник по точкам, потом пользователь вводит угол поворота на которой стоит повернуть тр-к и он поворачивается.
использовал такие формулы поворота:
x=xcos(x)-ysin(x)
y=xsin(x)+ycos(x)

q-угол поворта

Вот код

var
  Form1: TForm1;
  x0,y0:integer;
  x,y,i:integer;
  q,l:real;
  x1,y1:array [1..3] of integer;
  mousepos:tpoint;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin

  x1[1]:=strtoint(edit1.Text); y1[1]:=strtoint(edit2.Text);
  x1[2]:=strtoint(edit3.Text); y1[2]:=strtoint(edit4.Text);
  x1[3]:=strtoint(edit5.Text); y1[3]:=strtoint(edit6.Text);


InvalidateRect(0, nil, true);


Canvas.Brush.Color:=clBlack;
Canvas.MoveTo(x1[1], y1[1]);
Canvas.LineTo(x1[2], y1[2]);
Canvas.LineTo(x1[3], y1[3]);
Canvas.LineTo(x1[1], y1[1]);
end;



procedure TForm1.Button2Click(Sender: TObject);


begin





q:=strtoint(edit7.Text);

begin
for i:=1 to 3 do
x1[i]:=trunc(x1[i]*cos(q)-y1[i]*sin(q));
end;

for i:=1 to 3 do
y1[i]:=trunc(x1[i]*sin(q)+y1[i]*cos(q));


InvalidateRect(0, nil, true);


Canvas.Brush.Color:=clBlack;
Canvas.MoveTo(x1[1], y1[1]);
Canvas.LineTo(x1[2], y1[2]);
Canvas.LineTo(x1[3], y1[3]);
Canvas.LineTo(x1[1], y1[1]);
end;



end.

подскажите..если не трудно,что делаю не так) Заранее спасибо.

[Goodwin98]

Я конечно не силен дельфи, но может все же так.

procedure TForm1.Button2Click(Sender: TObject);


begin





q:=strtoint(edit7.Text);

begin
for i:=1 to 3 do
temp:=trunc(x1[i]*cos(q)-y1[i]*sin(q));

y1[i]:=trunc(x1[i]*sin(q)+y1[i]*cos(q));
x1[i]=temp
end;

InvalidateRect(0, nil, true);


Canvas.Brush.Color:=clBlack;
Canvas.MoveTo(x1[1], y1[1]);
Canvas.LineTo(x1[2], y1[2]);
Canvas.LineTo(x1[3], y1[3]);
Canvas.LineTo(x1[1], y1[1]);




end.

[kalipsoo]

Попробовал..эффекта никакого...) сам треугольник строится..но чтобы он нормально поворачивался на угол..такого не заметил)

[Goodwin98]

У меня поворачивает.

var
  Form1: TForm1;
  x0,y0:integer;
  x,y,i,temp:integer;
  q,l:real;
  x1,y1:array [1..3] of integer;
  mousepos:tpoint;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin

  x1[1]:=100; y1[1]:=100;
  x1[2]:=200; y1[2]:=200;
  x1[3]:=50; y1[3]:=300;


InvalidateRect(0, nil, true);


Canvas.Brush.Color:=clBlack;
Canvas.MoveTo(x1[1], y1[1]);
Canvas.LineTo(x1[2], y1[2]);
Canvas.LineTo(x1[3], y1[3]);
Canvas.LineTo(x1[1], y1[1]);
end;

procedure TForm1.Button2Click(Sender: TObject);

begin

q:=0.157; //   pi/20

for i:=1 to 3 do
begin
temp:=trunc(x1[i]*cos(q)-y1[i]*sin(q));
y1[i]:=trunc(x1[i]*sin(q)+y1[i]*cos(q));
x1[i]:=temp;
end;

InvalidateRect(0, nil, true);

Canvas.Brush.Color:=clBlack;
Canvas.MoveTo(x1[1], y1[1]);
Canvas.LineTo(x1[2], y1[2]);
Canvas.LineTo(x1[3], y1[3]);
Canvas.LineTo(x1[1], y1[1]);
 end;

end.

[Stilet]

Могу предложить свой вариант вращения:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure draw(cx,cy,BeginAngle:real; n,r:integer;kr:integer=0);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//********* PROCEDURE**********
procedure TForm1.draw;
var rx,ry,x,y,angle, rang, ang:real;e,i:integer;
 atp:array of TPoint;
begin

//cx:=form1.Width div 2;cy:=form1.Height div 2;
//if kr>0 then
ang:=360/n;
angle:=(2*pi*ang)/360; rang:=angle;
SetLength(atp,n);
with form1 do begin
  //********* FOR ******************
  for  i:=0  to n  do
  begin
   //canvas.MoveTo(cx,cy);
   rx:=(cos(angle+BeginAngle));
   ry:=(sin(angle+BeginAngle));
   atp[i].X:=round(cx+r*(rx));
   atp[i].Y:=round(cy+r*(ry));
 //  canvas.LineTo(round(x),round(y));
 angle:=angle+rang;
   end;
  //******* END FOR ****************
  Canvas.FillRect(ClientRect);
  Canvas.Polygon(atp);
end;
//form1.Canvas.LineTo(100,100);
end;

//********* END PROCEDURE*******



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  draw(100,100,(width/360)*(x/360),3,100);
end;

end.

Тут поворот идет при движении мышки