61c421bf |
1 | puts "============" |
2 | puts "OCC6554" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Intersection shell-plane gives a disconnected set of edges |
7 | ###################################################### |
8 | |
9 | set BugNumber OCC6554 |
10 | |
11 | restore [locate_data_file OCC6554-shell.brep] sh |
12 | restore [locate_data_file OCC6554-face.brep] f |
13 | |
14 | decho off |
15 | set che_sh [checkshape sh] |
16 | set che_f [checkshape f] |
17 | decho on |
18 | if { [regexp {Faulty} $che_sh] } { |
19 | puts "Faulty ${BugNumber} : checkshape is wrong for sh" |
20 | } |
21 | |
22 | if { [regexp {Faulty} $che_f] } { |
23 | puts "Faulty ${BugNumber} : checkshape is wrong for f" |
24 | } |
25 | |
26 | bsection result sh f -a |
27 | |
28 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full Vertices |
29 | |
30 | set good_Vertices 2 |
31 | |
32 | if { ${Vertices} != ${good_Vertices} } { |
33 | puts "Faulty ${BugNumber}" |
34 | } else { |
35 | puts "OK ${BugNumber}" |
36 | } |
37 | |
38 | set length 110.045 |
39 | set 2dviewer 2 |