0029807: [Regression to 7.0.0] Impossible to cut cone from prism
[occt.git] / tests / bugs / modalg_4 / bug951_4
1 puts "========="
2 puts " OCC951 "
3 puts "========="
4 puts ""
5 ##################################################
6 ##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
7 ##################################################
8 ## (new topology)
9 ## (bopcommon)
10 ## (bopsection)
11 ######################################################
12
13 restore [locate_data_file OCC951_1.brep] b 
14 restore [locate_data_file OCC951_2.brep] a 
15
16 checkshape b
17 checkshape a
18
19 bop b a
20 bopsection result
21
22 set nb_info [nbshapes result]
23 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
24 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
25 regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
26 regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
27 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
28 regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
29 regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
30 regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
31 regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
32 if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
33     puts  " OCC951 : COMMON operation was made PROPERLY"
34 } else {
35     puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
36 }
37
38 checkprops result -l 39.8616 
39 checkshape result 
40 checksection result
41 checkview -display result -3d -path ${imagedir}/${test_image}.png