restore [locate_data_file bug26917_dom-7724.brep] s

offsetparameter 1e-7 c i
offsetload s 15

set faces [explode s f]
foreach f $faces {
  mksurface surf $f
  set found [regexp {Axis   :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z]
  if {$found && abs($z - 1) < 1.e-7} {
    offsetonface $f 0
  }
}
offsetperform result

checkprops result -v 8.52723e+008 -s 6.06025e+006

checknbshapes result -shell 1
