mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
faaa95cbe7
Sometimes the algorithm of purging of extra points in the walking line makes enormous difference in distance between two neighbor segments of the line. This badly impacts the quality of approximation result. This patch balances the difference in distances by forbidding deletion of some points. 1. tests/bugs/modalg_6/bug27615 The reason of the correction is explained in the message ~0072580 (see issue #28557). 2. tests/bugs/modalg_7/bug28892* tests/bugs/modalg_7/bug28984 The reason of the correction is explained in the message ~0072583 (see issue #28984).
35 lines
811 B
Plaintext
35 lines
811 B
Plaintext
puts "========"
|
|
puts "OCC29323"
|
|
puts "========"
|
|
puts ""
|
|
#################################################
|
|
# Intersection algorithm produces the curve with oscillation
|
|
#################################################
|
|
|
|
set MaxTolReached 0.15
|
|
set GoodNbCurv 1
|
|
set ExpLength 96.268040111795571
|
|
|
|
restore [locate_data_file bug29323_hb.brep] h
|
|
plane p 0 0 4 0 0 1
|
|
mkface f p -200 200 -200 200
|
|
explode h f
|
|
|
|
set log [bopcurves h_4 f -2d]
|
|
|
|
smallview
|
|
donly c_1
|
|
fit
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png
|
|
checklength c_1 -l $ExpLength
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
|
|
|
if {$Toler > $MaxTolReached} {
|
|
puts "Error: Big tolerance is returned by intersector"
|
|
}
|
|
|
|
if {$NbCurv != $GoodNbCurv} {
|
|
puts "Error: Please check NbCurves for intersector"
|
|
} |