mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
34 lines
795 B
Plaintext
34 lines
795 B
Plaintext
puts "================"
|
|
puts "OCC27263"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Regression vs 6.9.1: Exception is raised during intersection of two faces
|
|
#######################################################################
|
|
|
|
set MaxTol 1.e-7
|
|
set GoodNbCurv 1
|
|
|
|
restore [locate_data_file bug27262_cmpd.brep] b
|
|
explode b
|
|
|
|
smallview
|
|
explode b_1 f
|
|
don b_1_27 b_2
|
|
fit
|
|
|
|
set log [bopcurves b_1_27 b_2 -2d]
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+ee]+)\n+([-0-9.+ee]+)} ${log} full Toler NbCurv
|
|
|
|
if {${Toler} > ${MaxTol}} {
|
|
puts "Error: Tolerance is too big!"
|
|
}
|
|
|
|
if {${NbCurv} != ${GoodNbCurv}} {
|
|
puts "Error: Curve Number is bad!"
|
|
}
|
|
|
|
checklength c_1 -l 2.9620641619623407
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png |