Changeset 3867 for trunk/gui/scripts/field.tcl
- Timestamp:
- Aug 15, 2013, 2:49:38 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/field.tcl
r3852 r3867 868 868 # off to the NanoVis visualizer. 869 869 # 870 870 set _viewer "nanovis" 871 871 set _dim 3 872 set _type "dx"873 872 set _comp2dims($cname) "3D" 874 set contents [$_field get -decode no $cname.$type]875 if { $contents == "" } {876 puts stderr "WARNING: no data for \"$_path.$cname.$type\""877 continue; # Ignore this component878 }879 set _comp2dx($cname) $contents880 873 if 0 { 881 set hdr "@@RP-ENC:zb64\n" 882 set data [$_field get -decode no $cname.$type] 883 set data "$hdr$data" 884 set data [Rappture::encoding::decode $data] 885 set data [Rappture::DxToVtk $data] 874 set vtkdata [$_field get -decode yes $cname.$type] 875 if { $vtkdata == "" } { 876 puts stderr "WARNING: no data for \"$_path.$cname.$type\"" 877 continue; # Ignore this component 878 } 879 set vtkdata [Rappture::DxToVtk $vtkdata] 886 880 set f [open /tmp/$_path.$cname.vtk "w"] 887 puts $f $ data881 puts $f $vtkdata 888 882 close $f 883 ReadVtkDataSet $cname $vtkdata 884 set _type "vtk" 885 set _comp2vtk($cname) $vtkdata 886 } else { 887 set contents [$_field get -decode no $cname.$type] 888 if { $contents == "" } { 889 puts stderr "WARNING: no data for \"$_path.$cname.$type\"" 890 continue; # Ignore this component 891 } 892 set _type "dx" 893 set _comp2dx($cname) $contents 894 } 895 set viewer [$_field get "about.view"] 896 if { $viewer != "" } { 897 set _viewer $viewer 889 898 } 890 899 set _comp2style($cname) [$_field get $cname.style]
Note: See TracChangeset
for help on using the changeset viewer.