tests/bugs/modalg_6/bug26576_1

   1 puts "============"
   2 puts "OCC26576"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Wrong result obtained by intersection algorithm.
   7 ###############################
   8
   9 pload DCAF
  10
  11 Open [locate_data_file bug26576_study1_new_geom.cbf] D
  12
  13 GetShape D 0:1:484:1:1:2 b1
  14 GetShape D 0:1:478:1:1:2 b2
  15
  16 explode b1 f
  17 explode b2 f
  18 copy b1_1 b1
  19 copy b2_2 b2
  20 donly b1 b2
  21
  22 #Wrong value of Tolerance Reached.
  23
  24 set log [bopcurves b1 b2 -2d]
  25 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Tolerance_Reached NbCurv
  26
  27 set GoodNbCurv 2
  28
  29 set expected_Tolerance_Reached 1.2482990218170969e-007
  30 set tol_abs_Tolerance_Reached 1.0e-7
  31 set tol_rel_Tolerance_Reached 0.0
  32 checkreal "Tolerance Reached" ${Tolerance_Reached} ${expected_Tolerance_Reached} ${tol_abs_Tolerance_Reached} ${tol_rel_Tolerance_Reached}
  33
  34 if {${NbCurv} != ${GoodNbCurv}} {
  35   puts "Error: ${GoodNbCurv} curves are expected but ${NbCurv} are found!"
  36 }
  37
  38 #Overlapping intersection curves.
  39
  40 for {set i 1} {$i < ${NbCurv}} {incr i} {
  41   for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
  42     mkedge e1 c_$i
  43     mkedge e2 c_$j
  44
  45     set coe [checkoverlapedges e1 e2 $Tolerance_Reached]
  46
  47     puts "c_$i<->c_$j: $coe"
  48     if { [regexp "Edges is not overlaped" $coe] != 1 } {
  49       puts "Error: c_$i and c_$j are overlaped"
  50     }
  51   }
  52 }
  53
  54 smallview
  55 fit
  56 checkview -screenshot -2d -path ${imagedir}/${test_image}.png