1 puts "============================================================="
2 puts "OCC31187: Unify same domain algorithm produces invalid shape."
3 puts "============================================================="
6 restore [locate_data_file bug31187_fuse.brep] a
8 unifysamedom result a -t 1.e-4 -a 1.e-6
12 checknbshapes result -solid 1 -shell 1 -face 13 -wire 13 -edge 36 -vertex 25
14 set tolres [checkmaxtol result]
16 if { ${tolres} > 6.e-5} {
17 puts "Error: bad tolerance of result"