Wrapping radians...

[wossname]

how do you 'wrap' a large radians value so it falls within one revolution?

If the input was larger than 2pi (a full revolution) then the answer would go back to 0. My inputs are single datatype and must maintain accuracy. I can't use Mod for this because that only works on integers.

It must work with negative numbers too.

My brain hurts.

[krtxmrtz]

Maybe:

If x is the angle, the same angle limited to one revolution would be

x - 2*Pi*INT[x / (2*Pi)] for positive x.

If x is negative, then first let y = 2*Pi - x and
apply the above formula to y. Then change the sign of the result.

I haven't checked it thoroughly though.

[wossname]

Right. Well I have this...

Public Function RectifyRadians(ByVal rads As Single) As Single
        'if makes sure the value is inside the range 0-2Pi (no negative angles or angles greater than 2 revolution)
        '(2pi and zero are valid results)
 
        Dim temp As Single = rads / FULL_ROTATION
        Return rads - (Int(temp) * FULL_ROTATION)
 
    End Function

...which works fine, BUT it uses the old legacy Int() function from VB6. I can't make it work otherwise. This is odd. I'll try to do it in VB.net instead...