tests/bugs/modalg_7/bug32874_3

   1 puts "================================================="
   2 puts "0032874: IsParallel() method of Extrema_ExtCC does not give same results in OCC 7.6.0 vs OCC 7.5.0"
   3 puts "================================================="
   4 puts ""
   5
   6 set radius 0.001
   7 set distExpected 0.00001
   8 circle c1 0 0 0 $radius
   9 circle c2 0 0 0 $radius+$distExpected
  10
  11 set start {0.0 0.5*pi pi 1.5*pi 2.0*pi}
  12 set delta {pi/4.0 pi/3.0 pi/2.0 0.55*pi 0.99*pi pi 1.1*pi}
  13
  14 foreach f $start {
  15   foreach d $delta {
  16     trim cc1 c1 $f $f+$d
  17     trim cc2 c2 $f $f+$d
  18
  19     set extr [extrema cc1 cc2]
  20     if {[regexp {Infinite number of extremas, distance = ([-0-9.+eE]+)} $extr full dist]} {
  21       if {[expr abs($dist - $distExpected)] < 1.e-7} {
  22         puts "OK"
  23       } else {
  24         puts "Error: wrong distance $dist instead of $distExpected expected"
  25       }
  26     } else {
  27       puts "Error: non-parallel curves"
  28     }
  29   }
  30 }