tests/bugs/modalg_6/bug25890

   1 puts "============"
   2 puts "OCC25890"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Intersection algorithm produces curves overlaped
   7 ###############################
   8
   9 restore [locate_data_file bug25890_f1.brep] f1
  10 restore [locate_data_file bug25890_f2.brep] f2
  11
  12 set log [bopcurves f1 f2]
  13 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  14
  15 if { ${NbCurv} != 5 } {
  16     puts "Error : NbCurv is bad"
  17 }
  18
  19 set nbshapes_expected "
  20 Number of shapes in shape
  21  VERTEX : 0
  22  EDGE : 0
  23  WIRE : 0
  24  FACE : 0
  25  SHELL : 0
  26  SOLID : 0
  27  COMPSOLID : 0
  28  COMPOUND : 1
  29  SHAPE : 1
  30 "
  31
  32 for {set i 1} {$i <= $NbCurv} {incr i} {
  33   for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
  34     puts " Check c_$i and c_$j"
  35     mkedge e1 c_$i
  36     mkedge e2 c_$j
  37     bcommon rr e1 e2
  38     checknbshapes rr -ref "${nbshapes_expected}" -t -m "Partition of 2 shapes"
  39   }
  40 }