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
|
puts "============"
puts "OCC2784"
puts "============"
puts ""
######################################################
# Common and cut operations for two faces gives invalid result
######################################################
# Common and cut operations for two faces gives invalid result if one of the faces
# has a hole and other face lay in this hole (fill this hole).
######################################################
## (new topology)
## (bcut)
## (bcommon)
######################################################
############# data #############
box b1 10 20 10
box b2 1 1 1
ttranslate b2 5 5 0
explode b1 f
explode b2 f
bcut rcut1 b1_5 b2_5
checkshape rcut1
bcommon result rcut1 b2_5
regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
if { $m != 0 } {
puts "Error : square is not right"
}
set 3dviewer 1
|
