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
76
|
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
#mu4
#fit
compound h1 c1
compound v1 c2
tcopy c1 cc1
tcopy c2 cc2
bcommon int1 cc1 cc2
##########checkshape -top int1
checkshape -top int1
tcopy c1 cc1
tcopy c2 cc2
bcut cut1 cc1 cc2
checkshape -top cut1
tcopy c1 cc1
tcopy c2 cc2
bcut cut2 cc2 cc1
##########checkshape -top cut2
checkshape -top cut2
compound int1 cut1 cut2 comp3
##########checkshape -top comp3
checkshape -top comp3
#donly comp3
tcopy comp3 ccomp3
tcopy h3 ch3
bcommon int2 ccomp3 ch3
##########checkshape -top int2
checkshape -top int2
#donly int2
tcopy comp3 ccomp3
tcopy h3 ch3
bcut cut3 ccomp3 ch3
##########checkshape -top cut3
checkshape -top cut3
#donly cut3
tcopy comp3 ccomp3
tcopy h3 ch3
bcut cut4 ch3 ccomp3
##########checkshape -top cut4
checkshape -top cut4
compound int2 cut3 cut4 result
##########checkshape -top res
checkshape -top result
##########set che [checkshape -top res]
##########
##########set err [lindex $che [expr [llength $che] - 7]]
##########if { $err == "Faulty"} {
########## puts "Faulty OCC693"
##########} else {
########## puts "OCC693 OK "
##########}
set square 33196
set 2dviewer 0
|
