Changeset 1173 for branches/sandbox/expgui
- Timestamp:
- Sep 27, 2011 11:35:12 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/expgui
r1172 r1173 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
Note: See TracChangeset
for help on using the changeset viewer.