From 83bb023e8d0a51e7914f1d18bc8f22971f8bfbfa Mon Sep 17 00:00:00 2001 From: ski Date: Tue, 22 Dec 2015 14:23:09 +0300 Subject: [PATCH] 0026684: Big tolerance values of the intersection curves Added test cases for issue #26684 --- tests/bugs/modalg_6/bug26684_1 | 31 +++++++++++++++++++++++++++++++ tests/bugs/modalg_6/bug26684_2 | 31 +++++++++++++++++++++++++++++++ 2 files changed, 62 insertions(+) create mode 100644 tests/bugs/modalg_6/bug26684_1 create mode 100644 tests/bugs/modalg_6/bug26684_2 diff --git a/tests/bugs/modalg_6/bug26684_1 b/tests/bugs/modalg_6/bug26684_1 new file mode 100644 index 0000000000..58e0cb62f7 --- /dev/null +++ b/tests/bugs/modalg_6/bug26684_1 @@ -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 index 0000000000..3e21c334b5 --- /dev/null +++ b/tests/bugs/modalg_6/bug26684_2 @@ -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 -- 2.39.5