Угол поворота точки окружности относительно центра

Previous  Top  Next

    
 

 

Code:

 

{ **** UBPFD *********** by kladovka.net.ru ****

>> Угол поворота точки окружности относительно центра

 

Center - центр окружности;

P - точка на окружности;

 

Угол определяется так, как учили в школе: от нуля по оси X вправо и дальше против часовой стрелки.

Значение возвращает в градусах.

 

Зависимости: Math

Автор:       Fenik, chook_nu@uraltc.ru, Новоуральск

Copyright:   Автор: Николай Федоровских

Дата:        12 июня 2003 г.

********************************************** }

 

function GetAngle(const Center, P: TPoint): Double;

begin

Result := ArcTan2(Center.y - P.y, P.x - Center.x) * (180 / Pi);

{Чтобы возвращала результат в радианах, нужно <* (180 / Pi)> убрать}

if Result < 0 then Result := Result + 360; {Эта строка необязательна}

end;

©Drkb::04125