Adding test cases from chl grid
[occt.git] / tests / thrusection / specific / E6
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 #
13 #
14 #
15 #
16 #                     v22                    v21
17 #                     *----------------------*
18 #                    /                        \
19 #                   /                          \
20 #                  / v12                   v11  \
21 #                 /  *---------------------*     \
22 #                /   |                     |      \
23 #               /    |                     |       \
24 #              * v23 |  * v3               |    v28 *
25 #              |     |  | \                |        |
26 #              |     |  |   \              |        |
27 #              |     |  |     \            |        |
28 #              |     |  |       \          |        |
29 #              |     |  |       /* v2      |        |
30 #              |     |  |     /            |        |
31 #              |     |  |   /              |        |        * v4, v5
32 #              |     |  | /                |        |
33 #              |     |  *                  |        |
34 #              |     |  v1                 |        |
35 #              |     |                     |        |
36 #              |     |                     |        |
37 #              * v24 |                     |    v27 *
38 #               \    |                     |       /
39 #                \   *---------------------*      /
40 #                 \  v13                   v14   /
41 #                  \                            /
42 #                   \                          /
43 #                    \ v25                v26 /
44 #                     *----------------------*
45 #
46 #
47 #
48
49 set z1 40
50 set z2 20
51 set z3 0
52 set z4 100
53
54 # begining vertex
55 vertex v4 55 2.5 ${z4}
56 # ending vertex
57 vertex v5 55 2.5 -${z4}
58
59 # top triangle
60 vertex v1 0 0 ${z1}
61 vertex v2 5 5 ${z1}
62 vertex v3 0 10 ${z1}
63
64 edge e1 v1 v2
65 edge e2 v2 v3
66 edge e3 v3 v1
67
68 wire w1 e1 e2 e3
69
70 # top quadrangle
71 vertex v11 15 15 ${z2}
72 vertex v12 -15 15 ${z2}
73 vertex v13 -15 -15 ${z2}
74 vertex v14 15 -15 ${z2}
75
76 edge e11 v11 v12
77 edge e12 v12 v13
78 edge e13 v13 v14
79 edge e14 v14 v11
80
81 wire w11 e11 e12 e13 e14
82  
83 # top octagon
84 vertex v21 25 25 ${z3}
85 vertex v22 -25 25 ${z3}
86 vertex v23 -30 10 ${z3}
87 vertex v24 -30 -10 ${z3}
88 vertex v25 -25 -25 ${z3}
89 vertex v26 25 -25 ${z3}
90 vertex v27 30 -10 ${z3}
91 vertex v28 30 10 ${z3}
92
93 edge e21 v21 v22
94 edge e22 v22 v23
95 edge e23 v23 v24
96 edge e24 v24 v25
97 edge e25 v25 v26
98 edge e26 v26 v27
99 edge e27 v27 v28
100 edge e28 v28 v21
101
102 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
103
104 # bottom quadrangle
105 vertex v111 15 15 -${z2}
106 vertex v112 -15 15 -${z2}
107 vertex v113 -15 -15 -${z2}
108 vertex v114 15 -15 -${z2}
109
110 edge e111 v111 v112
111 edge e112 v112 v113
112 edge e113 v113 v114
113 edge e114 v114 v111
114
115 wire w111 e111 e112 e113 e114
116
117 # bottom triangle
118 vertex v101 0 0 -${z1}
119 vertex v102 5 5 -${z1}
120 vertex v103 0 10 -${z1}
121
122 edge e101 v101 v102
123 edge e102 v102 v103
124 edge e103 v103 v101
125
126 wire w101 e101 e102 e103
127
128
129 #
130 set issolid 1
131 set isruled 1
132 thrusections result ${issolid} ${isruled} v4 w1 w11 w21 w111 w101 v5
133
134
135 set square 12651.5
136
137
138 set nb_v_good 57
139 set nb_e_good 121
140 set nb_w_good 66
141 set nb_f_good 66
142 set nb_sh_good 1
143 set nb_sol_good 1
144 set nb_compsol_good 0
145 set nb_compound_good 0
146 set nb_shape_good 312
147
148
149
150 set index [lsearch [whatis result] Closed]
151 if {$index == -1} {
152   puts "Faulty ${BugNumber} : result is not Closed shape"
153   
154 }
155
156 set 3dviewer 0
157