5 #######################################################################
6 # Improvement of API of ThruSection
7 #######################################################################
17 polyline s1 0 0 ${z4} 0 0 -${z4}
37 vertex v11 15 15 ${z2}
38 vertex v12 -15 15 ${z2}
39 vertex v13 -15 -15 ${z2}
40 vertex v14 15 -15 ${z2}
47 wire w11 e11 e12 e13 e14
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}
68 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
71 vertex v111 15 15 -${z2}
72 vertex v112 -15 15 -${z2}
73 vertex v113 -15 -15 -${z2}
74 vertex v114 15 -15 -${z2}
81 wire w111 e111 e112 e113 e114
84 vertex v101 0 0 -${z1}
85 vertex v102 5 5 -${z1}
86 vertex v103 0 10 -${z1}
92 wire w101 e101 e102 e103
104 catch {buildsweep result}
107 checkprops result -s 185899
109 checknbshapes result -vertex 2 -edge 33 -wire 11 -face 11 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 58
112 set index [lsearch [whatis result] Closed]
114 puts "Faulty ${BugNumber} : result is not Closed shape"