0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / modalg_6 / bug26310_3
1 puts "========"
2 puts "OCC26310"
3 puts "========"
4 puts ""
5 #################################################
6 # Very slow boolean cut operations on cylinders
7 #################################################
8
9 restore [locate_data_file OCC26310-b1.brep] b1 
10 restore [locate_data_file OCC26310-b2.brep] b2 
11
12 bclearobjects
13 bcleartools
14 baddobjects b1
15 baddtools b2
16 bfillds
17
18
19 # SECTION
20 bbop rr 4
21
22 # CUT 1-2
23 bbop res1 2
24
25 # CUT 2-1
26 bbop res2 3
27
28 checkshape res1
29 checkshape res2
30
31 set log1 [bopargcheck res1 #F]
32 set log2 [bopargcheck res2 #F]
33
34 if { [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
38 if { [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
42 checknbshapes res1 -wire 6 -face 6 -shell 1 -solid 1 -t
43 checknbshapes res2 -wire 6 -face 6 -shell 1 -solid 1 -t
44
45 smallview
46 donly rr
47 fit
48 donly res1
49 xwd ${imagedir}/${casename}_1.png
50 donly res2
51 fit
52 xwd ${imagedir}/${casename}_2.png