tests/bugs/modalg_6/bug27310_2

   1 puts "========"
   2 puts "OCC27310"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Huge tolerance obtained in the result of intersection of two cylindrical faces
   7 #################################################
   8
   9 set ExpTol 6.9230965382090094e-006
  10 set GoodNbCurv 2
  11
  12 restore [locate_data_file OCC496a.brep] a
  13 restore [locate_data_file OCC496b.brep] b
  14
  15 explode a f
  16 explode b f
  17
  18 set log [bopcurves a_10 b_4 -2d]
  19
  20 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  21
  22 if {${NbCurv} != ${GoodNbCurv}} {
  23   puts "Error: Number of curves is bad!"
  24 }
  25
  26 checkreal TolReached $Toler $ExpTol 0.0 0.1
  27
  28 smallview
  29 don c_*
  30 fit
  31 disp a_10 b_4
  32
  33 checkview -screenshot -2d -path ${imagedir}/${test_image}.png