0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / modalg_2 / bug21722
1 puts "============"
2 puts "OCC21722"
3 puts "============"
4 puts ""
5 #######################################################################
6 # The operation Section produces non-complete result.
7 #######################################################################
8
9 set BugNumber OCC21722
10
11 puts "Load shape ..."
12 restore [locate_data_file OCC21722.brep] g 
13
14 puts "Prepare first shape ..."
15 explode g
16 copy g_1 b1
17
18 puts "Prepare second shape ..."
19 copy g_2 b2
20
21 puts "Prepare boolean operation ..."
22 bop b1 b2
23
24 puts "Start boolean operation ..."
25 bopsection result
26 puts "Finish boolean operation ..."
27
28 checkprops result -l 1.91376 
29 checkshape result 
30 checksection result
31
32 checknbshapes result -vertex 4 -edge 2 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 7
33
34 checkview -display result -2d -path ${imagedir}/${test_image}.png