tests/bugs/modalg_2/bug2785_2

   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 ## (old topology)
  12 ## (cut)
  13 ## (fuse)
  14 ######################################################
  15
  16 ############# data #############
  17 pcylinder c1 2 10
  18 pcylinder c2 2 2
  19 explode c1 f
  20 explode c2 f
  21 mksurface gs c2_1
  22 trim trgs gs 1 2 2 4
  23 mkface ff trgs
  24 trim trgs gs 0 1 2 4
  25 mkface ff2 trgs
  26
  27 bcut rcut1 c1_1 ff
  28 checkshape rcut1
  29
  30 bcut rcut2 rcut1 ff2
  31 checkshape rcut2
  32
  33 bfuse fuse1 rcut2 ff2
  34 checkshape fuse1
  35
  36 bfuse result fuse1 ff
  37
  38 set square 125.664
  39 set 3dviewer 1
  40