13c0e402 |
1 | box b1 40 10 10 |
2 | box b2 0 0 30 40 10 10 |
3 | box b3 10 10 40 |
4 | box b4 30 0 0 10 10 40 |
5 | |
6 | bclearobjects |
7 | bcleartools |
8 | baddobjects b1 b2 b3 b4 |
9 | bfillds |
10 | bbuild r |
11 | |
12 | # fuse of all |
13 | buildbop r1 -o b1 b2 b3 b4 -op fuse |
14 | buildbop r2 -o b1 b2 b3 -t b4 -op fuse |
15 | buildbop r3 -o b1 b2 -t b3 b4 -op fuse |
16 | buildbop r4 -o b1 -t b2 b3 b4 -op fuse |
17 | buildbop r5 -t b1 b2 b3 b4 -op fuse |
18 | |
19 | foreach r {r1 r2 r3 r4 r5} { |
20 | checkshape $r |
21 | checknbshapes $r -vertex 32 -edge 64 -wire 32 -face 32 -shell 1 -solid 1 |
22 | checkprops $r -s 4800 -v 12000 |
23 | } |
24 | |
25 | # Cut |
26 | buildbop r1 -o b1 b2 -t b3 b4 -op cut |
27 | buildbop r2 -o b1 b2 -t b3 b4 -op tuc |
28 | |
29 | foreach r {r1 r2} { |
30 | checkshape $r |
31 | checknbshapes $r -vertex 16 -edge 24 -wire 12 -face 12 -shell 2 -solid 2 |
32 | checkprops $r -s 2000 -v 4000 |
33 | } |
34 | |
35 | buildbop r1 -o b1 -t b3 b4 -op cut |
36 | buildbop r2 -o b2 -t b3 b4 -op cut |
37 | |
38 | foreach r {r1 r2} { |
39 | checkshape $r |
40 | checknbshapes $r -vertex 8 -edge 12 -wire 6 -face 6 -shell 1 -solid 1 |
41 | checkprops $r -s 1000 -v 2000 |
42 | } |
43 | |
44 | # Common |
45 | buildbop r1 -o b1 b2 -t b3 b4 -op common |
46 | checkshape r1 |
47 | checknbshapes r1 -vertex 32 -edge 48 -wire 24 -face 24 -shell 4 -solid 4 |
48 | checkprops r1 -s 2400 -v 4000 |
49 | |
50 | buildbop r1 -o b1 -t b3 b4 -op common |
51 | buildbop r2 -o b2 -t b3 b4 -op common |
52 | |
53 | checkshape r1 |
54 | checkshape r2 |
55 | |
56 | foreach r {r1 r2} { |
57 | checkshape $r |
58 | checknbshapes $r -vertex 16 -edge 24 -wire 12 -face 12 -shell 2 -solid 2 |
59 | checkprops $r -s 1200 -v 2000 |
60 | } |