Changeset 4177 for trunk

Timestamp:

Feb 13, 2014, 1:38:33 AM (11 years ago)

Author:

ldelgass

Message:

Remove obsolete/unused function

File:

• trunk/gui/scripts/field.tcl (modified) (3 diffs)

trunk/gui/scripts/field.tcl

@@ -150 +150 @@
     private method DicomToVtk.old { cname contents } 
     private method BuildPointsOnMesh { cname } 
-    private method ConvertToVtkData { cname } 
     protected method GetAssociation { cname } 
     protected method GetTypeAndSize { cname } 
@@ -1119 +1118 @@
 # numComponents --
 #
-# Returns if the number of components in the field component.
+# Returns the number of components in the field component.
 #
 itcl::body Rappture::Field::numComponents {cname} {
@@ -1154 +1153 @@
     }
     return $_comp2extents($cname)
-}
-
-itcl::body Rappture::Field::ConvertToVtkData { cname } {
-    set ds ""
-    switch -- [typeof $cname] {
-        "unirect2d" {
-            foreach { x1 x2 xN y1 y2 yN } [$dataobj mesh $cname] break
-            set spacingX [expr {double($x2 - $x1)/double($xN - 1)}]
-            set spacingY [expr {double($y2 - $y1)/double($yN - 1)}]
-            
-            set ds [vtkImageData $this-grdataTemp]
-            $ds SetDimensions $xN $yN 1
-            $ds SetOrigin $x1 $y1 0
-            $ds SetSpacing $spacingX $spacingY 0
-            set arr [vtkDoubleArray $this-arrTemp]
-            foreach {val} [$dataobj values $cname] {
-                $arr InsertNextValue $val
-            }
-            [$ds GetPointData] SetScalars $arr
-        }
-        "unirect3d" {
-            foreach { x1 x2 xN y1 y2 yN z1 z2 zN } [$dataobj mesh $cname] break
-            set spacingX [expr {double($x2 - $x1)/double($xN - 1)}]
-            set spacingY [expr {double($y2 - $y1)/double($yN - 1)}]
-            set spacingZ [expr {double($z2 - $z1)/double($zN - 1)}]
-            
-            set ds [vtkImageData $this-grdataTemp]
-            $ds SetDimensions $xN $yN $zN
-            $ds SetOrigin $x1 $y1 $z1
-            $ds SetSpacing $spacingX $spacingY $spacingZ
-            set arr [vtkDoubleArray $this-arrTemp]
-            foreach {val} [$dataobj values $cname] {
-                $arr InsertNextValue $val
-            }
-            [$ds GetPointData] SetScalars $val
-        }
-        "contour" {
-            return [$dataobj blob $cname]
-        }
-        "dx" {
-            return [Rappture::DxToVtk $_comp2dx($cname)]
-        }
-        default {
-            set mesh [$dataobj mesh $cname]
-            switch -- [$mesh GetClassName] {
-                vtkPoints {
-                    # handle cloud of points
-                    set ds [vtkPolyData $this-polydataTemp]
-                    $ds SetPoints $mesh
-                    [$ds GetPointData] SetScalars [$dataobj values $cname]
-                }
-                vtkPolyData {
-                    set ds [vtkPolyData $this-polydataTemp]
-                    $ds ShallowCopy $mesh
-                    [$ds GetPointData] SetScalars [$dataobj values $cname]
-                }
-                vtkUnstructuredGrid {
-                    # handle 3D grid with connectivity
-                    set ds [vtkUnstructuredGrid $this-grdataTemp]
-                    $ds ShallowCopy $mesh
-                    [$ds GetPointData] SetScalars [$dataobj values $cname]
-                }
-                vtkRectilinearGrid {
-                    # handle 3D grid with connectivity
-                    set ds [vtkRectilinearGrid $this-grdataTemp]
-                    $ds ShallowCopy $mesh
-                    [$ds GetPointData] SetScalars [$dataobj values $cname]
-                }
-                default {
-                    error "don't know how to handle [$mesh GetClassName] data"
-                }
-            }
-        }
-    }
-
-    if {"" != $ds} {
-        set writer [vtkDataSetWriter $this-dsWriterTmp]
-        $writer SetInput $ds
-        $writer SetFileTypeToASCII
-        $writer WriteToOutputStringOn
-        $writer Write
-        set out [$writer GetOutputString]
-        $ds Delete
-        $writer Delete
-    } else {
-        set out ""
-        error "No DataSet to write"
-    }
-
-    append out "\n"
-    return $out
 }