6 restore [locate_data_file BUC60946_prism.brep] c
15 set nb_info [nbshapes result]
16 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
17 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
19 if { $nb_vertices != $nb_edges } {
20 puts "Section is opened: Faulty shape"
22 puts "Section is closed: OK"