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