puts "========"
puts "OCC29712"
puts "========"
puts ""
#################################################
# Extrema algorithm raises exception
#################################################

# Curves c1 and c2 lie on parallel lines.
# However, they are bounded (trimmed) curves
# and are shifted relatively to each other. So,
# perpendicular between these curves does not exist. 

line c1 1 0 0 0 0 1 
line c2 5 0 0 0 0 1
trim c1 c1 -1.0e100 5
trim c2 c2 10 20

if { ![regexp {No solutions!} [extrema c1 c2] ] } {
  puts "Error in Extrema-algorithm"
} else {
  puts "Extrema-algorithm works properly"
}

if { ![regexp {No solutions!} [extrema c2 c1] ] } {
  puts "Error in Extrema-algorithm"
} else {
  puts "Extrema-algorithm works properly"
}
