puts "========================" puts "BUC60703" puts "========================" restore [locate_data_file buc60703e.brep] a #maxtolerance a checkshape a restore [locate_data_file buc60703d.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] { puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4" } else { puts "BUC60703 : here is NOT checking problem" } } set square 371.259 set 2dviewer 0