5 #################################################
6 # Regression vs 6.7.1: General Fuse operation fails to fuse the solids
7 #################################################
9 # Before the fix, EMPTY result (no points, no curves)
10 # was returned in every considered case.
12 restore [locate_data_file bug27856_int_solids.brep] b
16 # first pair of solids
22 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_1_2 b_2_2 -2d] full Toler NbCurv
24 puts "Error: Number of curves is bad!"
26 checkreal TolReached $Toler 0.00026943844817627679 0.0 1.0e-3
32 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_1_4 b_2_4 -2d] full Toler NbCurv
34 puts "Error: Number of curves is bad!"
36 checkreal TolReached $Toler 6.5039065434503992e-005 0.0 1.0e-2
40 # second pair of solids
49 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_3_2 b_4_2 -2d] full Toler NbCurv
51 puts "Error: Number of curves is bad!"
53 checkreal TolReached $Toler 0.00030603795647549098 0.0 1.0e-3
59 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_3_4 b_4_4 -2d] full Toler NbCurv
61 puts "Error: Number of curves is bad!"
63 checkreal TolReached $Toler 0.00029242900088525842 0.0 1.0e-3
67 # third pair of solids
76 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_5_2 b_6_2 -2d] full Toler NbCurv
78 puts "Error: Number of curves is bad!"
80 checkreal TolReached $Toler 2.0312181042800029e-005 0.0 1.0e-2
86 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b_5_4 b_6_4 -2d] full Toler NbCurv
88 puts "Error: Number of curves is bad!"
90 checkreal TolReached $Toler 0.00023415774730871651 0.0 1.0e-3
94 # fourth pair of solids
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!"
107 checkreal TolReached $Toler 0.00028209392756607551 0.0 1.0e-3
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!"
117 checkreal TolReached $Toler 2.497244318171703e-005 0.0 1.0e-2