AdjustAngleDegree Function
Adjusts a value in Degrees, so that it lies in between 0 and 360.

Unit
QESBPCSMath

Declaration
Function AdjustAngleDegree(const X: Extended): Extended;

Parameters
Value in Degrees.

Category
Arithmetic Routines for Floats

Implementation

function AdjustAngleDegree (const X: Extended): Extended;
begin
     Result := X;
     if Result > 360 then
          Result := Result - Int (Result / 360) * 360;
     if Result < 0 then
          Result := Result + Int (abs (Result) / 360 + 1) * 360;
End;


HTML generated by Time2HELP
http://www.time2help.com