tests/bugs/moddata_2/bug2784_1

   1 puts "============"
   2 puts "OCC2784"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Common and cut operations for two faces gives invalid result
   7 ######################################################
   8 # Common and cut operations for two faces gives invalid result if one of the faces
   9 # has a hole and other face lay in this hole (fill this hole).
  10 ######################################################
  11 ## (new topology)
  12 ## (bcut)
  13 ## (bcommon)
  14 ######################################################
  15
  16 ############# data #############
  17 box b1 10 20 10
  18 box b2 1 1 1
  19 ttranslate b2 5 5 0
  20 explode b1 f
  21 explode b2 f
  22
  23 bcut rcut1 b1_5 b2_5
  24 checkshape rcut1
  25
  26 bcommon result rcut1 b2_5
  27
  28 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
  29
  30 if { $m != 0 } {
  31     puts "Error : square is not right"
  32 }
  33
  34 set 3dviewer 1
  35