24542bc0 |
1 | puts "========" |
2 | puts "OCC28017" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # Unexpected result of General Fuse operation |
7 | ################################################# |
8 | |
9 | restore [locate_data_file bug28017_shape.brep] a |
10 | |
11 | explode a |
12 | bclearobjects |
13 | bcleartools |
14 | baddobjects a_1 |
15 | baddtools a_2 |
16 | bfillds |
17 | bbuild r |
18 | |
19 | checkmaxtol r -min_tol 0.51 |
20 | explode r So |
21 | checknbshapes r -solid 2 |
22 | checkshape r_1 |
23 | checkshape r_2 |
24 | bopcheck r_1 |
25 | bopcheck r_2 |
26 | don r_1 r_2 |
27 | smallview; fit |
28 | |
29 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |