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

# Extrema between parallel lines

line c1 0 0 0 1 0 0 
line c2 0 4 0 1 0 0 

trim c1 c1 0 1
trim c2 c2 0 1

regexp {Infinite number of extremas, distance = +([-0-9.+eE]+)} [extrema c1 c2] full aDist1
checkreal Distance $aDist1 4.0 0.0 2.0e-8

regexp {Infinite number of extremas, distance = +([-0-9.+eE]+)} [extrema c2 c1] full aDist2
checkreal Distance $aDist2 4.0 0.0 2.0e-8