mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
29 lines
804 B
Plaintext
29 lines
804 B
Plaintext
puts "============"
|
|
puts "OCC27467"
|
|
puts "============"
|
|
puts ""
|
|
#########################################################################
|
|
# Modeling Algorithms - class Extrema_ExtCC2d does not find extremum between two intersecting lines
|
|
# Analytical solver can not work on 2 lines.
|
|
#########################################################################
|
|
|
|
line l1 0 0 0 -1
|
|
trim l1 l1 0 23
|
|
|
|
line l2 1 -9.5 -1 -0
|
|
trim l2 l2 0 2
|
|
set info [2dextrema l1 l2]
|
|
|
|
# Number of solutions check.
|
|
# There should be only one solution - intersection point.
|
|
if {[llength $info] != 4} {
|
|
ERROR: Incorrect number of solutions.
|
|
}
|
|
|
|
# Check distance.
|
|
regexp "dist 1: +(\[-0-9.+eE\]+)" $info full aDist
|
|
set absTol 1.0e-9
|
|
set relTol 0.001
|
|
set aDist_Exp 0.0
|
|
checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol
|