1puts "============"
2puts "OCC26874"
3puts "============"
4puts ""
5#######################################################################
6# Implementation of the Partition operator in OCCT
7#######################################################################
8
9# split plate by set of cylinders
10
11box plate 100 100 1
12
13bclearobjects
14bcleartools
15baddobjects plate
16
17pcylinder p 1 11
18
19compound cylinders
20
21for {set i 0} {$i < 101} {incr i 5} {
22  for {set j 0} {$j < 101} {incr j 5} {
23    copy p p1;
24    ttranslate p1 $i $j -5;
25    add p1 cylinders
26  }
27}
28
29baddtools cylinders
30
31bfillds
32bsplit result
33
34checkshape result
35checknbshapes result -solid 442
36checkprops result -v 10000