5 #######################################################################
6 # Improvement of API of ThruSection
7 #######################################################################
17 # *----------------------*
21 # / *---------------------* \
24 # * v23 | * v3 | v28 *
31 # | | | / | | * v4, v5
39 # \ *---------------------* /
44 # *----------------------*
57 vertex v5 2.5 5 -${z4}
71 vertex v11 15 15 ${z2}
72 vertex v12 -15 15 ${z2}
73 vertex v13 -15 -15 ${z2}
74 vertex v14 15 -15 ${z2}
81 wire w11 e11 e12 e13 e14
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}
102 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
105 vertex v111 15 15 -${z2}
106 vertex v112 -15 15 -${z2}
107 vertex v113 -15 -15 -${z2}
108 vertex v114 15 -15 -${z2}
115 wire w111 e111 e112 e113 e114
118 vertex v101 0 0 -${z1}
119 vertex v102 5 5 -${z1}
120 vertex v103 0 10 -${z1}
126 wire w101 e101 e102 e103
132 thrusections result ${issolid} ${isruled} v4 w1 w11 w21 w111 w101 v5
143 set nb_compsol_good 0
144 set nb_compound_good 0
145 set nb_shape_good 311
149 set index [lsearch [whatis result] Closed]
151 puts "Faulty ${BugNumber} : result is not Closed shape"