- Timestamp:
- Nov 13, 2014, 5:58:09 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/mesh.tcl
r4659 r4724 1208 1208 # Step 1: Verify that there's only one cell tag of any kind. 1209 1209 set numCells 0 1210 foreach type { cells 1211 vertices lines polygons trianglestrips 1212 triangles quads 1213 tetrahedrons hexahedrons wedges pyramids } { 1210 foreach type { 1211 cells 1212 hexahedrons 1213 lines 1214 polygons 1215 pyramids 1216 quads 1217 tetrahedrons 1218 triangles 1219 trianglestrips 1220 vertices 1221 wedges 1222 } { 1214 1223 set data [$_xmlobj get $path.unstructured.$type] 1215 1224 if { $data != "" } { … … 1227 1236 return 0 1228 1237 } 1229 foreach type { cells 1230 vertices lines polygons trianglestrips 1231 triangles quads 1232 tetrahedrons hexahedrons wedges pyramids } { 1238 foreach type { 1239 cells 1240 hexahedrons 1241 lines 1242 polygons 1243 pyramids 1244 quads 1245 tetrahedrons 1246 triangles 1247 trianglestrips 1248 vertices 1249 wedges 1250 } { 1233 1251 set data [$_xmlobj get $path.unstructured.$type] 1234 1252 if { $data != "" } {
Note: See TracChangeset
for help on using the changeset viewer.