5 #################################################
6 # Extrema algorithm raises exception
7 #################################################
9 # Curves c1 and c2 are concentric circles.
10 # However, they are bounded (trimmed) curves
11 # and are shifted relatively to each other.
15 circle c1 0 0 0 0 0 1 100
16 circle c2 0 0 0 0 0 1 50
20 regexp {Infinite number of extremas, distance = +([-0-9.+eE]+)} [extrema c1 c2] full aDist1
21 checkreal Distance $aDist1 $ExpDist 1.0e-7 0.0
23 regexp {Infinite number of extremas, distance = +([-0-9.+eE]+)} [extrema c2 c1] full aDist2
24 checkreal Distance $aDist2 $ExpDist 1.0e-7 0.0