Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug5805_12
1 puts "============"
2 puts "OCC5805"
3 puts "============"
4
5 #######################################################################
6 # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
7 #######################################################################
8
9 set BugNumber OCC5805
10
11 # ellipse1
12 ellipse ell 10 0 0 1 0 0 5 3
13 mkedge ee1 ell
14 wire UpCover ee1
15
16 # ellipse2
17 copy ee1 ee2
18 ttranslate ee2 -20 0 0
19 wire BottomCover ee2
20
21 set issolid 1
22 set isruled 1
23 if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
24    puts "Faulty ${BugNumber} : thrusections is wrong"
25    
26 }
27
28 set distance -0.5
29 catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
30
31
32 set square 982.254
33
34 set nb_v_good 3
35 set nb_e_good 5
36 set nb_w_good 6
37 set nb_f_good 4
38 set nb_sh_good 1
39 set nb_sol_good 1
40 set nb_compsol_good 0
41 set nb_compound_good 0
42 set nb_shape_good 20
43
44
45 set index [lsearch [whatis s] Closed]
46 if {$index == -1} {
47   puts "Faulty ${BugNumber} : s is not Closed shape"
48   
49 }
50
51 set index [lsearch [whatis result] Closed]
52 if {$index == -1} {
53   puts "Faulty ${BugNumber} : result is not Closed shape"
54   
55 }
56
57
58 set 2dviewer 0