tests/bugs/modalg_6/bug27766

   1 puts "========"
   2 puts "OCC27766"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Incorrect section curves between attached cylinders
   7 #################################################
   8
   9 set ExpTol 1.0e-7
  10 set GoodNbCurv 3
  11
  12 restore [locate_data_file bug27761_c1.brep] c1
  13 restore [locate_data_file bug27761_c2.brep] c2
  14
  15 set log [bopcurves c1 c2 -2d]
  16
  17 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  18
  19 if {${NbCurv} != ${GoodNbCurv}} {
  20   puts "Error: Number of curves is bad!"
  21 }
  22
  23 checkreal TolReached $Toler $ExpTol 0.0 0.1
  24
  25 smallview
  26 don c_*
  27 fit
  28 disp c1 c2
  29
  30 checkview -screenshot -2d -path ${imagedir}/${test_image}.png