tests/offset/shape_type_i_c/YA1

   1 restore [locate_data_file bug28442_input.brep] s
   2
   3 offsetparameter 1e-7 c i r
   4 offsetload s 0
   5
   6 foreach f [explode s f] {
   7   mksurface surf $f
   8   set found [regexp {Axis   :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z]
   9   if {$found == 0} {
  10     continue
  11   }
  12   # reverse normal direction for faces with orientation REVERSED
  13   if {[regexp {REVERSED} [whatis $f]]} {
  14     set z [expr -1*$z]
  15   }
  16   # set offset value for top faces only
  17   if {abs($z - 1) < 1.e-7 } {
  18     offsetonface $f 100
  19   }
  20 }
  21 offsetperform result
  22
  23 checkprops result -v 1.41675e+007 -s 507751
  24
  25 unifysamedom result_unif result
  26 checknbshapes result_unif -face 16 -shell 1
  27
  28 checkview -display result_unif -2d -path ${imagedir}/${test_image}.png