0e94a94e |
1 | |
2 | puts "============" |
3 | puts "BUC60865" |
4 | puts "BUC60864" |
5 | puts "============" |
6 | puts "" |
7 | ########################## |
8 | ## Section gives duplicate edges. |
9 | ########################## |
10 | |
11 | restore [locate_data_file BUC60865_sh6.brep] sh |
352ffd73 |
12 | checkshape sh |
0e94a94e |
13 | |
14 | plane pl 1.1 0.99999 1 0 1 0 |
15 | mkface f pl |
16 | bsection result sh f |
17 | |
0e94a94e |
18 | set nb_info [nbshapes result] |
19 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed |
20 | |
21 | if { $ed == 5 } { |
22 | puts " BUC60865 : SECTION operation was made properly" |
23 | } else { |
24 | puts "Faulty BUC60865: SECTION operation was made wrongly" |
25 | } |
26 | set length 4.5 |
27 | set 2dviewer 0 |
28 | |