Поворот прямой

[Байт]

Есть такой вопрос как осуществить поворот прямой на определенный угол? т.е. в итоге 2 прямых, одна исходная а другая (с тем же центром) только на определенном угле.

Новые точки (x y) ищу по формулам

x` = x * cos(угол) - y * sin(угол)
y` = x * sin(угол) + y * cos(угол)

Вообще надо сделать через матрицу поворота (но я решил для начала это опустить)
uses GraphABC, crt;


var i,j: integer;
begin

matrix[1,1] := 400;
matrix[1,2] := 200;

{200,200 это начальная точка (из нее должна выходить вторая прямая}
Line(200,200,round(matrix[1,1]),round(matrix[1,2]));
{ nx1 - новая x nx2 -новая коорд. y}
nx1 := (cos(90)* (matrix[1,1])) - (sin(90) * (matrix[1,2]) );
nx2 := (sin(90)* (matrix[1,1])) + (cos(90) * (matrix[1,2]) );
{ строим вторую прямую}
Line(200,200, (round(nx1) ), (round(nx2) );


end.

Но в общем-то ничего не выходит)

[Vago]

У прямой нет "центра"...

Сообщение от Байт

x` = x * cos(угол) - y * sin(угол)
y` = x * sin(угол) + y * cos(угол)

Ты поворачиваешь относительно начала координат. Чтобы повернуть относительно другой точки:
1. Перенеси начало координат в точку, относительно которой выполняется поворот ((200,200) в данном примере, я так понял...).
2. Выполни поворот по этим формулам.
3. Перенеси начало координат "на место".

Added 18:57 CET
Ну и углы, наверное, в радианах? Спроси у кого-нибудь, кто Паскаль знает...

[Байт]

спасибо, разобрался