0e94a94e |
1 | |
2 | puts "============" |
3 | puts "BUC60788" |
4 | puts "case 1" |
5 | puts "============" |
6 | |
7 | #restore Intersection_Shell1_Case1.brep S1 |
8 | #restore Intersection_Shell2_Case1.brep S2 |
9 | |
10 | restore [locate_data_file buc60788a.brep] S1 |
352ffd73 |
11 | checkshape S1 |
0e94a94e |
12 | restore [locate_data_file buc60788b.brep] S2 |
352ffd73 |
13 | checkshape S2 |
0e94a94e |
14 | |
15 | bsection result S1 S2 |
16 | |
17 | set nb_info [nbshapes result] |
18 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err |
19 | regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1 |
20 | |
21 | if { $err != 4 && $err1 != 3} { |
22 | puts "Faulty : result (res) is incorrect" |
23 | } else { |
24 | puts "BUC60788 - OK" |
25 | } |
26 | |
58cf74e0 |
27 | checkprops result -l 750 |
28 | checkshape result |
29 | checksection result |
5747059b |
30 | checkview -display result -2d -path ${imagedir}/${test_image}.png |