| AdjustAngleRad Function |
Unit
QESBPCSMath
Declaration
Function AdjustAngleRad(const X: Extended): Extended;
| Parameters |
| X | Value in Radians. |
Category
Arithmetic Routines for FloatsImplementation
function AdjustAngleRad (const X: Extended): Extended;
begin
Result := X;
if Result > TwoPi then
Result := Result - Int (Result / TwoPi) * TwoPi;
if Result < 0 then
Result := Result + Int (abs (Result) / TwoPi + 1) * TwoPi;
End; |
|
|