tests/bugs/modalg_6/bug26080

   1 puts "============"
   2 puts "OCC26080"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Wrong result obtained by General Fuse operator.
   7 ###############################
   8
   9 restore [locate_data_file bug26080_qef001.brep] q
  10
  11 explode q
  12 copy q_1 b1
  13 copy q_2 b2
  14
  15 bclearobjects
  16 bcleartools
  17 baddobjects b1 b2
  18
  19 bfillds
  20 bbuild result
  21
  22 set square 1.36058e+06
  23
  24 set nbshapes_expected "
  25 Number of shapes in shape
  26  VERTEX    : 7
  27  EDGE      : 6
  28  WIRE      : 1
  29  FACE      : 1
  30  SHELL     : 0
  31  SOLID     : 0
  32  COMPSOLID : 0
  33  COMPOUND  : 1
  34  SHAPE     : 16
  35 "
  36 checknbshapes result ${nbshapes_expected} 1 "Result obtained by General Fuse operator"
  37
  38 set 3dviewer 1