restore [locate_data_file bug28473_input.brep] s

offsetparameter 1e-7 c i r
offsetload s 10

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

checkprops result -v 1.62264e+008 -s 2.94663e+006

unifysamedom result_unif result
checknbshapes result_unif -face 25 -shell 1

checkview -display result_unif -2d -path ${imagedir}/${test_image}.png