mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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
35 lines
1.2 KiB
Plaintext
Executable File
35 lines
1.2 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 c2 2 4 1 3 2 1 3 1 5 3 6 3 1 5 5 1 5 5 1 3 9 1 2 11 1
|
|
set info [2dintersect c1 c2]
|
|
|
|
if { [regexp "Intersection point 1" $info] != 1 } {
|
|
puts "Error : Intersection should have two points"
|
|
} else {
|
|
regexp {Intersection point 1 +: +([-0-9.+eE]+)} $info full p11
|
|
regexp {Intersection point 1 +: +[-0-9.+eE]+ +([-0-9.+eE]+)} $info full p12
|
|
}
|
|
|
|
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 p21 [expr int($p21t)]
|
|
set p22 [expr int($p22t)]
|
|
|
|
if { ${p11} != 5 || ${p12} != 5 || ${p21} != 4 || ${p22} != 7 } {
|
|
puts "Error : Points of intersection have wrong coordinates"
|
|
} else {
|
|
puts "OK: Points of intersection are right"
|
|
}
|