tests/bugs/modalg_2/bug2986_1

   1 puts "============"
   2 puts "OCC2986"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Cut&fuse oprs. for 2 toroidal faces, sharing the same domain give invalid result
   7 ######################################################
   8 ## (new topology)
   9 ## (bop)
  10 ## (bopcut)
  11 ## (bfuse)
  12 ######################################################
  13
  14 ############# data #############
  15 ptorus p1 10 4
  16 explode p1 f
  17 mksurface gs p1_1
  18 trim trgs gs 1 2 1 2
  19 mkface ff trgs
  20 ############# testing faces are: p1_1 ff #############
  21
  22 bop p1_1 ff
  23 bopcut rcut1
  24 checkshape rcut1
  25
  26 bfuse result rcut1 ff
  27
  28 set square 1579.81
  29 set 3dviewer 1
  30