0031499: Boolean Operations - Custom fuzzy value corrupts the result of CUT
[occt.git] / tests / bugs / modalg_7 / bug31499_1
1 puts "============================================================================================="
2 puts "OCC31499: Boolean Operations - Custom fuzzy value corrupts the result of CUT"
3 puts "============================================================================================="
4 puts ""
5
6 restore [locate_data_file bug31499.brep] s
7
8 # perform operation with default fuzzy value
9 bfuzzyvalue 1.e-7
10
11 tcopy s s1
12 explode s1 So
13
14 bclearobjects
15 bcleartools
16 baddobjects s1_1
17 baddtools s1_2 s1_3 s1_4
18 bfillds
19
20 bbop r1_0 0
21 bbop r1_1 1
22 bbop r1_2 2
23 bbop r1_3 3
24 bbop r1_4 4
25 bbuild r1_5
26
27
28 # perform operation with custom fuzzy value
29 bfuzzyvalue 1.e-5
30
31 tcopy s s2
32 explode s2 So
33
34 bclearobjects
35 bcleartools
36 baddobjects s2_1
37 baddtools s2_2 s2_3 s2_4
38 bfillds
39  
40 bbop r2_0 0
41 bbop r2_1 1
42 bbop r2_2 2
43 bbop r2_3 3
44 bbop r2_4 4
45 bbuild r2_5
46
47 foreach j {1 2} {
48   foreach i {0 1 2 3 4 5} {
49     checkshape r${j}_$i
50     if {![regexp "OK" [bopcheck r${j}_$i]]} {
51       puts "Error: r${j}_$i is self-intersecting shape"
52     }
53   }
54 }
55
56 checkprops r1_0 -s 858.419 -v 687.948
57 checknbshapes r1_0 -wire 21 -face 21 -shell 3 -solid 3 -t
58
59 checkprops r1_1 -s 29829.2 -v 219732
60 checknbshapes r1_1 -wire 34 -face 34 -shell 1 -solid 1 -t
61
62 checkprops r1_2 -s 1987.39 -v 6408.07
63 checknbshapes r1_2 -wire 19 -face 19 -shell 1 -solid 1 -t
64
65 checkprops r1_3 -s 37868.2 -v 212636
66 checknbshapes r1_3 -wire 60 -face 60 -shell 6 -solid 6 -t
67
68 checkprops r1_4 -l 379.04
69 checksection r1_4 -r 0
70
71 checkprops r1_5 -s 40714 -v 219732
72 checknbshapes r1_5 -wire 79 -face 79 -shell 10 -solid 10 -t
73
74 foreach i {0 1 2 3 4 5} {
75   checkprops r2_$i -equal r1_$i
76   checknbshapes r2_$i -ref [nbshapes r2_$i]
77 }
78
79 checkview -display r2_2 -2d -path ${imagedir}/${test_image}.png