Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как найти угол поворота? [Delphi, Windows]

PanPascal © (2002-08-17 14:24:00)
Как найти угол поворота между координаиами мыши и BitMap"ом (8 углов: 0, 45, 90, ... 360) Если можно, то напишите пример

Ev_genus (2002-08-17 16:42:00) [1]
Пишеш такую функцию

function arctg(x,y:Real):Real;
begin
if(x>0) and (y=0) then arctg:=0 else
if(x<0) and (y=0) then arctg:=pi else
if (x= 0) and(y>0) then arctg:=0.5*pi else
if (x= 0) and(y<0) then arctg:=1.5*pi else
if (x>0) and(y>0) then arctg:=arctan(abs(y/x)) else
if (x<0) and(y>0) then arctg:=pi-arctan(abs(y/x)) else
if (x<0) and(y<0) then arctg:=pi+arctan(abs(y/x)) else
if (x>0) and(y<0) then arctg:=2*pi-arctan(abs(y/x));
end;

Затем пусть S(sx,sy) - координаты спрайта, а M(mx, my) - координаты мыши. Как я понял нужен угол между горизонтальной прямой и прямой SM. Тогда угол равен
a:=round(arctg(sx-mx, sy-my)/pi*4)*45;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »