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