mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
f9ffd4f9f3
Strengthening of the criteria of the parallel status of the curves by additional checking if the ends of the curves do not diverge. Test cases for the issue.
22 lines
675 B
Plaintext
Executable File
22 lines
675 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC23706"
|
|
puts "============"
|
|
puts ""
|
|
#########################################################################
|
|
# Cannot project point on curve
|
|
#########################################################################
|
|
|
|
bsplinecurve r3 2 6 1 3 2 1 3 1 4 1 5 1 6 3 2 5 3 1 3 7 3 1 4 8 3 1 4 8 3 1 4 8 3 1 5 9 3 1 9 7 3 1
|
|
bsplinecurve r4 2 6 2 3 2.5 1 3 1 3.5 1 4 1 4.5 3 -1 2 3 1 1 11 3 1 3 9 3 1 3 9 3 1 3 9 3 1 5 7 3 1 7 4 3 1
|
|
|
|
set info [extrema r3 r4]
|
|
|
|
if {[regexp "ext_1" $info]} {
|
|
set dist [lindex [length ext_1] end]
|
|
if { $dist > 4.0e-13 } {
|
|
puts "Error: Extrema distance is too big"
|
|
}
|
|
} else {
|
|
puts "Error: Extrema is not found"
|
|
}
|