tests/gdt/dimensions/A3

   1
   2 box b 10 10 10
   3 explode b
   4 explode b_1
   5
   6 NewDocument D
   7 XAddShape D b
   8 XAddDimension D b_1_1
   9
  10 #0:1:4:1
  11 XSetDimensionType D  0:1:4:1 14
  12 XSetDimensionRange D  0:1:4:1 1.5 2.5
  13
  14 set c_range "lower 1.5 upper 2.5"
  15 set c_type "Size_CurveLength"