Changeset 875 for trunk/dumpprof.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:13:32 PM (11 years ago)
Author:
toby
Message:

# on 2006/03/29 03:50:00, toby did:
return diffractometer constants
support starkit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dumpprof.tcl

    • Property rcs:date changed from 2003/05/22 21:41:18 to 2006/03/29 03:50:00
    • Property rcs:lines changed from +11 -5 to +7 -1
    • Property rcs:rev changed from 1.2 to 1.3
    r697 r875  
    66    exit
    77}
     8
     9package require Tk
    810
    911set filename [lindex $argv 0]
     
    7880foreach hist $expmap(powderlist) {
    7981    set list2 $hist
    80     lappend list2 $expmap(htype_$hist)
     82    set instcons {}
     83    foreach item {difc difa zero ipola pola} {
     84        lappend instcons [histinfo $hist $item]
     85    }
     86    lappend list2 "$expmap(htype_$hist) [list $instcons]"
    8187    foreach i $expmap(phaselist_$hist) {
    8288        set list $i
Note: See TracChangeset for help on using the changeset viewer.