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
|
puts "========"
puts "OCC26798"
puts "========"
puts ""
#######################################################################
# Boolean operations: keep desired cells and boundaries in the result
#######################################################################
smallview
box s1 10 10 10
psphere s2 12
pcylinder s3 10 20
pcone s4 10 0 30
bclearobjects
bcleartools
baddobjects s1 s2 s3 s4
bfillds
bcbuild r
bcremoveall
bcadd result s1 1 -m 1
bcadd result s2 1 -m 2
bcadd result s3 1 -m 3
bcadd result s4 1 -m 4
bcremoveint result
donly result
fit
checkprops result -s 4326.81
|
