tests/lowalgos/extcc/bug29712_8

   1 puts "========"
   2 puts "OCC29712"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Extrema algorithm raises exception
   7 #################################################
   8
   9 # Extrema between parallel lines
  10
  11 line c1 1 2 3 0 1 0
  12 line c2 10 9 8 0 1 0
  13 trim c1 c1 -100 200
  14
  15 regexp {Infinite number of extremas, distance = +([-0-9.+eE]+)} [extrema c1 c2] full aDist1
  16 checkreal Distance $aDist1 [expr sqrt(106.0)] 0.0 1.0e-8
  17
  18 regexp {Infinite number of extremas, distance = +([-0-9.+eE]+)} [extrema c2 c1] full aDist2
  19 checkreal Distance $aDist2 [expr sqrt(106.0)] 0.0 1.0e-8