puts "=============================================="
puts "OCC32814: Unifysamedom produces invalid result"
puts "=============================================="
puts ""

restore [locate_data_file bug32814_1.brep] s

unifysamedom result s -a 1e-4

checkshape result
bopargcheck result

checknbshapes result -t -face 7 -wire 13 -edge 70 -vertex 64

set tolres [checkmaxtol result]

if { ${tolres} > 1.e-7} {
   puts "Error: bad tolerance of result"
}

checkprops result -s 5.54082e+06

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