tests/gdt/tolerances/A2

   1
   2 box b 10 10 10
   3 explode b
   4 explode b_1
   5
   6 NewDocument D
   7 XAddShape D b
   8 XAddGeomTolerance D b_1_1
   9 XAddDatum D b_1_2
  10 XAddDatum D b_1_3
  11 #0:1:4:1
  12 #0:1:4:2
  13 #0:1:4:3
  14 XSetDatumName D 0:1:4:2 A
  15 XSetDatumName D 0:1:4:3 B
  16 XAddDatumModifier D 0:1:4:2 10
  17 XSetDatum D 0:1:4:2 0:1:4:1
  18 XSetDatum D 0:1:4:3 0:1:4:1
  19 XSetToleranceValue D 0:1:4:1 0.5
  20
  21
  22 set c_dname "A"
  23 set c_dmod "DistanceVariable"
  24 set c_val "0.5"
  25
  26