Ignore:
Timestamp:
Jan 18, 2011 4:19:26 PM (10 years ago)
Author:
toby
Message:

recent changes: fix coordinates, rb start

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/expgui

    r1108 r1109  
    12481248            } else {
    12491249                append refflag " [mmatominfo $phase $atom ${type}damp] "
    1250             }   
     1250            }
    12511251        }
    12521252        set line [format \
     
    12631263                [mmatominfo $phase $atom z] \
    12641264                [mmatominfo $phase $atom frac] \
    1265                 [mmatominfo $phase $atom Uiso] 
     1265                [mmatominfo $phase $atom Uiso]
    12661266        ]
    12671267    } elseif {[atominfo $phase $atom temptype] == "A"} {
     
    12771277        set maxline A
    12781278        # aniso
    1279         set line [format "%3d %-6s %-6s %8s %10.6f%10.6f%10.6f%4d%9.4f" \
     1279        set fmt "%3d %-6s %-6s %8s %s%s%s%4d%9.4f"
     1280        set line [format $fmt \
    12801281                $atom \
    12811282                [atominfo $phase $atom label] \
    12821283                [atominfo $phase $atom type] \
    12831284                $refflag \
    1284                 [atominfo $phase $atom x] \
    1285                 [atominfo $phase $atom y] \
    1286                 [atominfo $phase $atom z] \
     1285                [ShowFixAtom $phase $atom x] \
     1286                [ShowFixAtom $phase $atom y] \
     1287                [ShowFixAtom $phase $atom z] \
    12871288                [atominfo $phase $atom mult] \
    1288                 [atominfo $phase $atom frac] 
     1289                [atominfo $phase $atom frac]
    12891290        ]
    12901291        append line [format "  %9.5f%9.5f%9.5f%9.5f%9.5f%9.5f" \
     
    12941295                [atominfo $phase $atom U12] \
    12951296                [atominfo $phase $atom U23] \
    1296                 [atominfo $phase $atom U13] 
     1297                [atominfo $phase $atom U13]
    12971298        ]
    12981299    } else {
     
    13021303            } else {
    13031304                append refflag " [atominfo $phase $atom ${type}damp] "
    1304             }   
    1305         }
    1306         set line [format \
    1307                 "%3d %-6s %-6s %8s %10.6f%10.6f%10.6f%4d%9.4f  %9.5f" \
     1305            }
     1306        }
     1307        #set fmt "%3d %-6s %-6s %8s %10.6f%10.6f%10.6f%4d%9.4f  %9.5f"
     1308        set fmt "%3d %-6s %-6s %8s %s%s%s%4d%9.4f  %9.5f"
     1309        set line [format $fmt \
    13081310                $atom \
    13091311                [atominfo $phase $atom label] \
    13101312                [atominfo $phase $atom type] \
    13111313                $refflag \
    1312                 [atominfo $phase $atom x] \
    1313                 [atominfo $phase $atom y] \
    1314                 [atominfo $phase $atom z] \
     1314                [ShowFixAtom $phase $atom x] \
     1315                [ShowFixAtom $phase $atom y] \
     1316                [ShowFixAtom $phase $atom z] \
    13151317                [atominfo $phase $atom mult] \
    13161318                [atominfo $phase $atom frac] \
    1317                 [atominfo $phase $atom Uiso] 
     1319                [atominfo $phase $atom Uiso]
    13181320        ]
    13191321    }
    13201322    return $line
     1323}
     1324
     1325# format a coordinate from a non-mm phase as 10 chars; mark fixed coordinates differently
     1326proc ShowFixAtom {phase atom var} {
     1327  # is this fixed?
     1328  set param [string toupper $var]
     1329  if {[array name ::fix_param "$phase,$atom,$param"] != ""} {
     1330    return [format "%9.5fF" [atominfo $phase $atom $var]]
     1331  } else {
     1332    return [format "%10.6f" [atominfo $phase $atom $var]]
     1333  }
    13211334}
    13221335
Note: See TracChangeset for help on using the changeset viewer.