mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
32ca7a5106
1. Approximation of derivative (by Taylor-series and by three points). 2. Some methods (Degree(), GetType(), D0(), D3(), DN()) are added. 3. Getting of subInterval's boundaries. 4. Algorithm for checking if 1st derivative is equal to zero is amended. 5. Cases are controlled when extrema or Project point do not exist. 6. GetNormal() function for gp_Vec2d was added. 7. Computing of Value, D0, D1, D2 and D3 for offset curves was changed. 8. Limitation of tolerance for derivative computing was added. 9. Methods for computing trihedron in singularity point are added. 10. Test tests/bugs/moddata_3/bug23706 is added. 11. Restriction on the LastParameter for visualization of 3-D curves. Calling PlotCurve(...) function for last interval. 12. LProp package is modified for tangent computing in singularity point (LProp_CLProps, LProp_SLProps). 13. Added test cases for issue. Deleting bad test cases for this fix
38 lines
1.3 KiB
Plaintext
Executable File
38 lines
1.3 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC23706"
|
|
puts "============"
|
|
puts ""
|
|
#########################################################################
|
|
# Cannot project point on curve
|
|
#########################################################################
|
|
|
|
2dbsplinecurve c1 2 5 0 3 0.2 1 0.3 1 0.4 1 0.5 3 2 0 1 3 -1 1 5 5 1 5 5 1 6 8 1 4 7 1
|
|
2dbsplinecurve c3 2 4 1 3 2 1 3 1 5 3 6 3 1 5.001 5.01 1 5.001 5.01 1 3 9 1 2 11 1
|
|
set info [2dintersect c1 c3]
|
|
|
|
if { [regexp "Intersection point 1" $info] != 1 } {
|
|
puts "Error : Intersection should have two points"
|
|
} else {
|
|
regexp {Intersection point 1 +: +([-0-9.+eE]+)} $info full p11t
|
|
regexp {Intersection point 1 +: +[-0-9.+eE]+ +([-0-9.+eE]+)} $info full p12t
|
|
}
|
|
|
|
if { [regexp "Intersection point 2" $info] != 1 } {
|
|
puts "Error : Intersection should have two points"
|
|
} else {
|
|
regexp {Intersection point 2 +: +([-0-9.+eE]+)} $info full p21t
|
|
regexp {Intersection point 2 +: +[-0-9.+eE]+ +([-0-9.+eE]+)} $info full p22t
|
|
}
|
|
|
|
set p11 [expr round($p11t*10000)]
|
|
set p12 [expr round($p12t*10000)]
|
|
set p21 [expr round($p21t*10000)]
|
|
set p22 [expr round($p22t*10000)]
|
|
|
|
if { ${p11} != 50024 || ${p12} != 50072 || ${p21} != 40024 || ${p22} != 70012 } {
|
|
puts "Error : Points of intersection have wrong coordinates"
|
|
} else {
|
|
puts "OK: Points of intersection are right"
|
|
}
|
|
|