Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug5805_9
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 {} $calcul $type }
30
31
32 set square 495.635
33
34 set nb_v_good 2
35 set nb_e_good 3
36 set nb_w_good 3
37 set nb_f_good 3
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 13
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