Проекция Rectangle

[_-Re@l-_]

Паскалевская функция Rectangle умеет строить прямоугольники только со сторонами паралелльными осям.Вот вопрос: как построить прямоугольник повёрнутый под любым углом к осям?
P.S. Пробовал нечто подобное, но потом бросил - не получается

Procedure DrawBox(X1,Y1,X2,Y2:Integer;Color:Word);
Var Tx1,Tx2,Ty1,Ty2:Integer;
    Ax,Ay,Bx,By:Integer;
Begin
     SetColor(Color);
     Line(X1,Y1,X2,Y2);
     Tx1:=X1;Ty1:=Y1;
     Tx2:=Round(Tx1+Tx1*Sin(30*0.0174));
     Ty2:=Round(Ty1*Cos(30*0.0174));
     Line(Tx1,Ty1,Tx2,Ty2);
     Tx1:=0;Tx2:=0;Ty1:=0;Ty2:=0;
     Tx1:=X2;Ty1:=Y2;
     Tx2:=Round(Tx1+Tx1*Sin(30*0.0174));
     Ty2:=Round(Ty1*Cos(30*0.0174));
     Line(Tx1,Ty1,Tx2,Ty2);
End;

[Mad_Cat]

а 4 -мя линиями не устраивает?

[_-Re@l-_]

Так вот линии то и надо спроектировать!


Ладно, поставим вопрос по другому:
даны координаты всех углов прямоугольника. Нужно повернуть прямоугольник на 30 градусов по часовой стрелке. Т.е. нужно вычислить все координаты нового прямоугольника, что у меня и не получается!

[Alex Cones]

1) Ищем центр прямоугольника.
2) Определяем углы от X до каждой точки, если центр окружности мы уже нашли.
3) Прокручиваем каждую точку + 30 г.
4) Рисуем 4 линии по новым координатам.

[Mad_Cat]

Поворот точки на угол альфа, через центр cx, cy, можно осуществить так

dx = ox - cx
dy = oy - cy
nx = cx + (dx * cos(alpha) - dy * sin(alpha))
ny = cy + (dx * sin(alpha) + dy * cos(alpha))

Где ox, oy - старые координаты точки, nx, ny - новые координаты точки

[dexterua]

Procedure DrawLine(X1,Y1,X2,Y2:Integer;Color:Word;int L);//угол добавился
Var Tx1,Tx2,Ty1,Ty2:Integer;
Begin
     SetColor(Color);
     Tx1:=X1;Ty1:=Y1;
     Tx2:=Round(X1+(X2-X1)*Cos(L*0.0174)-(Y2-Y1)*Sin(L*0.0174));
     Ty2:=Round(Y1+(Y2-Y1)*Cos(L*0.0174)+(X2-X1)*Sin(L*0.0174));
     Line(Tx1,Ty1,Tx2,Ty2);
End;

Рисует вектор повернутый на угол L
Если не ясно, то посмотри информацию про матрицу поворота

ой, уже опоздал)

[_-Re@l-_]

Честно говоря, с вектором всё хорошо, а вот повернуть прямоугольник до сих пор не получается.

[Serge_Bliznykov]

_-Re@l-_, видимо, не очень хорошо с векторами

посмотрите такую программку:

Uses Graph,Crt;
procedure MyDelay(HundSecond : longInt);
var
  Ticks      : LongInt  absolute 0:$46c;
begin
  HundSecond:=round(HundSecond * 0.185) +Ticks;
  repeat  until (Ticks>HundSecond);
end;

procedure DrawRectRotate(x0, y0, a, b : integer; Ugol : double;
                         LineColor : integer);
var x1,y1,x2,y2, x3,y3 : integer;
begin
  setcolor(LineColor);
  x1 := round(x0 + a * cos(Ugol*pi/180));
  y1 := round(y0 + a * sin(Ugol*pi/180));
  Line(x0, y0, x1, y1);

  x2 := round(x1 + b * cos((Ugol-270)*pi/180));
  y2 := round(y1 + b * sin((Ugol-270)*pi/180));
  Line(x1, y1, x2, y2);

  x3 := round(x0 + b * cos((Ugol-270)*pi/180));
  y3 := round(y0 + b * sin((Ugol-270)*pi/180));
  Line(x0, y0, x3, y3);

  Line(x2, y2, x3, y3);

end;

var GraphDriver, GraphMode,
   i : integer;
   x0, y0 : integer;
   Ang : integer;
begin
  GraphDriver := detect;
  InitGraph(GraphDriver, GraphMode, '..\BGI');
  x0 := 250;
  y0 := 200;
  setcolor(15);
  Ang := 0;

  repeat
    DrawRectRotate(x0, y0, 100, 50, Ang, 15);
    MyDelay(5);
    {сотрём - просто выведем фигуру цветом 0}
    DrawRectRotate(x0, y0, 100, 50, Ang, 0);
    Ang := Ang + 2;
  until KeyPressed;
  CloseGraph;
end.

для простоты поворот берётся от левого верхнего угла прямоугольника (x0,y0), но при желании центр поворота может быть где угодно...

[_-Re@l-_]

Интересный пример, как раз мне подходит. Спасибо