tests/bugs/moddata_3/bug27493

   1 puts "============"
   2 puts "OCC27493"
   3 puts "============"
   4 puts ""
   5 #########################################################################
   6 # [Regression relative to OCCT 7.0.0] Extrema_ExtCC does not set flag "IsParallel" equal to true for the overlapped curves
   7 #########################################################################
   8
   9 restore [locate_data_file bug27493.brep] anEdges
  10 explode anEdges
  11 mkcurve c1 anEdges_1
  12 mkcurve c2 anEdges_2
  13
  14 # Check infinite solutions flag value
  15 set info [extrema c1 c2]
  16 if { [regexp "Infinite number of extremas" ${info}] != 1 } {
  17     puts "Error : Infinite solution flag have incorrect value"
  18 }
  19
  20 # Check extrema distance
  21 regexp {distance = +([-0-9.+eE]+)} $info full aDist
  22 set absTol 1.0e-9
  23 set relTol 0.001
  24 set aDist_Exp 0.0
  25 checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol