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

# Curves c1 and c2 are concentric circles.
# However, they are bounded (trimmed) curves
# and are shifted relatively to each other.

set ExpDist 150.0

circle c1 0 0 0 0 0 1 100
lmirror c1 0 0 0 1 0 0 
circle c2 0 0 0 0 0 1 50 
trim c1 c1 3 6.5 
trim c2 c2 4 6 

extrema c1 c2

if { ![isdraw ext_1 ] } {
  puts "Error in Extrema-algorithm"
} else {
  puts "Extrema-algorithm works properly"
}

renamevar ext_1 e1
extrema c2 c1

if { ![isdraw ext_1 ] } {
  puts "Error in Extrema-algorithm"
} else {
  puts "Extrema-algorithm works properly"
}