1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
box b1 10 2 2
box b2 5 0 0 5 5 5
box b3 6 0 0 1 1 1
bclearobjects
bcleartools
baddobjects b1
baddtools b2 b3
bfillds
bbuild r
buildbop r0 -o b1 -t b2 b3 -op common
buildbop r1 -o b1 -t b2 b3 -op fuse
buildbop r2 -o b1 -t b2 b3 -op cut
buildbop r3 -o b1 -t b2 b3 -op tuc
foreach r {r0 r1 r2 r3} {
checkshape $r
if {![regexp "OK" [bopcheck $r]]} {
puts "Error: shape is self-interfered"
}
}
checkprops r0 -s 56 -v 20
checknbshapes r0 -vertex 16 -edge 25 -wire 12 -face 12 -shell 2 -solid 2
checkprops r1 -s 190 -v 145
checknbshapes r1 -vertex 24 -edge 38 -wire 16 -face 16 -shell 1 -solid 1
checkprops r2 -s 48 -v 20
checknbshapes r2 -vertex 8 -edge 12 -wire 6 -face 6 -shell 1 -solid 1
checkprops r3 -s 142 -v 105
checknbshapes r3 -vertex 12 -edge 18 -wire 8 -face 8 -shell 1 -solid 1
|
