Adding test cases from chl grid
[occt.git] / tests / thrusection / specific / A7
1 puts "============"
2 puts "OCC7166"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Improvement of API of ThruSection
7 #######################################################################
8
9 set BugNumber OCC7166
10
11 #
12 #              * v2
13 #             / \
14 #           /     \
15 #         /    *    \
16 #       /    v4, v5   \
17 #     *----------------* v3
18 #     v1
19 #     
20
21 vertex v1 0 0 0
22 vertex v2 5 5 0
23 vertex v3 10 0 0
24
25 vertex v4 5 2.5 20
26 vertex v5 5 2.5 -20
27
28 edge e1 v1 v2
29 edge e2 v2 v3
30 edge e3 v3 v1
31
32 wire w1 e1 e2 e3
33
34 set issolid 0
35 set isruled 0
36 thrusections result ${issolid} ${isruled} v4 w1 v5
37
38
39 set square 646.621
40
41 set nb_v_good 2
42 set nb_e_good 9
43 set nb_w_good 3
44 set nb_f_good 3
45 set nb_sh_good 1
46 set nb_sol_good 0
47 set nb_compsol_good 0
48 set nb_compound_good 0
49 set nb_shape_good 18
50
51
52
53 set index [lsearch [whatis result] Closed]
54 if {$index == -1} {
55   puts "Faulty ${BugNumber} : result is not Closed shape"
56   
57 }
58
59 set 3dviewer 0
60