Changeset 3585
- Timestamp:
- Mar 25, 2013 7:03:02 PM (9 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/field.tcl
r3581 r3585 150 150 private method ConvertToVtkData { cname } 151 151 private method ReadVtkDataSet { cname contents } 152 private method VerifyVtkDataSet { contents } 152 153 private method AvsToVtk { cname contents } 153 154 private variable _values "" … … 745 746 set type "points-on-mesh" 746 747 } elseif { [$_field element $cname.vtk] != ""} { 748 set type "vtk" 747 749 set viewer [$_field get "about.view"] 748 set type "vtk"749 750 if { $viewer != "" } { 750 751 set _viewer $viewer … … 1144 1145 } 1145 1146 1147 itcl::body Rappture::Field::VerifyVtkDataSet { contents } { 1148 package require vtk 1149 1150 set reader $this-datasetreader 1151 vtkDataSetReader $reader 1152 1153 # Write the contents to a file just in case it's binary. 1154 set tmpfile file[pid].vtk 1155 set f [open "$tmpfile" "w"] 1156 fconfigure $f -translation binary -encoding binary 1157 puts $f $contents 1158 close $f 1159 1160 $reader SetFileName $tmpfile 1161 $reader ReadAllScalarsOn 1162 $reader ReadAllVectorsOn 1163 $reader ReadAllFieldsOn 1164 $reader Update 1165 set dataset [$reader GetOutput] 1166 set points [$dataset GetPoints] 1167 set numPoints [$points GetNumberOfPoints] 1168 set dataAttrs [$dataset GetPointData] 1169 if { $_dim == 1 } { 1170 set numArrays [$dataAttrs GetNumberOfArrays] 1171 } 1172 if { $dataAttrs == ""} { 1173 puts stderr "WARNING: no point data found in \"$_path\"" 1174 return 0 1175 } 1176 set numArrays [$dataAttrs GetNumberOfArrays] 1177 file delete $tmpfile 1178 rename $reader "" 1179 } 1180 1146 1181 itcl::body Rappture::Field::ReadVtkDataSet { cname contents } { 1147 1182 package require vtk … … 1267 1302 append out "LOOKUP_TABLE default\n" 1268 1303 append out "[$vector range 0 end]\n" 1304 if 0 { 1305 VerifyVtkDataSet $out 1306 } 1269 1307 return $out 1270 1308 } … … 1375 1413 set _dim [$mesh dimensions] 1376 1414 if {$_dim == 1} { 1415 # 1D data: Create vectors for graph widget. 1377 1416 # Is this used anywhere? 1378 1417 # … … 1400 1439 } 1401 1440 if {$_dim == 2} { 1441 # 2D data: By default surface or contour plot using heightmap widget. 1402 1442 set _type "heightmap" 1403 1443 set v [blt::vector create \#auto] … … 1405 1445 if { [$v length] == 0 } { 1406 1446 return 0 1447 } 1448 if { $_viewer == "" } { 1449 set _viewer "contour" 1407 1450 } 1408 1451 set _comp2dims($cname) "[$mesh dimensions]D" … … 1418 1461 } 1419 1462 if {$_dim == 3} { 1420 # 1421 # 3D data: Store cloud/field as components 1422 # 1463 # 3D data: By default isosurfaces plot using isosurface widget. 1423 1464 set values [$_field get $cname.values] 1424 1465 set farray [vtkFloatArray ::vals$_counter] -
trunk/gui/scripts/vtkheightmapviewer.tcl
r3571 r3585 547 547 set args "-objects" 548 548 } 549 550 549 set op [lindex $args 0] 551 550 switch -- $op {
Note: See TracChangeset
for help on using the changeset viewer.