repo.or.cz
/
survex.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Rationalise the number of compile diagnostic funcs
[survex.git]
/
tests
/
calibrate_clino.svx
blob
e10cd160f1960f610162553f24d3cef29b389520
1
; pos=yes warn=16
2
*begin f
3
*fix 1 0 0 0
4
1 2 10.00 000 00
5
1 u 10.00 090 +90
6
2 u 10.00 090 90
7
2 d 10.00 090 -90
8
; these should warn
9
2 w 10.00 090 91
10
2 x 10.00 090 -91
11
2 y 10.00 090 181
12
2 z 10.00 090 366
13
*calibrate clino 90
14
1 2_ 10.00 000 90
15
1 u_ 10.00 090 +180
16
2 u_ 10.00 090 180
17
2 d_ 10.00 090 0
18
; these should warn
19
2 w_ 10.00 090 181
20
2 x_ 10.00 090 -1
21
*calibrate clino 90 -1
22
1 2__ 10.00 000 90
23
1 u__ 10.00 090 0
24
2 u__ 10.00 090 0
25
2 d__ 10.00 090 180
26
; these should warn
27
2 w__ 10.00 090 -1
28
2 x__ 10.00 090 181
29
*end f
30
*begin b
31
*data normal from to tape compass backclino
32
*fix 1 0 0 0
33
1 2 10.00 000 00
34
1 u 10.00 090 -90
35
2 u 10.00 090 -90
36
2 d 10.00 090 +90
37
; these should warn
38
2 w 10.00 090 -91
39
2 x 10.00 090 91
40
2 y 10.00 090 -181
41
2 z 10.00 090 -366
42
*calibrate backclino 90
43
1 2_ 10.00 000 90
44
1 u_ 10.00 090 0
45
2 u_ 10.00 090 0
46
2 d_ 10.00 090 180
47
; these should warn
48
2 w_ 10.00 090 -1
49
2 x_ 10.00 090 181
50
*calibrate backclino 90 -1
51
1 2__ 10.00 000 90
52
1 u__ 10.00 090 180
53
2 u__ 10.00 090 180
54
2 d__ 10.00 090 0
55
; these should warn
56
2 w__ 10.00 090 181
57
2 x__ 10.00 090 -1
58
*end b