0d424853 |
1 | puts "================" |
2 | puts "OCC27283" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Regression vs 6.9.1: smesh/bugs_11/L9: invalid result of General Fuse |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug27283_shapes.brep] a |
10 | set lst [explode a] |
11 | |
12 | bclearobjects |
13 | bcleartools |
14 | baddobjects a_1 |
15 | eval baddtools [lrange $lst 1 end] |
16 | bfillds |
17 | bbuild result0 |
18 | |
19 | checkshape result0 |
20 | |
21 | # extract the parts of result corresponding to object |
22 | shape result C |
23 | foreach s [explode a_1 So] { |
24 | bmodified r_$s $s |
25 | add r_$s result |
26 | } |
27 | |
28 | checknbshapes result -solid 76 -shell 76 -face 279 |
29 | checkprops result -s 1880.4 |
30 | |
31 | smallview |
32 | don result |
33 | fit |
34 | |
35 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |