//This command will return a value that does not exceed the range of 0 to 360. 
function WrapAngle( angle as float) 
	local iChunkOut as integer
	local breakout as integer
	iChunkOut = angle
	iChunkOut = iChunkOut - mod( iChunkOut, 360 )
	angle = angle - iChunkOut
	breakout = 10000
	while angle < 0.0 or angle >= 360.0 
		if angle < 0.0 then angle = angle + 360.0
		if angle >= 360.0 then angle = angle - 360.0
		dec breakout  
		if  breakout = 0  then exit
	endwhile
	if  breakout = 0  then angle = 0.0
endfunction angle

//This command will return an auto-interpolated angle based on a given speed. 
function CurveAngle( destination as float, current as float,  speed as float)
	local diff as float
	if speed < 1.0 then speed = 1.0
	destination = WrapAngle( destination )
	current = WrapAngle( current )
	diff = destination - current
	if diff <- 180.0 then diff = ( destination + 360.0 ) - current
	if diff > 180.0 then diff = destination - ( current + 360.0 )
	current = current + ( diff / speed )
	current = WrapAngle( current )
endfunction current

//This command will return an auto-interpolated value based on a given speed. 
function CurveValue( destination as float, current as float,  speed as float)
	local diff as float
	if  speed < 1.0  then speed = 1.0
	diff = destination - current
	current = current + ( diff / speed )
endfunction current

//This command will return a value that represents the new X position of a point in 3D space
// currentXValue -- current value to calculate the new value from.
// angleValue -- angle value in degrees 0 to 360
// stepValue -- specifies how far in the specified direction you would like to calculate
function CalculateNewXValue( currentXValue as float, angleValue as float, stepValue as float ) 
	result# = currentXValue + ( sin(angleValue) * stepValue )
endfunction result#

//This command will return a value that represents the new Y position of a point in 3D space
// currentXValue -- current value to calculate the new value from.
// angleValue -- angle value in degrees 0 to 360
// stepValue -- specifies how far in the specified direction you would like to calculate
function CalculateNewYValue( currentYValue as float, angleValue as float, stepValue as float ) 
	result# = currentYValue - ( sin(angleValue) * stepValue )
endfunction result#

//This command will return a value that represents the new Z position of a point in 3D space
// currentXValue -- current value to calculate the new value from.
// angleValue -- angle value in degrees 0 to 360
// stepValue -- specifies how far in the specified direction you would like to calculate
function CalculateNewZValue( currentZValue as float, angleValue as float, stepValue as float ) 
	result# = currentZValue + ( cos(angleValue) * stepValue )
endfunction result#