1puts "========"
2puts "OCC26310"
3puts "========"
4puts ""
5#################################################
6# Very slow boolean cut operations on cylinders
7#################################################
8
9restore [locate_data_file OCC26310-b1.brep] b1
10restore [locate_data_file OCC26310-b2.brep] b2
11
12bclearobjects
13bcleartools
14baddobjects b1
15baddtools b2
16bfillds
17
18
19# SECTION
20bbop rr 4
21
22# CUT 1-2
23bbop res1 2
24
25# CUT 2-1
26bbop res2 3
27
28checkshape res1
29checkshape res2
30
31set log1 [bopargcheck res1 #F]
32set log2 [bopargcheck res2 #F]
33
34if { [string compare -nocase $log1 "Shape(s) seem(s) to be valid for BOP.\n"] } {
35  puts "ERROR. res1 is not valid for BOP"
36}
37
38if { [string compare -nocase $log2 "Shape(s) seem(s) to be valid for BOP.\n"] } {
39  puts "ERROR. res2 is not valid for BOP"
40}
41
42checknbshapes res1 -wire 6 -face 6 -shell 1 -solid 1 -t
43checknbshapes res2 -wire 6 -face 6 -shell 1 -solid 1 -t
44
45smallview
46donly rr
47fit
48donly res1
49xwd ${imagedir}/${casename}_1.png
50donly res2
51fit
52xwd ${imagedir}/${casename}_2.png
53