tests/bugs/modalg_6/bug27282_2

   1 puts "============"
   2 puts "OCC27282"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## [Regression to 6.9.1] smesh/bugs_00/A6: Cut produces an empty shape
   7 ###############################
   8
   9 set MaxTol 2.1243683206633536e-006
  10 set GoodNbCurv 1
  11
  12 restore [locate_data_file bug27282_cmpd.brep] a
  13 explode a f
  14
  15 smallview
  16 don a_2 a_5
  17 fit
  18
  19 set log [bopcurves a_2 a_5 -2d]
  20
  21 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  22
  23 checkreal ToleranceReached ${Toler} ${MaxTol} 0.0 0.1
  24
  25 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
  26
  27 if {${NbCurv} != ${GoodNbCurv}} {
  28   puts "Error: Number of curves is bad!"
  29
  30   for {set i 1} {$i < ${NbCurv}} {incr i} {
  31     for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
  32       mkedge e1 c_$i
  33       mkedge e2 c_$j
  34
  35       dset dd_val 100.0*${Toler}
  36       distmini dd e1 e2
  37
  38       if { [dval dd_val] > ${Toler} } {
  39         puts "Error: Intersection result is not closed"
  40       }
  41     }
  42   }
  43 } else {
  44   checklength c_1 -l 833.56846557106064
  45 }