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:
parent
5c655dd566
commit
3f912eb289
60
tests/bugs/modalg_7/bug27747
Normal file
60
tests/bugs/modalg_7/bug27747
Normal 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
|
Loading…
x
Reference in New Issue
Block a user