Changeset 655

Timestamp:

Dec 4, 2009 5:09:48 PM (13 years ago)

Author:

toby

Message:

# on 2002/10/24 19:24:01, toby did:
Add export capability to comma separated value (.csv) files for spreadsheets
and graphics programs

File:

• trunk/liveplot (modified) (2 diffs, 3 props)

trunk/liveplot

@@ -828 +828 @@
     }
 }
+#-------------------------------------------------------------------------
+# export current plot as .csv file
+#-------------------------------------------------------------------------
+proc makecsvfile {} {
+    global graph box expnam hst
+    global tcl_platform graph
+    set typelist {
+        {{Comma separated} {.csv}        }
+        {{Text File}       {.txt}        }
+    }
+    set file [tk_getSaveFile -filetypes $typelist \
+            -initialfile ${expnam}_$hst.csv]
+    if {$file == ""} return
+    foreach vec {xvec obsvec calcvec bckvec diffvec wifdvec} \
+            var {X    O      C       B      D       CC     } {
+        set $var {}
+        catch {set $var [$vec range 0 end]}
+    }
+    set fp [open $file w]
+    # get x and y axis limits
+    foreach v {x y} {
+        foreach "${v}min ${v}max" [$graph(blt) ${v}axis limits] {}
+        puts $fp "\"$v axis range [set ${v}min] to [set ${v}max]\""
+        global ${v}units
+        puts $fp "\"$v axis label [set ${v}units]\""
+    }
+    puts $fp {"Columns are X I(obs) I(calc) I(bkg) Obs-Calc cum-chi**2 refpos ref-phase ref-hkl"}
+    global refhkllist refphaselist refpos
+    foreach x $X o $O c $C b $B d $D cc $CC \
+            hkl $refhkllist rphase $refphaselist rp $refpos {
+        # replace commas with spaces
+        regsub -all "," $hkl " " hkl
+        puts $fp ", $x, $o, $c, $b, $d, $cc, $rp, $rphase, [list $hkl],"
+    }
+    close $fp
+}
 
 proc setlblopts {} {
@@ -1965 +2001 @@
 }
 .a.file.menu add command -label Quit -command "destroy ."
+.a.file.menu.export add command -label "as .csv file" \
+        -command makecsvfile
 
 pack [menubutton .a.options -text Options -underline 0 -menu .a.options.menu] \