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 | |
4f7d41ea |
21 | savehistory gf_hist |
22 | |
0d424853 |
23 | # extract the parts of result corresponding to object |
24 | shape result C |
25 | foreach s [explode a_1 So] { |
4f7d41ea |
26 | modified r_$s gf_hist $s |
0d424853 |
27 | add r_$s result |
28 | } |
29 | |
30 | checknbshapes result -solid 76 -shell 76 -face 279 |
31 | checkprops result -s 1880.4 |
32 | |
33 | smallview |
34 | don result |
35 | fit |
36 | |
37 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |