tests/offset/shape_type_i_c/XG7

   1 restore [locate_data_file bug26917_rm-095_input_trim1.brep] s
   2
   3 offsetparameter 1e-7 c i
   4 offsetload s 5
   5
   6 set faces [explode s f]
   7 foreach f $faces {
   8   mksurface surf $f
   9   set found [regexp {Axis   :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z]
  10   if {$found && abs(abs($z) - 1) < 1.e-7} {
  11     offsetonface $f 0
  12   }
  13 }
  14 offsetperform result
  15
  16 checkprops result -v 6.74813e+006 -s 751157
  17
  18 checknbshapes result -shell 1