puts "=========" puts " OCC497 " puts "(case 4)" puts "=========" puts "" ######################################################## ## Result of cut and fuse operation are faulty shapes although arguments are valid. ######################################################## restore [locate_data_file OCC497g.brep] a_1 checkshape a_1 restore [locate_data_file OCC497h.brep] a_2 checkshape a_2 if [catch {bfuse result a_1 a_2 } catch_result] { puts "Faulty OCC497:function FUSE works wrongly " } else { puts "OCC497 : function FUSE works without hangs up " } set square 8710.56 set 2dviewer 0