puts "========"
puts "0031407: Extrema does not process parallel circles correctly"
puts "========"
puts ""

circle c1  0 0 0  0 0 1  5
circle c2  0 0 0  0 0 1  10

trim cc1 c1 0 2
trim cc2 c2 2 4

set res_extrema [extrema cc1 cc2]

if { [regexp "Infinite number of extremas" $res_extrema] == 0} {
  if {[llength $res_extrema] != 1} {
    puts "Error : expected 1 extrema, but found [llength $res_extrema]"
  }
} else {
  puts "Error : Infinite number of extremas is found"
}
