0027283: Regression vs 6.9.1: smesh/bugs_11/L9: invalid result of General Fuse
[occt.git] / tests / bugs / modalg_6 / bug27283
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