3bea4c16 |
1 | puts "============" |
2 | puts "OCC7166" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Improvement of API of ThruSection |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC7166 |
10 | |
11 | set z1 40 |
12 | set z2 20 |
13 | set z3 0 |
14 | set z4 100 |
15 | |
16 | # spine |
17 | polyline s1 0 0 ${z4} 0 0 -${z4} |
18 | |
19 | # begining vertex |
20 | vertex v4 40 0 ${z4} |
21 | # ending vertex |
22 | vertex v5 40 0 -${z4} |
23 | |
24 | # profile |
25 | # top triangle |
26 | vertex v1 0 0 ${z1} |
27 | vertex v2 5 5 ${z1} |
28 | vertex v3 0 10 ${z1} |
29 | |
30 | edge e1 v1 v2 |
31 | edge e2 v2 v3 |
32 | edge e3 v3 v1 |
33 | |
34 | wire w1 e1 e2 e3 |
35 | |
36 | # top quadrangle |
37 | vertex v11 15 15 ${z2} |
38 | vertex v12 -15 15 ${z2} |
39 | vertex v13 -15 -15 ${z2} |
40 | vertex v14 15 -15 ${z2} |
41 | |
42 | edge e11 v11 v12 |
43 | edge e12 v12 v13 |
44 | edge e13 v13 v14 |
45 | edge e14 v14 v11 |
46 | |
47 | wire w11 e11 e12 e13 e14 |
48 | |
49 | # top octagon |
50 | vertex v21 25 25 ${z3} |
51 | vertex v22 -25 25 ${z3} |
52 | vertex v23 -30 10 ${z3} |
53 | vertex v24 -30 -10 ${z3} |
54 | vertex v25 -25 -25 ${z3} |
55 | vertex v26 25 -25 ${z3} |
56 | vertex v27 30 -10 ${z3} |
57 | vertex v28 30 10 ${z3} |
58 | |
59 | edge e21 v21 v22 |
60 | edge e22 v22 v23 |
61 | edge e23 v23 v24 |
62 | edge e24 v24 v25 |
63 | edge e25 v25 v26 |
64 | edge e26 v26 v27 |
65 | edge e27 v27 v28 |
66 | edge e28 v28 v21 |
67 | |
68 | wire w21 e21 e22 e23 e24 e25 e26 e27 e28 |
69 | |
70 | # bottom quadrangle |
71 | vertex v111 15 15 -${z2} |
72 | vertex v112 -15 15 -${z2} |
73 | vertex v113 -15 -15 -${z2} |
74 | vertex v114 15 -15 -${z2} |
75 | |
76 | edge e111 v111 v112 |
77 | edge e112 v112 v113 |
78 | edge e113 v113 v114 |
79 | edge e114 v114 v111 |
80 | |
81 | wire w111 e111 e112 e113 e114 |
82 | |
83 | # bottom triangle |
84 | vertex v101 0 0 -${z1} |
85 | vertex v102 5 5 -${z1} |
86 | vertex v103 0 10 -${z1} |
87 | |
88 | edge e101 v101 v102 |
89 | edge e102 v102 v103 |
90 | edge e103 v103 v101 |
91 | |
92 | wire w101 e101 e102 e103 |
93 | |
94 | mksweep s1 |
95 | |
96 | addsweep v4 |
97 | addsweep w1 |
98 | addsweep w11 |
99 | addsweep w21 |
100 | addsweep w111 |
101 | addsweep w101 |
102 | addsweep v5 |
103 | |
104 | catch {buildsweep result} |
105 | |
106 | |
5b0f2540 |
107 | set square 182717 |
3bea4c16 |
108 | |
109 | set nb_v_good 2 |
110 | set nb_e_good 33 |
111 | set nb_w_good 11 |
112 | set nb_f_good 11 |
113 | set nb_sh_good 1 |
114 | set nb_sol_good 0 |
115 | set nb_compsol_good 0 |
116 | set nb_compound_good 0 |
117 | set nb_shape_good 58 |
118 | |
119 | |
120 | |
121 | set index [lsearch [whatis result] Closed] |
122 | if {$index == -1} { |
123 | puts "Faulty ${BugNumber} : result is not Closed shape" |
124 | |
125 | } |
126 | |
127 | set 3dviewer 0 |
128 | |