puts "========================" puts "OCC620" puts "========================" puts "" ############################ ## No possibility to cut the shapes. ############################ restore [locate_data_file OCC620a.brep] a checkshape a restore [locate_data_file OCC620b.brep] b checkshape b bop a b if [catch { boptuc result } catch_result] { puts "Faulty OCC620 : BOPTUC operation was made wrongly" } else { puts "OCC620 OK: BOPTUC operation works OK" } set square 1.15562e+06 set 2dviewer 0