a87752f3 |
1 | |
2 | puts "========" |
3 | puts "BUC60789" |
4 | puts "========" |
5 | puts "" |
6 | |
7 | #restore buc60789a.brep S1 |
8 | restore [locate_data_file buc60787b.brep] S1 |
9 | ### (by apn during classification) |
352ffd73 |
10 | checkshape S1 |
a87752f3 |
11 | restore [locate_data_file buc60789b.brep] S2 |
352ffd73 |
12 | checkshape S2 |
a87752f3 |
13 | |
14 | bcommon result S1 S2 |
15 | |
a87752f3 |
16 | set nb_info [nbshapes result] |
17 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve |
18 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed |
19 | |
20 | if { $ve != 0 && $ed != 0 } { |
21 | puts " BUC60789 OK: COMMON operation was made properly" |
22 | } else { |
23 | puts "Faulty BUC60789: COMMON operation was made wrongly" |
24 | } |
58cf74e0 |
25 | checkprops result -l 78.3594 |
26 | checkshape result |
27 | checksection result |
5747059b |
28 | checkview -display result -2d -path ${imagedir}/${test_image}.png |