tests/bugs/modalg_1/bug12507

   1 puts "============"
   2 puts "OCC12507"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Wrong result of fuse operation
   7 #######################################################################
   8
   9 puts "First shape ..."
  10 pcylinder c 3 3
  11 explode c e
  12
  13 puts "Second shape ..."
  14 tcopy c_3 e3
  15 ttranslate e3 0 6 0
  16
  17 bop c_3 e3
  18 bopfuse result
  19
  20 checknbshapes result -vertex 3 -edge 4 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8
  21 set 2dviewer 0