1puts "============"
2puts "OCC26874"
3puts "============"
4puts ""
5#######################################################################
6# Implementation of the Partition operator in OCCT
7#######################################################################
8
9# split face by set of edges
10
11cylinder cyl 0 0 0 0 0 1 10
12set height 20
13mkface f cyl 0 2*pi -$height $height
14
15bclearobjects
16bcleartools
17baddobjects f
18
19# create tool edges
20compound edges
21
22set nb_uedges 10
23set pi2 [dval 2*pi]
24set ustep [expr $pi2/$nb_uedges]
25for {set i 0} {$i <= $pi2} {set i [expr $i + $ustep]} {
26  uiso c cyl $i
27  mkedge e c -25 25
28  add e edges
29}
30
31set nb_vedges 10
32set vstep [expr 2*$height/$nb_vedges]
33for {set i -20} {$i <= 20} {set i [expr $i + $vstep]} {
34  viso c cyl $i
35  mkedge e c
36  add e edges
37}
38
39baddctools edges
40
41bfillds
42bapisplit result
43
44checkshape result
45checknbshapes result -face 100
46checkprops result -s 2513.27