Угол поворота точки окружности относительно центра
Falk0ner, вс, 06/07/2008 - 15:35.
Угол поворота точки окружности относительно центра
{ **** UBPFD *********** by kladovka.net.ru ****
>>
Center - центр окружности;
P - точка на окружности;
Угол определяется так, как учили в школе: от нуля по оси X вправо и дальше против часовой стрелки.
Значение возвращает в градусах.
Зависимости: Math
Автор: Fenik, <a href="mailto:chook_nu@uraltc.ru">chook_nu@uraltc.ru</a>, Новоуральск
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;
>>
Center - центр окружности;
P - точка на окружности;
Угол определяется так, как учили в школе: от нуля по оси X вправо и дальше против часовой стрелки.
Значение возвращает в градусах.
Зависимости: Math
Автор: Fenik, <a href="mailto:chook_nu@uraltc.ru">chook_nu@uraltc.ru</a>, Новоуральск
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;
Отправить комментарий