5 #######################################################################
6 # Improvement of API of ThruSection
7 #######################################################################
17 # *----------------------*
21 # / *---------------------* \
24 # * v23 | * v3 | v28 *
31 # | | | / | | * v4, v5
39 # \ *---------------------* /
44 # *----------------------*
59 vertex v5 2.5 5 -${z4}
73 beziercurve bzc1 5 5 5 ${z5} 5 -5 ${z5} -5 -5 ${z5} -5 5 ${z5} 5 5 ${z5}
78 vertex v11 15 15 ${z2}
79 vertex v12 -15 15 ${z2}
80 vertex v13 -15 -15 ${z2}
81 vertex v14 15 -15 ${z2}
88 wire w11 e11 e12 e13 e14
91 pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 ${z6} 1 -2 2 ${z6} 1 0 1 ${z6} 1 2 2 ${z6} 1 1 0 ${z6} 1 2 -2 ${z6} 1 0 -1 ${z6} 1 -2 -2 ${z6} 1
96 vertex v21 25 25 ${z3}
97 vertex v22 -25 25 ${z3}
98 vertex v23 -30 10 ${z3}
99 vertex v24 -30 -10 ${z3}
100 vertex v25 -25 -25 ${z3}
101 vertex v26 25 -25 ${z3}
102 vertex v27 30 -10 ${z3}
103 vertex v28 30 10 ${z3}
114 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
116 # bottom pbsplinecurve
117 pbsplinecurve pbc2 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 -${z6} 1 -2 2 -${z6} 1 0 1 -${z6} 1 2 2 -${z6} 1 1 0 -${z6} 1 2 -2 -${z6} 1 0 -1 -${z6} 1 -2 -2 -${z6} 1
122 vertex v111 15 15 -${z2}
123 vertex v112 -15 15 -${z2}
124 vertex v113 -15 -15 -${z2}
125 vertex v114 15 -15 -${z2}
132 wire w111 e111 e112 e113 e114
135 beziercurve bzc2 5 5 5 -${z5} 5 -5 -${z5} -5 -5 -${z5} -5 5 -${z5} 5 5 -${z5}
140 vertex v101 0 0 -${z1}
141 vertex v102 5 5 -${z1}
142 vertex v103 0 10 -${z1}
148 wire w101 e101 e102 e103
154 #thrusections result ${issolid} ${isruled} v4 w1 w11 w21 w111 w101 v5
155 thrusections result ${issolid} ${isruled} v4 w1 wbzc1 w11 wpbc1 w21 wpbc2 w111 wbzc2 w101 v5
167 set nb_compsol_good 0
168 set nb_compound_good 0
169 set nb_shape_good 532
173 set index [lsearch [whatis result] Closed]
175 puts "Faulty ${BugNumber} : result is not Closed shape"