puts "========================" puts "BUC60703" puts "========================" puts "" #################################### ## Crash during a fuse whilst two plans are tangent. #################################### restore [locate_data_file buc60703d.brep] a #maxtolerance a checkshape a restore [locate_data_file buc60703f.brep] b #maxtolerance b checkshape b if [catch {bfuse result a b } catch_result] { puts "Faulty BUC60703: here is problem with FUSE operation" } else { puts "OK OCC348: function FUSE works ok" if [catch {checkshape result} catch_result] { set mistake 1 } else { set mistake 0 } if { $mistake != 0} { puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4" } else { puts "BUC60703 : here is NOT checking problem" } } set square 505.797 set 2dviewer 0