OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-18 14:27:39 +03:00
Code Activity

0027059: Point->Curve Projection/Extrema fails [OCCT 7 only]

Browse Source 
Add check to run extrema search when necessary condition of extrema is true (small value of first derivative of objective function).
Test case added.
This commit is contained in:
aml
2016-01-11 12:21:01 +03:00
committed by bugmaster
parent d868695fc0
commit c5a10cf717
2 changed files with 66 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
tests/bugs/moddata_3/bug27059 Normal file
View File

@@ -0,0 +1,57 @@
puts "================"
puts "0027059"
puts "================"
puts ""
##############################################################
# Point->Curve Projection/Extrema fails.
# (No extrema found)
##############################################################
set absTol 1.0e-6
set relTol 0.001
set expectedLength 1.0e-6
set exp_x 12.700000
set exp_y 16.8949999999593
set exp_z 0.534684851975074
restore [locate_data_file bug27059.brep] aC
explode aC
mkcurve curve aC_2
# case 1: Curve
# existence check
set info1 [proj curve 12.699999 16.8949999999593 0.534684851975074]
if {![regexp {ext_1} $info1]} {
puts "Error: No extrema found in case 1"
}
# length check
set case1Info [length ext_1]
regexp {The length ext_1 is ([-0-9.+eE]+)} $case1Info full case1Length
checkreal "case 1 extrema value" $case1Length $expectedLength $absTol $relTol
# case 2: Curve
# existence check
set info2 [proj curve 12.700001 16.8949999999593 0.534684851975074]
if {![regexp {ext_1} $info2]} {
puts "Error: No extrema found in case 2"
}
# length check
set case2Info [length ext_1]
regexp {The length ext_1 is ([-0-9.+eE]+)} $case2Info full case2Length
checkreal "case 2 extrema value" $case2Length $expectedLength $absTol $relTol
#case 3: Point
# existence check
set info3 [proj curve 12.700000 16.8949999999593 0.534684851975074]
if {![regexp {ext_1} $info3]} {
puts "Error: No extrema found in case 3"
}
# point coords check
set case3Info [dump ext_1]
regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $case3Info full x y z
checkreal "case 3 coord X" $x $exp_x $absTol $relTol
checkreal "case 3 coord Y" $y $exp_y $absTol $relTol
checkreal "case 3 coord Z" $z $exp_z $absTol $relTol