Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

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

 
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 высчитываются, например, через тангенсы угла.


 
Kobik ©   (2003-12-23 19:57) [2]

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

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

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

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



Страницы: 1 вся ветка

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
14-1082801250
DoG
2004-04-24 14:07
2004.05.16
Обмен Сообщениями !


7-1081410804
Andrey007
2004-04-08 11:53
2004.05.16
Как задать размер полей отступа при печати текста в TPrintDialog?


6-1080137901
Rust
2004-03-24 17:18
2004.05.16
ServerSocket & ClientSocket


14-1082787568
gn
2004-04-24 10:19
2004.05.16
Новая технология защиты кредитных карт с распознаванием голоса


14-1082741400
Sane
2004-04-23 21:30
2004.05.16
Курсовик =(