e8b9db57 |
1 | puts "========" |
2 | puts "OCC28528" |
3 | puts "========" |
4 | puts "" |
5 | ####################################################################### |
6 | # Make the CellsBuilder algorithm to work with multi-dimensional arguments |
7 | ####################################################################### |
8 | |
9 | puts "Arguments: solid and an edge" |
10 | |
11 | psphere s 10 |
12 | line l 0 0 0 0 1 0 |
13 | mkedge e l -15 15 |
14 | |
15 | bclearobjects |
16 | bcleartools |
17 | baddobjects s e |
18 | bfillds |
19 | bcbuild r |
20 | |
21 | puts "Results" |
22 | |
23 | puts "All split shapes" |
24 | bcaddall result |
25 | checknbshapes result -solid 1 -m "Number of SOLIDs in the result containing all splits" |
26 | checknbshapes result -edge 6 -m "Number of EDGEs in the result containing all splits" |
27 | checkprops result -v 4188.79 -l 112.832 |
28 | |
29 | puts "Cut solid from edge" |
30 | bcremoveall |
31 | bcadd result e 1 s 0 |
32 | checknbshapes result -edge 2 -m "Number of EDGEs in the result of CUT(e, s) operation" |
33 | |
34 | puts "Cut edge from solid" |
35 | bcremoveall |
36 | bcadd result s 1 e 0 |
37 | checknbshapes result -solid 1 -m "Number of SOLIDs in the result of CUT(s, e) operation" |
38 | |
39 | puts "Common between edge and solid" |
40 | bcremoveall |
41 | bcadd result s 1 e 1 |
42 | checknbshapes result -edge 1 -m "Number of EDGEs in the result of COMMON(s, e) operation" |
43 | |
44 | puts "Fuse operation between edge and solid" |
45 | bcremoveall |
46 | bcadd result s 1 -m 1 -u |
47 | bcadd result e 1 s 0 |
48 | checknbshapes result -solid 1 -m "Number of SOLIDs in the result of FUSE(s, e) operation" |
49 | checknbshapes result -edge 6 -m "Number of EDGEs in the result of FUSE(s, e) operation" |