puts "========"
puts "0031639: Modeling Algorithms - Offset algorithm incorrectly fills one of the holes"
puts "========"
puts ""

restore [locate_data_file bug31639_input.brep] s
offsetparameter 1e-7 c i r
offsetload s 0
foreach f [explode s f] {
  mksurface surf $f
  regexp {Axis   :([-0-9.+eE]*), ([-0-9.+eE]*), ([-0-9.+eE]*)} [dump surf] full x y z
  if {abs($x) > 1.e-7 || abs($y) > 1.e-7} {
    offsetonface $f 7
  }
}
offsetperform result

checkprops result -s 2.10662e+07 -v 1.42886e+09

unifysamedom result_unif result
checknbshapes result_unif -wire 45 -face 41 -shell 1 -solid 1

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