Changeset 4723 for branches/1.3/gui/scripts
- Timestamp:
- Nov 13, 2014, 5:56:32 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/mesh.tcl
r4666 r4723 1208 1208 # Step 1: Verify that there's only one cell tag of any kind. 1209 1209 set numCells 0 1210 foreach type { 1210 foreach type { 1211 1211 cells 1212 hexahedrons 1213 lines 1214 polygons 1215 pyramids 1212 hexahedrons 1213 lines 1214 polygons 1215 pyramids 1216 1216 quads 1217 tetrahedrons 1218 triangles 1217 tetrahedrons 1218 triangles 1219 1219 trianglestrips 1220 vertices 1221 wedges 1220 vertices 1221 wedges 1222 1222 } { 1223 1223 set data [$_xmlobj get $path.unstructured.$type] … … 1236 1236 return 0 1237 1237 } 1238 foreach type { cells 1239 vertices lines polygons trianglestrips 1240 triangles quads 1241 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 } { 1242 1251 set data [$_xmlobj get $path.unstructured.$type] 1243 1252 if { $data != "" } {
Note: See TracChangeset
for help on using the changeset viewer.