95f8c608 |
1 | puts "========" |
2 | puts "OCC27856" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # Regression vs 6.7.1: General Fuse operation fails to fuse the solids |
7 | ################################################# |
8 | |
9 | # Before the fix, EMPTY result (no points, no curves) |
10 | # was returned in every considered case. |
11 | |
12 | restore [locate_data_file bug27856_int_solids.brep] b |
13 | |
14 | explode b so |
15 | |
16 | # first pair of solids |
17 | explode b_1 f |
18 | explode b_2 f |
19 | |
20 | # ---- |
21 | |
22 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_1_2 b_2_2 -2d] full Toler NbCurv |
23 | if {${NbCurv} != 1} { |
24 | puts "Error: Number of curves is bad!" |
25 | } |
26 | checkreal TolReached $Toler 0.00026943844817627679 0.0 1.0e-3 |
27 | |
28 | # ---- |
29 | |
30 | set Toler 0.0 |
31 | set NbCurv 0 |
32 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_1_4 b_2_4 -2d] full Toler NbCurv |
33 | if {${NbCurv} != 1} { |
34 | puts "Error: Number of curves is bad!" |
35 | } |
36 | checkreal TolReached $Toler 6.5039065434503992e-005 0.0 1.0e-2 |
37 | |
38 | # ---- |
39 | |
40 | # second pair of solids |
41 | |
42 | explode b_3 f |
43 | explode b_4 f |
44 | |
45 | # ---- |
46 | |
47 | set Toler 0.0 |
48 | set NbCurv 0 |
49 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_3_2 b_4_2 -2d] full Toler NbCurv |
50 | if {${NbCurv} != 1} { |
51 | puts "Error: Number of curves is bad!" |
52 | } |
53 | checkreal TolReached $Toler 0.00030603795647549098 0.0 1.0e-3 |
54 | |
55 | # ---- |
56 | |
57 | set Toler 0.0 |
58 | set NbCurv 0 |
59 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_3_4 b_4_4 -2d] full Toler NbCurv |
60 | if {${NbCurv} != 1} { |
61 | puts "Error: Number of curves is bad!" |
62 | } |
63 | checkreal TolReached $Toler 0.00029242900088525842 0.0 1.0e-3 |
64 | |
65 | # ---- |
66 | |
67 | # third pair of solids |
68 | |
69 | explode b_5 f |
70 | explode b_6 f |
71 | |
72 | # ---- |
73 | |
74 | set Toler 0.0 |
75 | set NbCurv 0 |
76 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_5_2 b_6_2 -2d] full Toler NbCurv |
77 | if {${NbCurv} != 1} { |
78 | puts "Error: Number of curves is bad!" |
79 | } |
80 | checkreal TolReached $Toler 2.0312181042800029e-005 0.0 1.0e-2 |
81 | |
82 | # ---- |
83 | |
84 | set Toler 0.0 |
85 | set NbCurv 0 |
86 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_5_4 b_6_4 -2d] full Toler NbCurv |
87 | if {${NbCurv} != 1} { |
88 | puts "Error: Number of curves is bad!" |
89 | } |
90 | checkreal TolReached $Toler 0.00023415774730871651 0.0 1.0e-3 |
91 | |
92 | # ---- |
93 | |
94 | # fourth pair of solids |
95 | |
96 | explode b_7 f |
97 | explode b_8 f |
98 | |
99 | # ---- |
100 | |
101 | set Toler 0.0 |
102 | set NbCurv 0 |
103 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_7_2 b_8_2 -2d] full Toler NbCurv |
104 | if {${NbCurv} != 1} { |
105 | puts "Error: Number of curves is bad!" |
106 | } |
107 | checkreal TolReached $Toler 0.00028209392756607551 0.0 1.0e-3 |
108 | |
109 | # ---- |
110 | |
111 | set Toler 0.0 |
112 | set NbCurv 0 |
113 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_7_4 b_8_4 -2d] full Toler NbCurv |
114 | if {${NbCurv} != 1} { |
115 | puts "Error: Number of curves is bad!" |
116 | } |
117 | checkreal TolReached $Toler 2.497244318171703e-005 0.0 1.0e-2 |
118 | |