0029807: [Regression to 7.0.0] Impossible to cut cone from prism
[occt.git] / tests / bugs / modalg_2 / bug20964_5
1 puts "============"
2 puts "OCC20964 Wrong result of cut operation for given shapes"
3 puts "============"
4 puts ""
5
6 restore [locate_data_file OCC20964_revsolid.brep] b1 
7 restore [locate_data_file OCC20964_sphere.brep] b2 
8
9 bclearobjects
10 bcleartools
11 baddobjects b1
12 baddtools b2
13 bfillds
14
15 # CUT 2-1
16 bbop result 3
17
18 checkprops result -s 12102.9
19 checkshape result
20
21 set NbShapesRef "
22 Number of shapes in .*
23  VERTEX : 6
24  EDGE : 9
25  WIRE : 7
26  FACE : 7
27  SHELL : 2
28  SOLID : 2
29  COMPSOLID : 0
30  COMPOUND : 1
31  SHAPE : 34
32 "
33
34 checknbshapes result -ref $NbShapesRef
35
36 checkmaxtol result -ref 0.013928665225777443
37
38 checkview -display result -2d -path ${imagedir}/${test_image}_axo.png
39
40 vdisplay result
41 vsetdispmode 1
42 vsetcolor result red
43 vdisplay b1
44 vsettransparency b1 0.5
45
46 vviewparams -scale 11.5636 -proj 0.296876 -0.306332 0.904447 -up -0.63687 0.642216 0.426562 -at 120.352 250.434 3.97104e-006 -eye 147.307 222.621 82.1187
47
48 if { [string compare "" [tricheck result] ] } {
49   puts "Error in triangulation"
50 }
51
52 checkview -screenshot -3d -path ${imagedir}/${test_image}_shade.png