+puts "REQUIRED All: Faulty shapes in variables faulty_1 to faulty_"
puts "========================"
puts " OCC325 "
puts "========================"
restore [locate_data_file OCC325.brep] result
-decho off
-set che [checkshape result]
-decho on
-
-if { [regexp {Faulty} $che ] != 1} {
- puts "Faulty OCC325: Checkshape command works wrongly"
-} else {
- puts "OCC325 OK : Checkshape command works properly"
-}
+checkshape result
set 2dviewer 0