tests/bugs/modalg_6/bug27175

   1 puts "================"
   2 puts "OCC27175"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Intersection algorithm with increased tolerance works incorrect with some shapes
   7 #######################################################################
   8
   9 set ExpectTol 3.002046539399851e-006
  10 set GoodNbCurv 2
  11
  12 plane pl 0.195808075898442 -0.229262227170656 4.05546403129991 0 0 1
  13 psphere s1 pl 0.03101752454
  14 restore [locate_data_file bug27128-Helix_Pipe.brep] s2
  15
  16 explode s1 f
  17 explode s2 f
  18
  19 settolerance s1_1 2.0e-6
  20 settolerance s2_2 2.0e-6
  21 bopcurves s1_1 s2_2 -2d
  22
  23 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves s1_1 s2_2 -2d] full Toler NbCurv
  24
  25 checkreal "Tolerance Reached" ${Toler} ${ExpectTol} 0.0 0.1
  26
  27 if {${NbCurv} != ${GoodNbCurv}} {
  28   puts "Error: Curve Number is bad!"
  29 }