-
Notifications
You must be signed in to change notification settings - Fork 0
/
gregg_rev.unit
238 lines (176 loc) · 51.5 KB
/
gregg_rev.unit
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
#!/usr/local/bin/koios
# koios-polos (axis of heaven) unit testing meta-language
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
PREP include the prototype headers - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
incl include public header gregg.h - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (REV) verify simple point loading 0s points FAKE_start, REV_touch, FAKE_point, REV_lift, REV_load_don ((01.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
COND verify clean start - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.002)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_start i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 1 : å;Õ0,0æ
COND verify simple point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call point FAKE_point 1 , 1 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 2 : å;Õ0,0;1,1æ
COND verify simple stop - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.004)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call done FAKE_done 2 , 2 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 3 : å;Õ0,0;1,1;Ô2,2;æ
COND verify another clean start - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.002)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_start i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 1 : å;Õ0,0æ
COND attempt to add a duplicate point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.007)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_point 0 , 0 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 1 : å;Õ0,0æ
COND verify adding two slightly different points - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.008)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_point 1 , 0 i_equal 0
exec call start FAKE_point 0 , 1 i_equal 0
exec call start FAKE_point 1 , 1 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 4 : å;Õ0,0;1,0;0,1;1,1æ
COND attempt another duplicate point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_point 1 , 1 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 4 : å;Õ0,0;1,0;0,1;1,1æ
COND verify lift at the same last point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.010)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_done 1 , 1 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 4 : å;Õ0,0;1,0;0,1;Ô1,1;æ
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (REV) verify point loading 0s tbd FAKE_start, REV_touch, FAKE_point, REV_lift, REV_load_don ((01.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
COND verify clean start - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.002)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_start i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 1 : å;Õ0,0æ
COND verify simple point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_point 1 , 1 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 2 : å;Õ0,0;1,1æ
COND verify simple stop - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.004)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_done 2 , 2 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 3 : å;Õ0,0;1,1;Ô2,2;æ
COND verify raw load - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.005)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call load REV_load_raw i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 3 : å;Õ0,0;1,1;Ô2,2;æ
get ... review raw points POINT__unit "types" , POINTS_RAW , 0 s_equal RAW by type : 6 [S>--<F]
COND verify another start - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.006)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_start i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 1 : å;Õ0,0æ
COND attempt to add a duplicate point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.007)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_point 0 , 0 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 1 : å;Õ0,0æ
COND verify adding two slightly different points - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.008)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_point 1 , 0 i_equal 0
exec call start FAKE_point 0 , 1 i_equal 0
exec call start FAKE_point 1 , 1 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 4 : å;Õ0,0;1,0;0,1;1,1æ
COND attempt another duplicate point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_point 1 , 1 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 4 : å;Õ0,0;1,0;0,1;1,1æ
COND verify lift at the same last point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.010)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call start FAKE_done 1 , 1 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 4 : å;Õ0,0;1,0;0,1;Ô1,1;æ
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (REVERSE) verify finding of letters 0s tbd REVERSE_find_letter ((02.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variables - - - - - - - - - - - - - short n = 0;
COND find normal letters - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.002)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call find REVERSE_find_letter "t" , LTRS_NORM i_greater 0
exec call find REVERSE_find_letter "m" , LTRS_NORM i_greater 0
exec call find REVERSE_find_letter "f" , LTRS_NORM i_greater 0
COND attempt tweaks in normal mode - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call find REVERSE_find_letter "am" , LTRS_NORM i_equal 0
exec call find REVERSE_find_letter "err" , LTRS_NORM i_equal 0
COND attempt bad letters - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.004)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call find REVERSE_find_letter NULL , LTRS_NORM i_equal 0
exec call find REVERSE_find_letter "Q" , LTRS_NORM i_equal 0
exec call find REVERSE_find_letter " " , LTRS_NORM i_equal 0
exec call find REVERSE_find_letter "junk" , LTRS_NORM i_equal 0
COND find normal letters (tweak mode) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.005)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call find REVERSE_find_letter "t" , LTRS_ALL i_greater 0
exec call find REVERSE_find_letter "m" , LTRS_ALL i_greater 0
exec call find REVERSE_find_letter "f" , LTRS_ALL i_greater 0
COND attempt tweaks (tweak mode) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.006)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call find REVERSE_find_letter "am" , LTRS_ALL i_greater 0
exec call find REVERSE_find_letter "err" , LTRS_ALL i_greater 0
COND attempt bad letters (tweak mode) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.007)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call find REVERSE_find_letter NULL , LTRS_ALL i_equal 0
exec call find REVERSE_find_letter "Q" , LTRS_ALL i_equal 0
exec call find REVERSE_find_letter " " , LTRS_ALL i_equal 0
exec call find REVERSE_find_letter "junk" , LTRS_ALL i_equal 0
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.008)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (REVERSE) verify creating points for lines 0s tbd REVERSE_line ((03.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variables - - - - - - - - - - - - - short n = 0;
COND create a simple success - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.002)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec begin outline REVERSE_begin 0 , 0 i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 1 : [;TOUCH,0,0]
exec call find REVERSE_make_current "t" i_greater 0 n
echo ... check index - - - - - - - - - - - - - n i_greater 0
echo ... check letter - - - - - - - - - - - - - g_loc [n].label s_equal t
exec call line REVERSE_line SHAPE_LOAD, 10 i_equal 0
exec end outline REVERSE_end i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 17 : [;TOUCH,0,0;0,0;6,7;12,15;19,22;¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬>
COND move the starting point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec begin outline REVERSE_begin 10 , 3 i_equal 0
exec call find REVERSE_make_current "t" i_greater 0 n
exec call line REVERSE_line SHAPE_LOAD, 10 i_equal 0
exec end outline REVERSE_end i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 17 : [;TOUCH,10,3;10,3;16,10;22,18;29,25;¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬>
COND more frequent points - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.004)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec begin outline REVERSE_begin 10 , 3 i_equal 0
exec call find REVERSE_make_current "t" i_greater 0 n
exec call line REVERSE_line SHAPE_LOAD, 1 i_equal 0
exec end outline REVERSE_end i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 152 : [;TOUCH,10,3;10,3;10,3;11,4;11,5;¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬>
COND try another letter and size - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.005)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec begin outline REVERSE_begin 0 , 0 i_equal 0
exec call find REVERSE_make_current "m" i_greater 0 n
exec call line REVERSE_line SHAPE_LOAD, 10 i_equal 0
exec end outline REVERSE_end i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 32 : [;TOUCH,0,0;0,0;9,0;19,1;29,2;¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬>
COND try a downward letter - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.006)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec begin outline REVERSE_begin 0 , 0 i_equal 0
exec call find REVERSE_make_current "ng" i_greater 0 n
exec call line REVERSE_line SHAPE_LOAD, 10 i_equal 0
exec end outline REVERSE_end i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 17 : [;TOUCH,0,0;0,0;8,-5;17,-10;25,-15;¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬>
COND try a down and back letter - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.007)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec begin outline REVERSE_begin 0 , 0 i_equal 0
exec call find REVERSE_make_current "j" i_greater 0 n
exec call line REVERSE_line SHAPE_LOAD, 10 i_equal 0
exec end outline REVERSE_end i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 47 : [;TOUCH,0,0;0,0;-3,-9;-6,-18;¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬>
COND attempt with the wrong letter group - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.008)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec begin outline REVERSE_begin 0 , 0 i_equal 0
exec call find REVERSE_make_current "f" i_greater 0 n
exec call line REVERSE_line SHAPE_LOAD, 10 i_lesser 0
exec end outline REVERSE_end i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 2 : [;TOUCH,0,0;LIFT,0,0;]
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((03.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (REVERSE) verify creating points for ellipses 0s tbd REVERSE_ellipse ((04.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((04.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variables - - - - - - - - - - - - - short n = 0;
COND create a simple success - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((04.002)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec begin outline REVERSE_begin 0 , 0 i_equal 0
exec call find REVERSE_make_current "o" i_greater 0 n
exec call line REVERSE_ellipse SHAPE_LOAD, 20 i_equal 0
exec end outline REVERSE_end i_equal 0
get ... review points REV__unit "load" , 0 s_equal REVERSE load 17 : [;TOUCH,0,0;0,0;7,6;15,12;22,19;¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬>
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((04.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
# end-of-file. done, finito, completare, whimper [Ï´···