1 puts "TODO OCC12345 ALL: Faulty OCC673: function SPLITSHAPE works wrongly"
3 puts "================"
5 puts "================"
7 #######################################################
8 ## Exception is raised during splitting face by a wire laying on the face boundary.
9 #######################################################
11 restore [locate_data_file OCC673a.brep] a
14 restore [locate_data_file OCC673b.brep] b
17 if [catch {spliteshape result a a b} catch_result] {
18 puts "Faulty OCC673: function SPLITSHAPE works wrongly"
20 puts "OCC673 OK : function SPLITSHAPE works OK"
21 checkprops result -s 0
23 checkview -display result -2d -path ${imagedir}/${test_image}.png