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