Changeset 5050 for vmdshow/trunk

Timestamp:

Feb 28, 2015 7:23:06 PM (9 years ago)

Author:

mmc

Message:

Merge from mdshowcase: Changes to the VMD server to support the "pick" mode.

File:

• vmdshow/trunk/vmdserver.tcl (modified) (5 diffs)

vmdshow/trunk/vmdserver.tcl

@@ -148 +148 @@
 
 # ----------------------------------------------------------------------
+# USAGE: queryinfo <x> <y> ?-add?
+#
+# Resizes the visualization window to the given width <w> and height
+# <h>.  The next image sent should be this size.
+# ----------------------------------------------------------------------
+proc cmd_queryinfo {x y args} {
+    global DisplayProps MolNames MolInfo
+
+    # be careful -- VMD uses coordinates from LOWER-left corner of window
+    set vmdy [expr {$DisplayProps(frameh)-$y}]
+
+    set vals [pick $x $vmdy]
+    if {$vals ne ""} {
+        array set data $vals
+
+        # map the molecule ID back to the name used within MD Showcase
+        foreach molname $MolNames {
+            if {$MolInfo($molname) == $data(mol)} {
+                set data(molname) $molname
+                break
+            }
+        }
+
+        # pass back the click coord on screen so we know where this came from
+        set data(screenx) $x
+        set data(screeny) $y
+
+        set vals [array get data]
+    }
+    return $vals
+}
+$parser alias queryinfo cmd_queryinfo
+
+# ----------------------------------------------------------------------
 # USAGE: resize <w> <h>
 #
@@ -328 +362 @@
 # ----------------------------------------------------------------------
 proc cmd_load {args} {
-    global MolInfo
+    global MolInfo MolNames
 
     # clear all existing molecules
@@ -335 +369 @@
     }
     catch {unset MolInfo}
+    set MolNames ""
 
     # load new files
@@ -352 +387 @@
         if {$op eq "new"} {
             set newnum [lindex [molinfo list] end]
+            if {[lsearch -exact MolNames $name] < 0} {
+                lappend MolNames $name
+            }
             set MolInfo($name) $newnum
             set MolInfo($slot) $newnum
@@ -752 +790 @@
                 server_oops $cout $result
                 if { [string match "invalid command*" $result] } {
-                    bgerror "I got a invalid command: $result"
+                    bgerror "server received invalid command: $result"
                     exit 1
                 }