Changeset 3637 for trunk/gui/scripts/molvisviewer.tcl

Timestamp:

Apr 26, 2013 5:25:25 AM (11 years ago)

Author:

gah

Message:

add pdb to vtk converter to drawing

File:

• trunk/gui/scripts/molvisviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/molvisviewer.tcl

@@ -765 +765 @@
         set _cacheid $cacheid
     }
-    #debug "reading $size bytes from proxy\n"
     set data [ReceiveBytes $size]
     #debug "success: reading $size bytes from proxy\n"
@@ -964 +963 @@
                 # Save the PDB data in case the user wants to later save it.
                 set _pdbdata $data1
-                set nBytes [string length $data1]
+                set numBytes [string length $data1]
 
                 # We know we're buffered here, so append the "loadpdb" command
                 # with the data payload immediately afterwards.
-                ServerCmd "loadpdb -defer follows $model $state $nBytes"
+                ServerCmd "loadpdb -defer follows $model $state $numBytes"
                 append _outbuf $data1
                 set _dataobjs($model-$state)  1
@@ -977 +976 @@
                 # Save the PDB data in case the user wants to later save it.
                 set _pdbdata $data2
-                set nBytes [string length $data2]
+                set numBytes [string length $data2]
 
                 # We know we're buffered here, so append the "loadpdb" command
                 # with the data payload immediately afterwards.
-                ServerCmd "loadpdb -defer follows $model $state $nBytes"
+                ServerCmd "loadpdb -defer follows $model $state $numBytes"
                 append _outbuf $data2
                 set _dataobjs($model-$state)  1
@@ -1026 +1025 @@
                     # Save the PDB data in case the user wants to later save it.
                     set _pdbdata $data3
-                    set nBytes [string length $data3]
+                    set numBytes [string length $data3]
 
                     # We know we're buffered here, so append the "loadpdb" 
                     # command with the data payload immediately afterwards.
-                    ServerCmd "loadpdb -defer follows $model $state $nBytes"
+                    ServerCmd "loadpdb -defer follows $model $state $numBytes"
                     append _outbuf $data3
                 }