puts "========" puts "OCC536" puts "SAM1504" puts "========" vinit restore [locate_data_file OCC536.brep] S checkshape S explode S So checkshape S_1 checkshape S_4 if [catch {bfuse result S_1 S_4}] { puts "Faulty OCC536" } else { puts "OCC536 : OK" checkshape result } set square 2.5405e+06 set 2dviewer 0