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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
puts "================"
puts "OCC693"
puts "================"
puts ""
###################################################
## The boolean operations give incorrect result if one of shapes is compound
## consisting of several adjoint solids
####################################################
box h1 234 52 0 41 98 40
box v1 241 136 20 31 31 15
box h3 215 120 20 78 15 15
compound h1 c1
compound v1 c2
tcopy c1 cc1
tcopy c2 cc2
bop cc1 cc2
bopcommon int1
checkshape -top int1
tcopy c1 cc1
tcopy c2 cc2
bop cc1 cc2
bopcut cut1
checkshape -top cut1
tcopy c1 cc1
tcopy c2 cc2
bop cc2 cc1
bopcut cut2
checkshape -top cut2
compound int1 cut1 cut2 comp3
checkshape -top comp3
tcopy comp3 ccomp3
tcopy h3 ch3
bop ccomp3 ch3
bopcommon int2
checkshape -top int2
tcopy comp3 ccomp3
tcopy h3 ch3
bop ccomp3 ch3
bopcut cut3
checkshape -top cut3
tcopy comp3 ccomp3
tcopy h3 ch3
bop ch3 ccomp3
bopcut cut4
checkshape -top cut4
compound int2 cut3 cut4 result
checkshape -top result
set square 33196
set 3dviewer 1
|
