58cf74e0 |
1 | puts "TODO OCC7166 ALL: Error : The area of result shape is" |
3bea4c16 |
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 | |
7b5e532f |
56 | # beginning vertex |
3bea4c16 |
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 1 |
133 | set isruled 0 |
134 | thrusections result ${issolid} ${isruled} v4 w1 w11 w21 w111 w101 v5 |
135 | |
136 | |
58cf74e0 |
137 | checkprops result -s 37693.9 |
3bea4c16 |
138 | |
139 | |
a4eba920 |
140 | checknbshapes result -vertex 2 -edge 33 -wire 11 -face 11 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 59 |
3bea4c16 |
141 | |
142 | |
143 | set index [lsearch [whatis result] Closed] |
144 | if {$index == -1} { |
145 | puts "Faulty ${BugNumber} : result is not Closed shape" |
146 | |
147 | } |
148 | |
3bea4c16 |
149 | |