puts "============" puts "OCC26098" puts "============" puts "" ############################### ## The result of General Fuse operation is self-interfered shape ############################### restore [locate_data_file bug26098_c.brep ] c explode c bclearobjects bcleartools baddobjects c_1 baddtools c_2 c_3 c_4 c_5 bfillds bbuild result set info [bopcheck result] if { [regexp "This shape seems to be OK" ${info}] != 1 } { puts "Error : The result of General Fuse operation is self-interfered shape" } checkprops result -s 173.444 checkshape result set nbshapes_expected " Number of shapes in shape VERTEX : 230 EDGE : 400 WIRE : 196 FACE : 185 SHELL : 20 SOLID : 20 COMPSOLID : 0 COMPOUND : 1 SHAPE : 1052 " checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by General Fuse operator" checkview -display result -3d -path ${imagedir}/${test_image}.png