1 puts "TODO OCC24861 ALL: Error : The square of result shape is"
8 ########################################################
9 ## Result of cut and fuse operation are faulty shapes although arguments are valid.
10 ########################################################
12 restore [locate_data_file OCC497i.brep] a_1
15 restore [locate_data_file OCC497j.brep] a_2
18 if [catch {bfuse result a_1 a_2 } catch_result] {
19 puts "Faulty OCC497:function FUSE works wrongly "
21 puts "OCC497 : function FUSE works without hangs up "