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