Changeset 1175 for trunk/expgui
- Timestamp:
- Oct 24, 2011 11:17:42 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/expgui
r1166 r1175 1333 1333 } 1334 1334 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 1336 1337 proc 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 } 1342 1347 return [format "%10.6f" [atominfo $phase $atom $var]] 1343 }1344 1348 } 1345 1349 … … 3332 3336 "source [file join $expgui(scriptdir) rigid.tcl]; MakeRBPane" \ 3333 3337 DisplayRB \ 3334 1 expgui RB.html ""}3338 1 expgui6A.html ""} 3335 3339 {orientFrame "MD Pref Orient" \ 3336 3340 MakeOrientPane \
Note: See TracChangeset
for help on using the changeset viewer.