Поворот фигуры Pascal

[stas45rus]

помогите пжл повернуть квадрат на 45 градусов в любую сторону относительно своего центра расположения.

PROGRAM Zadanie_4b;
Uses Crt,Graph;
VAR
  gd,gm,n,m:Integer;
  Mas:Array[1..5] Of PointType;
BEGIN
  ClrScr;
  gd:=Detect;
  InitGraph(gd,gm,'');
  Mas[1].x:=200; Mas[1].y:=200;
  Mas[2].x:=500; Mas[2].y:=200;
  Mas[3].x:=500; Mas[3].y:=500;
  Mas[4].x:=200; Mas[4].y:=500;
  Mas[5]:=Mas[1];
  SetColor(4);
  {Построение многоугольника}
  DrawPoly(5,Mas);
  {Стиль заполнения}
  SetFillStyle(1,4);
  FloodFill(250,250,4);
  ??????????????????????
  Readln;
  CloseGraph;
END.

[BDA]

http://www.bymath.net/studyguide/angeo/sec/angeo1.htm
Имхо, лучше хранить квадрат по-другому:
точка - центр координат;
"радиус" - расстояние до вершины;
угол - угол между горизонталью и "радиусом".
Тогда памяти нужно меньше и поворачивать удобнее, но сложнее логика отрисовки.

[Valio]

Нужно для начала вывести формулу для расчёта координатов 4 точек квадрата в которой будет задействован угол.

[stas45rus]

не могу понять.

[stas45rus]

ну хотя бы примерные формулы дайте

[s-andriano]

А что, геометрию еще не проходили?
Ты в каком классе?

[Hacker19_90]

советую ТС почитать книги о 2д играх!
Там описывают метод поворота фигур, путём использования матриц! причём операций над матрицами можно не только повернуть, но и масштабировать и перемещать фигуру по координатной плоскости!

[BDA]

Простенький пример (код для дельфи, но суть будет понятна):

var
a, b: array[1..4, 1..2] of integer;
i, j, r: integer;
begin
r := 400;
a[1, 1] := 100;
a[1, 2] := 50;
a[2, 1] := a[1, 1] + r;
a[2, 2] := a[1, 2];
a[3, 1] := a[2, 1];
a[3, 2] := a[2, 2] + r;
a[4, 1] := a[1, 1];
a[4, 2] := a[3, 2];
for i := 1 to 1000 do
begin
canvas.Pen.Color:=i*25;
canvas.moveto(a[4, 1], a[4, 2]);
for j := 1 to 4 do
canvas.lineto(a[j, 1], a[j, 2]);
for j := 1 to 4 do
begin
b[j, 1] := round(a[j, 1] + (a[j mod 4 + 1, 1] - a[j, 1]) * 0.9);
b[j, 2] := round(a[j, 2] + (a[j mod 4 + 1, 2] - a[j, 2]) * 0.9);
end;
a := b;
end;
end;

[SNUPY]

как уже было сказано используйте матрицы трансформации

[denisbrain]

Сообщение от stas45rus

помогите пжл повернуть квадрат на 45 градусов в любую сторону относительно своего центра расположения.

PROGRAM Zadanie_4b;
Uses Crt,Graph;
VAR
  gd,gm,n,m:Integer;
  Mas:Array[1..5] Of PointType;
BEGIN
  ClrScr;
  gd:=Detect;
  InitGraph(gd,gm,'');
  Mas[1].x:=200; Mas[1].y:=200;
  Mas[2].x:=500; Mas[2].y:=200;
  Mas[3].x:=500; Mas[3].y:=500;
  Mas[4].x:=200; Mas[4].y:=500;
  Mas[5]:=Mas[1];
  SetColor(4);
  {Построение многоугольника}
  DrawPoly(5,Mas);
  {Стиль заполнения}
  SetFillStyle(1,4);
  FloodFill(250,250,4);
  ??????????????????????
  Readln;
  CloseGraph;
END.

Procedure Povorot(var Val:TMyObject;cx,cy:integer;a:integer);
var i:integer;n:integer;
    d1:real; // расстояние от точки cx,cy до точки объекта
    a1:real; // текущий угол наклона
    x1,y1:integer; // новый угол поворота
begin
  n:=val.n;

     d1:=Dlina(point(val.cx,val.cy),point(cx,cy));
     a1:=Ugol(point(val.cx,val.cy),point(cx,cy));
// перетаскиваем центр тяжести объекта
     val.cx:=cx+round(d1*cos(a1+a*pi/180));
     val.cy:=cy+round(d1*sin(a1+a*pi/180));

  for I:=0 to n-1 do begin
     d1:=Dlina(point(val.m[i].x,val.m[i].y),point(cx,cy));
     a1:=Ugol(point(val.m[i].x,val.m[i].y),point(cx,cy));
     x1:=cx+Round(d1*cos(a1+a*pi/180));
     y1:=cy+Round(d1*sin(a1+a*pi/180));
     val.m[i].X:=x1;
     val.m[i].y:=y1;
  end;
     val.m[n].X:=val.m[0].X;
     val.m[n].y:=val.m[0].y;
end;

http://netsoftware.ucoz.ru/load/pros...delphi/1-1-0-7