прогуливал геометрию, пасаны чеделать

[supernewbie]

1: result:=x+Round(len * cos((angle*pi)/180));
2: result:=y+Round(len * sin((angle*pi)/180));
меняешь местами cos sin и угол задается Y, обратно - X хм)
интересно)

[destructor]

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

Ученые выяснили, что тангенс 90 градусов = 0... Гарантирую.

ага, вот пруфлик http://www.wolframalpha.com/input/?i...%3D+tan%28x%29

Добавлено через 2 минуты

dx:=value-x;
dy:=ey-y;
path:=Sqrt(sqr(dx)+sqr(dy));

if dy>0 then
    angle:=Round((ArcTan(dx/dy)*180)/pi);
else 
    angle:=90 градусов нах;

len:=round(path);

[supernewbie]

по ходу нашёл, если пишу
GameLine.ey:=460;
GameLine.ex:=880; - всё ок, 89 градусов грит

GameLine.ex:=880;
GameLine.ey:=460; - 0, какого черта..

Добавлено через 32 секунды
нука)

Добавлено через 56 секунд
О БОЖНЕ

Добавлено через 30 секунд
как же я ахерел..

Добавлено через 41 секунду
работает, нятый насос..

[Nickers]

Не за что.

[supernewbie]

и 270 тоже 0? что за нах

Добавлено через 1 минуту
че-то не то да

[Yegor]

Эти функции вроде бы с градусами сразу работают а не с радианами.

[supernewbie]

во че нашел

function sgn (a : real) : real;
begin
  if a < 0  then  result := -1
            else  result :=  1;
end;

function atan2(y, x : real) : real;
begin
  if x > 0       then  result := arctan (y/x)
  else if x < 0  then  result := arctan (y/x) + pi
  else                 result := pi/2 * sgn (y);
end;