Перемещение юнита

← →
Dmitrich (2003-12-23 09:31) [0]

Привет мастера Delphi. Помогите реализовать перемещение юнита из точки А(x0,y0) в точку Б(x1,y1). Я предполагаю, что это можно сделать с помощью вычислений:
x:=x+cos256(A);
y:=y+Sin256(A);

Где А угол.

Как вычислить этот угол. И очень интересно как Вы обычно решаете этот вопрос.

← →
Darthman © (2003-12-23 10:22) [1]

X:=X+dX;
Y:=Y+dY;

где dX и dY высчитываются, например, через тангенсы угла.

Есть такая функция ArcTan2 в стандартой библиотеке math (или чтото типа того)

function ArcTan2(Y, X: Extended): Extended;
asm
FLD Y
FLD X
FPATAN
FWAIT
end;

Просто A:=ArcTan2(y1-y0,x1-x0);

Можно через обычный ArcTan, только тогда надо сделать соответствующие проверки на четверти.

Перемещение юнита Найти похожие ветки