OCCT

puts "============"
puts "OCC29465"
puts "============"
puts ""
#########################################################################
# Regression relation to 691 version: Extrema_ExtCC returns IsParallel equal to true for not parallel curves
#########################################################################

set dist 0.2

restore [locate_data_file bug27371.brep] s
explode s
explode s_1 e
mkcurve c1 s_1_1
explode s_2 e
mkcurve c2 s_2_20

CheckExtResult [extrema c1 c2] $dist
CheckExtResult [extrema c2 c1] $dist

reverse c1
CheckExtResult [extrema c1 c2] $dist
CheckExtResult [extrema c2 c1] $dist

reverse c2
CheckExtResult [extrema c1 c2] $dist
CheckExtResult [extrema c2 c1] $dist

reverse c1
CheckExtResult [extrema c1 c2] $dist
CheckExtResult [extrema c2 c1] $dist