0029807: [Regression to 7.0.0] Impossible to cut cone from prism
[occt.git] / tests / bugs / modalg_7 / bug29807_b4a
1 puts "========"
2 puts "0029807: Impossible to cut cone from prism"
3 puts "========"
4 puts ""
5
6 puts "TODO OCC29883 ALL: Error :  is WRONG because number of WIRE entities in shape \"result\" is 10"
7 puts "TODO OCC29883 ALL: Error :  is WRONG because number of FACE entities in shape \"result\" is 10"
8
9 restore [locate_data_file bug29807-obj.brep] b1
10 restore [locate_data_file bug29807-tool.brep] b2
11
12 trotate b2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7 -7.14142842854285 0 -5 
13 trotate b2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7.1414284285428495 7.0000000000000009 -0 20 
14 ttranslate b2 0 0 0.3
15
16 bcut result b1 b2
17 checkshape result
18 checkprops result -v 9465.07 -s 4012.74
19 checknbshapes result -face 9 -wire 9
20
21 if {[regexp "Faulties" [bopargcheck result]]} {
22   puts "Error: bopargcheck has found some faulties in result"
23 }
24
25 vdisplay result
26 vsetdispmode 1
27 vviewparams -scale 52.4803 -proj 0.285421 0.0158136 0.958272 -up -0.810772 0.537155 0.232624 -at 29.6172 13.0268 3.82234 -eye 47.7439 14.0311 64.6808
28
29 checkview -screenshot -3d -path ${imagedir}/${test_image}.png