puts "========" puts "OCC28426" puts "========" puts "" ################################################# # Implementation of the EdgesToFaces function ################################################# restore [locate_data_file bug25926_before_offset.brep] s eval compound [explode s e] c edgestofaces result c checkshape result checknbshapes result -face 66 -wire 66 if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } { puts "Error : The result is self-interfered" } checkview -display result -2d -path ${imagedir}/${test_image}.png