[Harter]

Если я правильно понял, тебе нужно это:

Function SmoothPointEntity(e1,e2,smothness#=100.0,smeshen#=0)
	PositionEntity gPivot1,EntityX(e1),EntityY(e1)+smeshen,EntityZ(e1)
	PointEntity gPivot1,e2	
	RotateEntity e1, 0,curveAngle#(EntityYaw(gPivot1),EntityYaw(e1),smothness#),0	
End Function

Function CurveAngle#(newangle#,oldangle#,increments#)
	If increments>1		
		If (oldangle+360)-newangle<newangle-oldangle 
			oldangle=360+oldangle
		End If
		If (newangle+360)-oldangle<oldangle-newangle 
			newangle=360+newangle
		End If
		oldangle=oldangle-(oldangle-newangle)/increments
	End If
	If increments<=1 
		Return newangle
	End If
	Return oldangle

End Function