Changeset 1175 for trunk/expgui


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    r1166 r1175  
    13331333}
    13341334
    1335 # format a coordinate from a non-mm phase as 10 chars; mark fixed coordinates differently
     1335# format a coordinate from a non-mm phase as 10 chars; mark fixed
     1336# and Rigid body coordinates differently
    13361337proc ShowFixAtom {phase atom var} {
    1337   # is this fixed?
    1338   set param [string toupper $var]
    1339   if {[array name ::fix_param "$phase,$atom,$param"] != ""} {
    1340     return [format "%9.5fF" [atominfo $phase $atom $var]]
    1341   } else {
     1338    # is this fixed?
     1339    set param [string toupper $var]
     1340    if {[array name ::fix_param "$phase,$atom,$param"] != ""} {
     1341        return [format "%9.5fF" [atominfo $phase $atom $var]]
     1342    }
     1343    # is this atom in a rigid body?
     1344    if {[lsearch $::expmap(rbatoms_$phase) $atom] != -1} {
     1345        return [format "%9.5fr" [atominfo $phase $atom $var]]
     1346    }
    13421347    return [format "%10.6f" [atominfo $phase $atom $var]]
    1343   }
    13441348}
    13451349
     
    33323336            "source  [file join $expgui(scriptdir) rigid.tcl]; MakeRBPane" \
    33333337            DisplayRB \
    3334             1  expguiRB.html ""}
     3338            1  expgui6A.html ""}
    33353339    {orientFrame  "MD Pref Orient" \
    33363340            MakeOrientPane \
Note: See TracChangeset for help on using the changeset viewer.