###################################
restore [locate_data_file OCC829_w1.brep] a
-puts [checkshape a]
+checkshape a
explode a w
if { [catch { mkoffset result a_1 1 5 } status] } {
set num [llength $ll]
puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
foreach {k} $ll {
- puts [checkshape $k]
+ checkshape $k
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
if { $cs != 0 } {
puts [format "Faulty : Result shape is UNclosed wire !!! " $k]