0030386: Modeling Algorithms - Unable to perform Cut operation
[occt.git] / tests / bugs / modalg_7 / bug29843_1
1 puts "========"
2 puts "0029843: Modeling Algorithms - Boolean FUSE produces incorrect result"
3 puts "========"
4 puts ""
5
6 restore [locate_data_file bug29843.brep] s
7
8 explode s
9 bclearobjects
10 bcleartools
11 baddobjects s_1
12 baddtools s_2
13 bfillds
14
15 bbop r_0 0
16 bbop r_1 1
17 bbop r_2 2
18 bbop r_3 3
19 bbop r_4 4
20 bbuild r_5
21
22 foreach i { 0 1 2 3 4 5} {
23   checkshape r_$i
24   if {![regexp "OK" [bopcheck r_$i]]} {
25     puts "Error: r_$i is self-intersecting shape"
26   }
27 }
28
29 checkprops r_0 -s 9.84429 -v 0.639311
30 checknbshapes r_0 -wire 7 -face 5 -shell 1 -solid 1 -t
31
32 checkprops r_1 -s 2121.39 -v 612.41
33 checknbshapes r_1 -wire 38 -face 32 -shell 2 -solid 1 -t
34
35 checkprops r_2 -s 2113.85 -v 611.569
36 checknbshapes r_2 -wire 32 -face 26 -shell 2 -solid 1 -t
37
38 checkprops r_3 -s 15.9893 -v 0.215264
39 checknbshapes r_3 -wire 11 -face 9 -shell 2 -solid 2 -t
40
41 checkprops r_4 -l 24.9725
42 checksection r_4 -r 2
43
44 checkprops r_5 -s 2139.68 -v 612.402
45 checknbshapes r_5 -wire 44 -face 36 -shell 5 -solid 4 -t
46
47 checkview -display r_0 -2d -path ${imagedir}/${test_image}.png
48