tests/bugs/modalg_6/bug26098

   1 puts "============"
   2 puts "OCC26098"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## The result of General Fuse operation is self-interfered shape
   7 ###############################
   8
   9 restore [locate_data_file bug26098_c.brep ] c
  10
  11 explode c
  12
  13 bclearobjects
  14 bcleartools
  15 baddobjects c_1
  16 baddtools c_2 c_3 c_4 c_5
  17
  18 bfillds
  19 bbuild result
  20
  21 set info [bopcheck result]
  22
  23 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
  24     puts "Error : The result of General Fuse operation is self-interfered shape"
  25 }
  26
  27 set square 173.444
  28
  29 set nbshapes_expected "
  30 Number of shapes in shape
  31  VERTEX    : 230
  32  EDGE      : 400
  33  WIRE      : 196
  34  FACE      : 185
  35  SHELL     : 20
  36  SOLID     : 20
  37  COMPSOLID : 0
  38  COMPOUND  : 1
  39  SHAPE     : 1052
  40 "
  41
  42 checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by General Fuse operator"
  43
  44 set 3dviewer 1