Откидывание периода угла

[impersonalis]

Функция приводит аргумент в значение 0 до 359

Function ConvertAng#(ang#)
;приведение к виду (0;359)
	If ang<0
		ang=ang+Ceil(Abs(ang)/360)*360
	ElseIf ang>=360
		ang=ang-Floor(ang/360)*360
	EndIf
	Return ang
End Function


Graphics 800,600
For i=1 To 360*3
	Plot i/2,ConvertAng#(i)
Next

While Not KeyHit(1)
Flip
Wend
End

[pax]

Вот еще один вариант:

Function ConvertAng2#(ang#)
	ang# = ang# Mod 360
	If ang# < 0 Then ang# = ang# + 360
	Return ang#
End Function