0031304: Configuration - TKACIS building failure due to duplicated symbol GeomFillFus...
[occt.git] / tests / bugs / modalg_6 / bug26310_4
CommitLineData
7365fad6 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
261b7d9e 12bclearobjects
13bcleartools
14baddobjects b2
15baddtools b1
16bfillds
7365fad6 17
261b7d9e 18
19# SECTION
20bbop rr 4
21
22# CUT 1-2
23bbop res1 2
24
25# CUT 2-1
26bbop res2 3
7365fad6 27
28checkshape res1
29checkshape res2
30
31set log1 [bopargcheck res1 #F]
32set log2 [bopargcheck res2 #F]
33
261b7d9e 34if { [string compare -nocase $log1 "Shape(s) seem(s) to be valid for BOP.\n"] } {
35 puts "ERROR. res1 is not valid for BOP"
7365fad6 36}
37
261b7d9e 38if { [string compare -nocase $log2 "Shape(s) seem(s) to be valid for BOP.\n"] } {
39 puts "ERROR. res2 is not valid for BOP"
7365fad6 40}
41
261b7d9e 42checknbshapes res1 -wire 6 -face 6 -shell 1 -solid 1 -t
43checknbshapes res2 -wire 6 -face 6 -shell 1 -solid 1 -t
7365fad6 44
45smallview
46donly res1
47fit
48xwd ${imagedir}/${casename}_1.png
261b7d9e 49donly rr
7365fad6 50fit
261b7d9e 51donly res2
7365fad6 52xwd ${imagedir}/${casename}_2.png