0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / modalg_6 / bug22794
1 puts "============"
2 puts "OCC22793"
3 puts "============"
4 puts ""
5 ######################################################
6 # Boolean cut operation hangs computer
7 ######################################################
8
9 restore [locate_data_file bug22793_Positive.brep] p
10 restore [locate_data_file bug22794b.brep] v
11
12 checkshape p
13 tolerance p
14
15 checkshape v
16 tolerance v
17
18 bop p v
19 bopcut result
20
21 checkprops result -s 1.89654e+007 
22 checkshape result
23
24 set nbshapes_expected "
25 Number of shapes in result
26  VERTEX    : 20
27  EDGE      : 30
28  WIRE      : 14
29  FACE      : 14
30  SHELL     : 2
31  SOLID     : 2
32  COMPSOLID : 0
33  COMPOUND  : 1
34  SHAPE     : 83
35 "
36 checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by Boolean cut operation"
37
38 checkview -display result -2d -path ${imagedir}/${test_image}.png