tests/bugs/modalg_2/bug2785_1

   1 puts "============"
   2 puts "OCC2785"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Cut and fuse operations for two faces that share same domain give invalid result
   7 ######################################################
   8 # Cut and fuse operations for two faces that share same domain gives invalid
   9 # result, if one face has a hole and other face touches a boundary of this hole.
  10 ######################################################
  11 ## (new topology)
  12 ## (bcut)
  13 ## (bop)
  14 ## (boptuc)
  15 ## (bfuse)
  16 ######################################################
  17
  18 ############# data #############
  19 pcylinder c1 2 10
  20 pcylinder c2 2 2
  21 explode c1 f
  22 explode c2 f
  23 mksurface gs c2_1
  24 trim trgs gs 1 2 2 4
  25 mkface ff trgs
  26 trim trgs gs 0 1 2 4
  27 mkface ff2 trgs
  28
  29 bcut rcut1 c1_1 ff
  30 checkshape rcut1
  31
  32 bop ff2 rcut1
  33 boptuc rcut2
  34 checkshape rcut2
  35
  36 bfuse fuse1 rcut2 ff2
  37 checkshape fuse1
  38
  39 bfuse result fuse1 ff
  40
  41 set square 125.664
  42 set 3dviewer 1