1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
2 puts "TODO OCC12345 ALL: Error : The area of result shape is"
8 ####################################
9 ## Draw hungs up during performing bfuse operation
10 ####################################
14 restore [locate_data_file OCC530_1.brep] c1
17 restore [locate_data_file OCC530_2.brep] c2
20 if { [catch { bfuse result c1 c2 } catch_result] } {
21 puts "Faulty OCC530 : function BFUSE works wrongly"
23 puts "OCC530 OK: function BFUSE works properly"
26 checkprops result -s 0
28 checkview -display result -2d -path ${imagedir}/${test_image}.png