1 | function scr_get_cardinal_direction |
2 | { |
3 | _mycardinal = "n"; |
4 | _mydegree = arg0; |
5 | while (_mydegree > 360 || _mydegree < 0) |
6 | { |
7 | if (_mydegree > 360) |
8 | _mydegree -= 360; |
9 | if (_mydegree < 0) |
10 | _mydegree += 360; |
11 | } |
12 | if (_mydegree >= 315 || _mydegree <= 45) |
13 | _mycardinal = "r"; |
14 | if (_mydegree >= 45 && _mydegree <= 135) |
15 | _mycardinal = "u"; |
16 | if (_mydegree >= 135 && _mydegree <= 225) |
17 | _mycardinal = "l"; |
18 | if (_mydegree >= 225 && _mydegree <= 315) |
19 | _mycardinal = "d"; |
20 | return _mycardinal; |
21 | } |