testTurtleSpace.toby
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
//-------------------------------------------------------------------
// Test that TurtleSpace coordinate functions are functioning
// properly. You should end up with four arrows, east west, north
// and south, extending to the edges of TurtleSpace, centered on the
// edge.
//
// Copyright (c) 1999 Lighting and Sound Technologies.
// Written by Ryan C. Gordon.
//-------------------------------------------------------------------
function main() returns nothing
number i
number maxX = getTurtleSpaceWidth()
number maxY = getTurtleSpaceHeight()
number centerX = getTurtleX()
number centerY = getTurtleY()
hideTurtle()
// horizontal shaft.
setTurtleXY(0, centerY)
setAngle(0)
goForward(maxX)
// vertical shaft.
setTurtleXY(centerX, 0)
setAngle(90)
goForward(maxY)
// western arrow.
setTurtleXY(0, centerY)
setAngle(-45)
goForward(100)
setTurtleXY(0, centerY)
setAngle(45)
goForward(100)
// eastern arrow.
setTurtleXY(maxX, centerY)
setAngle(-135)
goForward(100)
setTurtleXY(maxX, centerY)
setAngle(135)
goForward(100)
// northern arrow.
setTurtleXY(centerX, 0)
setAngle(135)
goForward(100)
setTurtleXY(centerX, 0)
setAngle(45)
goForward(100)
// southern arrow.
setTurtleXY(centerX, maxY)
setAngle(-135)
goForward(100)
setTurtleXY(centerX, maxY)
setAngle(-45)
goForward(100)
endfunction