0029502: Improve performance of the ShapeUpgrade_UnifySameDomain::UnifyEdges() method
[occt.git] / 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 explode r f
22
23 # perform unification of the seam edge:
24 # the split vertex should be removed
25 unifysamedom result r_1
26
27 checkshape result
28 checkprops result -equal f
29 checknbshapes result -ref [nbshapes f]
30