tests/bugs/modalg_6/bug27302

   1 puts "============"
   2 puts "OCC27302"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Invalid curves number in intersection result
   7 ###############################
   8
   9 set MaxTol 9.9579577516847715e-005
  10 set GoodNbCurv 1
  11
  12 restore [locate_data_file CTO900_pro12913a.rle] a
  13 restore [locate_data_file CTO900_pro12913b.rle] b
  14
  15 explode a f
  16 explode b f
  17
  18 smallview
  19 don a_34 b_9
  20 fit
  21
  22 set log [bopcurves a_34 b_9 -2d]
  23
  24 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  25
  26 checkreal ToleranceReached ${Toler} ${MaxTol} 0.0 0.1
  27
  28 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
  29
  30 if {${NbCurv} != ${GoodNbCurv}} {
  31   puts "Error: Number of curves is bad!"
  32
  33   for {set i 1} {$i < ${NbCurv}} {incr i} {
  34     for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
  35       mkedge e1 c_$i
  36       mkedge e2 c_$j
  37
  38       dset dd_val 100.0*${Toler}
  39       distmini dd e1 e2
  40
  41       if { [dval dd_val] > ${Toler} } {
  42         puts "Error: Intersection result is not closed"
  43       }
  44     }
  45   }
  46 } else {
  47   checklength c_1 -l 86.536841230136204
  48 }