1 puts "TODO OCC7166 ALL: Error : The square of the resulting shape is"
7 #######################################################################
8 # Improvement of API of ThruSection
9 #######################################################################
19 # *----------------------*
23 # / *---------------------* \
26 # * v23 | * v3 | v28 *
33 # | | | / | | * v4, v5
41 # \ *---------------------* /
46 # *----------------------*
57 vertex v4 55 2.5 ${z4}
59 vertex v5 55 2.5 -${z4}
73 vertex v11 15 15 ${z2}
74 vertex v12 -15 15 ${z2}
75 vertex v13 -15 -15 ${z2}
76 vertex v14 15 -15 ${z2}
83 wire w11 e11 e12 e13 e14
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}
104 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
107 vertex v111 15 15 -${z2}
108 vertex v112 -15 15 -${z2}
109 vertex v113 -15 -15 -${z2}
110 vertex v114 15 -15 -${z2}
117 wire w111 e111 e112 e113 e114
120 vertex v101 0 0 -${z1}
121 vertex v102 5 5 -${z1}
122 vertex v103 0 10 -${z1}
128 wire w101 e101 e102 e103
134 thrusections result ${issolid} ${isruled} v4 w1 w11 w21 w111 w101 v5
146 set nb_compsol_good 0
147 set nb_compound_good 0
152 set index [lsearch [whatis result] Closed]
154 puts "Faulty ${BugNumber} : result is not Closed shape"