tests/lowalgos/extcc/bug29712_19

   1 puts "========"
   2 puts "OCC29712"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Extrema algorithm raises exception
   7 #################################################
   8
   9 # Curves c1 and c2 are concentric circles.
  10 # However, they are bounded (trimmed) curves
  11 # and are shifted relatively to each other.
  12
  13 set ExpDist 50.0
  14
  15 circle c1 0 0 0 0 0 1 100
  16 circle c2 0 0 0 0 0 1 50
  17 trim c1 c1 0 3
  18 trim c2 c2 -3.4 -1.4
  19
  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
  22
  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