Changeset 4412 for branches/1.3/gui/scripts

Timestamp:

Jun 21, 2014, 5:58:05 PM (10 years ago)

Author:

ldelgass

Message:

Merge from trunk

File:

• branches/1.3/gui/scripts/drawing.tcl (modified) (4 diffs)

branches/1.3/gui/scripts/drawing.tcl

@@ -12 +12 @@
 package require Itcl
 package require BLT
-
-set count 0
 
 namespace eval Rappture { 
@@ -47 +45 @@
     public method hints {{keyword ""}} 
     public method components { args } 
-    private method PdbToVtk { cname contents } 
 }
 
@@ -109 +106 @@
                 set pdbdata [$_xmlobj get $path.$elem.pdb]
                 if { $pdbdata != "" } {
-                    if 0 {
-                        global count
-                        set f [open /tmp/file$count.pdb "w"]
-                        incr count
-                        puts $f $pdbdata
-                        close $f
-                    }
                     set contents [Rappture::PdbToVtk $pdbdata]
-                    if 0 {
-                        set f [open /tmp/convertedpdb.vtk "w"]
-                        puts $f $contents
-                        close $f
-                    }
                 } else {
                     set contents [$_xmlobj get $path.$elem.vtk]
@@ -356 +341 @@
 }
 
-itcl::body Rappture::Drawing::PdbToVtk { cname contents } {
-    package require vtk
-
-    set reader $this-datasetreader
-    vtkPDBReader $reader
-
-    # Write the contents to a file just in case it's binary.
-    set tmpfile $cname[pid].pdb
-    set f [open "$tmpfile" "w"]
-    fconfigure $f -translation binary -encoding binary
-    puts $f $contents
-    close $f
-    $reader SetFileName $tmpfile
-    $reader Update
-    file delete $tmpfile
-
-    set tmpfile $cname[pid].vtk
-    set writer $this-datasetwriter
-    vtkDataSetWriter $writer
-    $writer SetInputConnection [$reader GetOutputPort]
-    $writer SetFileName $tmpfile
-    $writer Write
-    rename $reader ""
-    rename $writer ""
-
-    set f [open "$tmpfile" "r"]
-    fconfigure $f -translation binary -encoding binary
-    set vtkdata [read $f]
-    close $f
-    file delete $tmpfile
-    return $vtkdata
-}