04cbc9d3 |
1 | puts "========" |
2 | puts "OCC23985" |
3 | puts "========" |
4 | puts "" |
5 | ########################################## |
6 | ## There is no section between attached faces |
7 | ########################################## |
8 | |
9 | set BugNumber 23985 |
10 | |
11 | restore [locate_data_file bug23985_b1.brep] b1 |
12 | restore [locate_data_file bug23985_b2.brep] b2 |
13 | |
14 | bsection result b1 b2 |
15 | |
16 | set expl [explode result] |
17 | |
c6df241c |
18 | set ll [llength $expl] |
19 | puts "Result is $ll section edge" |
04cbc9d3 |
20 | |
c6df241c |
21 | if {$ll > 0} { |
04cbc9d3 |
22 | puts "${BugNumber} OK" |
23 | } else { |
24 | puts "Faulty ${BugNumber}" |
25 | } |
26 | |
27 | set 2dviewer 0 |