Changeset 1175 for trunk/expgui

Timestamp:

Oct 24, 2011 11:17:42 PM (9 years ago)

Author:

toby

Message:

update stable release to fix bugs & match sandbox: many RB updates; show RB atoms in phase

File:

• trunk/expgui (modified) (2 diffs)

trunk/expgui

@@ -1333 +1333 @@
 }
 
-# format a coordinate from a non-mm phase as 10 chars; mark fixed coordinates differently
+# format a coordinate from a non-mm phase as 10 chars; mark fixed 
+# and Rigid body coordinates differently
 proc ShowFixAtom {phase atom var} {
-  # is this fixed?
-  set param [string toupper $var]
-  if {[array name ::fix_param "$phase,$atom,$param"] != ""} {
-    return [format "%9.5fF" [atominfo $phase $atom $var]]
-  } else {
+    # is this fixed?
+    set param [string toupper $var]
+    if {[array name ::fix_param "$phase,$atom,$param"] != ""} {
+        return [format "%9.5fF" [atominfo $phase $atom $var]]
+    }
+    # is this atom in a rigid body?
+    if {[lsearch $::expmap(rbatoms_$phase) $atom] != -1} {
+        return [format "%9.5fr" [atominfo $phase $atom $var]]
+    }
     return [format "%10.6f" [atominfo $phase $atom $var]]
-  }
 }
 
@@ -3332 +3336 @@
             "source  [file join $expgui(scriptdir) rigid.tcl]; MakeRBPane" \
             DisplayRB \
-            1  expguiRB.html ""}
+            1  expgui6A.html ""}
     {orientFrame  "MD Pref Orient" \
             MakeOrientPane \