Changeset 875

Timestamp:

Dec 4, 2009 5:13:32 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/dumpprof.tcl (modified) (2 diffs, 3 props)

trunk/dumpprof.tcl

@@ -6 +6 @@
     exit
 }
+
+package require Tk
 
 set filename [lindex $argv 0]
@@ -78 +80 @@
 foreach hist $expmap(powderlist) {
     set list2 $hist
-    lappend list2 $expmap(htype_$hist)
+    set instcons {}
+    foreach item {difc difa zero ipola pola} {
+        lappend instcons [histinfo $hist $item] 
+    }
+    lappend list2 "$expmap(htype_$hist) [list $instcons]"
     foreach i $expmap(phaselist_$hist) {
         set list $i