d0820f2e |
1 | puts "============" |
2 | puts "OCC26151" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Wrong result obtained by intersection algorithm. |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug26132_shape.brep] q |
10 | |
11 | explode q |
12 | copy q_1 b1 |
13 | copy q_2 b2 |
14 | |
15 | explode b1 f |
16 | explode b2 |
17 | explode b2_10 f |
18 | |
19 | set log [bopcurves b1_1 b2_10_4 -2d] |
20 | |
21 | #Faces almost coincide. Therefore, there is no point in |
22 | #returning some intersection line. |
23 | #Theoretically, the intersection result is some region (tangent zone). |
24 | |
25 | if { [regexp "has no 3d curve" ${log}] != 1 } { |
26 | puts "Error : Wrong result obtained by intersection algorithm" |
27 | } else { |
28 | puts "OK : Good result obtained by intersection algorithm" |
29 | } |
30 | |
31 | smallview |
32 | fit |
33 | xwd $imagedir/${test_image}.png |