tests/calibrate_clino.svx

   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