mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
cd803dcd59
Sometimes the algorithm of Walking-line creation finds points out of the domain. Some such places have been detected and fixed in frame of this issue.
57 lines
1.5 KiB
Plaintext
57 lines
1.5 KiB
Plaintext
puts "========"
|
|
puts "OCC29103"
|
|
puts "========"
|
|
puts ""
|
|
#################################################
|
|
# No intersection curve between faces if starting points are given
|
|
#################################################
|
|
|
|
set MaxTolReached 2.0e-7
|
|
set GoodNbCurv 1
|
|
set ExpLength 0.074141742883251954
|
|
|
|
restore [locate_data_file bug29073_M6.brep] a
|
|
restore [locate_data_file bug29073_Shell.brep] b
|
|
explode a f
|
|
explode b f
|
|
|
|
don b_2
|
|
axo
|
|
fit
|
|
disp a_6
|
|
|
|
set log1 [bopcurves a_6 b_2 -2d]
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png
|
|
checklength c_1 -l $ExpLength
|
|
|
|
don b_2
|
|
axo
|
|
fit
|
|
disp a_6
|
|
|
|
set log2 [bopcurves a_6 b_2 -2d -p -0.55478319275098653 1.2919191091235780 0.80333089657224976 0.67079577554162440 -p -0.62451407353846222 1.2667484772947102 0.82894736842100003 0.70523311453721027]
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}_2.png
|
|
checklength c_1 -l $ExpLength
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log1} full Toler1 NbCurv1
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log2} full Toler2 NbCurv2
|
|
|
|
if {$Toler1 > $MaxTolReached} {
|
|
puts "Error: Big tolerance is returned by intersector w/o start points"
|
|
}
|
|
|
|
if {$Toler2 > $MaxTolReached} {
|
|
puts "Error: Big tolerance is returned by intersector with start points"
|
|
}
|
|
|
|
if {$NbCurv1 != $GoodNbCurv} {
|
|
puts "Error: Please check NbCurves for intersector w/o start points"
|
|
}
|
|
|
|
if {$NbCurv2 != $GoodNbCurv} {
|
|
puts "Error: Please check NbCurves for intersector with start points"
|
|
}
|
|
|