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

Материал из DRKB


{ **** 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;


Author: Fenik
ID: 04125