0026684: Big tolerance values of the intersection curves
authorski <ski@opencascade.com>
Tue, 22 Dec 2015 11:23:09 +0000 (14:23 +0300)
committerbugmaster <bugmaster@opencascade.com>
Wed, 13 Jan 2016 12:19:06 +0000 (15:19 +0300)
Added test cases for issue #26684

tests/bugs/modalg_6/bug26684_1 [new file with mode: 0644]
tests/bugs/modalg_6/bug26684_2 [new file with mode: 0644]

diff --git a/tests/bugs/modalg_6/bug26684_1 b/tests/bugs/modalg_6/bug26684_1
new file mode 100644 (file)
index 0000000..58e0cb6
--- /dev/null
@@ -0,0 +1,31 @@
+puts "============"
+puts "OCC26684"
+puts "============"
+puts ""
+###################################################
+## Big tolerance values of the intersection curves
+###################################################
+
+brestore [locate_data_file CTO909_IR2_TuyoPipe20.brep] b1
+brestore [locate_data_file CTO909_IR2_sphere1_20.brep] b2
+
+explode b1 f; copy b1_1 f1
+explode b2 f; copy b2_1 f2
+
+smallview
+donly f1 f2
+fit
+
+# 1 case
+set bop_info [bopcurves f1 f2]
+regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info full Tolerance
+
+checkreal "Reached tolerance" ${Tolerance} 5.8654166482879483e-009 1.e-7 0
+
+# 2 case
+set bop_info_2d [bopcurves f1 f2 -2d]
+regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info_2d full Tolerance_2d
+
+checkreal "Reached tolerance" ${Tolerance_2d} 1.4569392656749484e-008 1.e-7 0
+
+set only_screen_axo 1
diff --git a/tests/bugs/modalg_6/bug26684_2 b/tests/bugs/modalg_6/bug26684_2
new file mode 100644 (file)
index 0000000..3e21c33
--- /dev/null
@@ -0,0 +1,31 @@
+puts "============"
+puts "OCC26684"
+puts "============"
+puts ""
+###################################################
+## Big tolerance values of the intersection curves
+###################################################
+
+brestore [locate_data_file IR2_TuyoPipeBSpline_20_draw2.brep] b1
+brestore [locate_data_file IR2_sphere2_20.brep] b2
+
+explode b1 f; copy b1_1 f1
+explode b2 f; copy b2_1 f2
+
+smallview
+donly f1 f2
+fit
+
+# 1 case
+set bop_info [bopcurves f1 f2]
+regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info full Tolerance
+
+checkreal "Reached tolerance" ${Tolerance} 1.2530391548405894e-008 1.e-7 0
+
+# 2 case
+set bop_info_2d [bopcurves f1 f2 -2d]
+regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info_2d full Tolerance_2d
+
+checkreal "Reached tolerance" ${Tolerance_2d} 1.8067758590039568e-005 0 1.e-2
+
+set only_screen_axo 1