puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" puts "================" puts "OCC31" puts "================" puts "" restore [locate_data_file OCC31.brep] sh puts [checkshape sh] explode sh f explode sh_2 e chamf res1 sh sh_2_1 sh_2 7 7 puts [checkshape res1] explode res1 f explode res1_5 e chamf res2 res1 res1_5_4 res1_5 7 7 puts [checkshape res2] explode res2 f explode res2_4 e chamf result res2 res2_4_1 res2_4 7 7 puts [checkshape result] set check_square 1 set square 107634 set 2dviewer 0