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.
13 lines
268 B
Plaintext
13 lines
268 B
Plaintext
proc CheckExtResult {info ref_dist} {
|
|
global ext_1
|
|
if {[regexp "ext_1" $info]} {
|
|
set dist [lindex [length ext_1] end]
|
|
if { $dist > $ref_dist } {
|
|
puts "Error: Extrema distance is too big"
|
|
}
|
|
} else {
|
|
puts "Error: Extrema is not found"
|
|
}
|
|
}
|
|
|