1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00

0027747: Incomplete section curves between faces

Added test case bugs/modalg_7/bug27747
This commit is contained in:
apn 2018-02-16 14:54:14 +03:00
parent 5c655dd566
commit 3f912eb289

View File

@ -0,0 +1,60 @@
puts "========"
puts "OCC27747"
puts "========"
puts ""
#################################################
# Incomplete section curves between faces
#################################################
set GoodNbCurv 1
set ToleranceReachedf1f3 6.0605798668789834e-08
set ToleranceReachedf2f3 7.0639332021089653e-08
restore [locate_data_file bug27747_faces.brep] f
explode f
# ----
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f_1 f_3 -2d] full Toler NbCurv
if {${NbCurv} != ${GoodNbCurv}} {
puts "Error: Number of curves is bad!"
}
checkreal TolReached $Toler $ToleranceReachedf1f3 0.0 0.1
# ----
set Toler 0.0
set NbCurv 0
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f_2 f_3 -2d] full Toler NbCurv
if {${NbCurv} != ${GoodNbCurv}} {
puts "Error: Number of curves is bad!"
}
checkreal TolReached $Toler $ToleranceReachedf2f3 0.0 0.1
# ----
settolerance f_1 1.e-7
fixshape f1 f_1
tolerance f1
set Toler 0.0
set NbCurv 0
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f1 f_3 -2d] full Toler NbCurv
if {${NbCurv} != ${GoodNbCurv}} {
puts "Error: Number of curves is bad!"
}
checkreal TolReached $Toler $ToleranceReachedf1f3 0.0 0.1
# ----
settolerance f_2 1.e-7
fixshape f2 f_2
tolerance f2
set Toler 0.0
set NbCurv 0
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f2 f_3 -2d] full Toler NbCurv
if {${NbCurv} != ${GoodNbCurv}} {
puts "Error: Number of curves is bad!"
}
checkreal TolReached $Toler $ToleranceReachedf2f3 0.0 0.1