a87752f3 |
1 | puts "==========" |
2 | puts "BUC60712" |
3 | puts "==========" |
4 | puts "" |
5 | puts "==================================" |
6 | puts "It takes visual check for this BUG" |
7 | puts "==================================" |
8 | |
9 | # |
10 | # OCC22070: Grid Tests: CHL set, detected problems |
11 | # Problems: |
12 | # The shape buc60712a.brep is self-interferred. |
13 | # thus it can not be used as the argument for Boolean Operation Algorithm. |
14 | # |
15 | # Proposals: |
16 | # The Case chl/902/F3 should be removed or rewritten: |
17 | |
18 | restore [locate_data_file buc60712a.brep] a |
352ffd73 |
19 | checkshape a |
a87752f3 |
20 | |
21 | restore [locate_data_file buc60712b.brep] b |
352ffd73 |
22 | checkshape b |
a87752f3 |
23 | |
24 | # Recompute "a" shape |
25 | explode a f |
26 | |
27 | bop a_1 a_2 |
28 | bopfuse r12 |
29 | |
30 | bop a_3 a_4 |
31 | bopfuse r34 |
32 | |
33 | bop r12 r34 |
34 | |
35 | bopfuse r |
36 | |
37 | # Start boolean operation |
38 | bop r b |
39 | bopsection result |
40 | |
41 | # Check result |
42 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num |
43 | # Resume |
44 | if { $num != 0 } { |
45 | puts " Faulty BUC60712: Result shape is INcorrect !!! " |
46 | } else { |
47 | puts "BUC60712 OK: Result shape is correct " |
48 | } |
49 | set length 1.88145 |
50 | set 2dviewer 0 |