78005ffe |
1 | puts "TODO CR29596 ALL: Warning: Intersection of pair of shapes has failed" |
2 | |
3 | puts "========" |
4 | puts "30760: Modeling Algorithms - Intersection fails in Occt 7.3.0" |
5 | puts "========" |
6 | puts "" |
7 | |
8 | restore [locate_data_file bug30760_shapes.brep] a12 |
9 | # copy the shape to use in other operation |
10 | # with different order of arguments |
11 | tcopy a12 a21 |
12 | |
13 | explode a12 |
14 | bclearobjects |
15 | bcleartools |
16 | baddobjects a12_1 |
17 | baddtools a12_2 |
18 | bfillds |
19 | |
20 | bbop r12_0 0 |
21 | bbop r12_1 1 |
22 | bbop r12_2 2 |
23 | bbop r12_3 3 |
24 | bbop r12_4 4 |
25 | bbuild r12_5 |
26 | |
27 | explode a21 |
28 | bclearobjects |
29 | bcleartools |
30 | baddobjects a21_2 |
31 | baddtools a21_1 |
32 | bfillds |
33 | |
34 | bbop r21_0 0 |
35 | bbop r21_1 1 |
36 | bbop r21_3 2; # for different order cut = cut21 |
37 | bbop r21_2 3; # for different order cut21 = cut |
38 | bbop r21_4 4 |
39 | bbuild r21_5 |
40 | |
41 | |
42 | foreach i { 0 1 2 3 4 5} { |
43 | checkshape r12_$i |
44 | if {![regexp "OK" [bopcheck r12_$i]]} { |
45 | puts "Error: r12_$i is self-intersecting shape" |
46 | } |
47 | |
48 | checkprops r12_$i -equal r21_$i |
49 | checknbshapes r12_$i -ref [nbshapes r21_$i] |
50 | } |
51 | |
52 | foreach i { 0 1 2 3 4 5} { |
53 | checkshape r21_$i |
54 | if {![regexp "OK" [bopcheck r21_$i]]} { |
55 | puts "Error: r21_$i is self-intersecting shape" |
56 | } |
57 | } |
58 | |
59 | checkprops r12_0 -s 0.0550925 -v 0.000106046 |
60 | checknbshapes r12_0 -wire 14 -face 14 -shell 1 -solid 1 -t |
61 | |
62 | checkprops r12_1 -s 0.84475 -v 0.00502274 |
63 | checknbshapes r12_1 -wire 34 -face 34 -shell 1 -solid 1 -t |
64 | |
65 | checkprops r12_2 -s 0.765963 -v 0.00366102 |
66 | checknbshapes r12_2 -wire 24 -face 24 -shell 1 -solid 1 -t |
67 | |
68 | checkprops r12_3 -s 0.117011 -v 0.00125568 |
69 | checknbshapes r12_3 -wire 14 -face 14 -shell 1 -solid 1 -t |
70 | |
71 | checkprops r12_4 -l 1.99738 |
72 | checksection r12_4 -r 8 |
73 | |
74 | checkprops r12_5 -s 0.99316 -v 0.00512878 |
75 | checknbshapes r12_5 -wire 43 -face 43 -shell 3 -solid 3 -t |
76 | |
77 | |
78 | checkview -display r12_5 -2d -path ${imagedir}/${test_image}.png |