tests/bugs/modalg_7/bug29502

   1 puts "========"
   2 puts "OCC29502"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Improve performance of the ShapeUpgrade_UnifySameDomain::UnifyEdges() method
   7 #################################################
   8
   9 # create cylinder
  10 cylinder c 0 0 0 0 0 1 10
  11 mkface f c 0 2*pi -10 10
  12
  13 # split seam edge by the vertex
  14 vertex v 10 0 0
  15 bclearobjects
  16 bcleartools
  17 baddobjects f
  18 baddtools v
  19 bfillds
  20 bsplit r
  21
  22 checknbshapes r -vertex 3 -edge 4 -wire 1 -face 1
  23
  24 # perform unification of the seam edge:
  25 # the split vertex should be removed
  26 unifysamedom result r
  27
  28 checkshape result
  29 checkprops result -equal f
  30 checknbshapes result -ref [nbshapes f]
  31