a87752f3 |
1 | |
2 | puts "============" |
3 | puts "BUC60946" |
4 | puts "============" |
5 | |
6 | restore [locate_data_file BUC60946_prism.brep] c |
7 | explode c |
352ffd73 |
8 | checkshape c_1 |
9 | checkshape c_2 |
a87752f3 |
10 | |
11 | renamevar c_1 sh |
12 | renamevar c_2 pr |
13 | bsection result sh pr |
14 | |
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 |
18 | |
19 | if { $nb_vertices != $nb_edges } { |
20 | puts "Section is opened: Faulty shape" |
21 | } else { |
22 | puts "Section is closed: OK" |
23 | } |
24 | set length 52.5057 |
25 | set 2dviewer 0 |