tests/bugs/modalg_7/bug32874

   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 distExpected 10
   7 circle c1 0 0 0 100
   8 circle c2 0 0 0 100+$distExpected
   9
  10 set nbSteps 72
  11 for {set i 1} {$i < $nbSteps} {incr i} {
  12   trim cc1 c1 0 2.*pi/$nbSteps*$i
  13   trim cc2 c2 0 2.*pi/$nbSteps*$i
  14
  15   set extr [extrema cc1 cc2]
  16   if {[regexp {Infinite number of extremas, distance = ([-0-9.+eE]+)} $extr full dist]} {
  17     if {[expr abs($dist - $distExpected)] < 1.e-7} {
  18       puts "OK"
  19     } else {
  20       puts "Error: wrong distance $dist instead of $distExpected expected"
  21     }
  22   } else {
  23     puts "Error: non-parallel curves"
  24   }
  25 }