Changeset 669

Timestamp:

Dec 4, 2009 5:10:02 PM (11 years ago)

Author:

toby

Message:

# on 2003/04/10 22:01:33, toby did:
change header
keep weights (for export)
use normalized data for BKGEDIT (fit is incorrect for TOF w/o)
allow export routines (for FOX)
allow 1,2,... keys to turn on phase tickmarks

File:

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

trunk/liveplot

@@ -1 @@
-#!/usr/local/bin/wish
+#!/bin/sh
+# the next line restarts this script using wish found in the path\
+exec wish "$0" "$@"
+# If this does not work, change the #!/usr/bin/wish line below
+# to reflect the actual wish location and delete all preceeding lines
+#
+# (delete here and above)
+#!/usr/bin/wish
 # $Id$
 set Revision {$Revision$ $Date$}
@@ -37 +44 @@
 
 # default values
+set weightlist {}
 set graph(outname) out.ps
 set graph(outcmd) lpr
@@ -66 +74 @@
     set peakinfo(obssize) 0.15
     set graph(color_calc) pink
+    set graph(yunits) 1
 } else {
     set peakinfo(obssize) 1.0
@@ -258 +267 @@
     global expgui expnam reflns
     global lasthst
-    global hst peakinfo xunits
+    global hst peakinfo xunits weightlist
     $box config -title "(Histogram update in progress)"
     update
@@ -287 +296 @@
     set bcklist {}
     set xunits {}
+    set weightlist {}
     # define a list of reflection positions for each phase
     for {set i 1} {$i < 10} {incr i} {
@@ -349 +359 @@
 proc readdata_tcl {box} {
     global expgui expnam reflns
-    global lasthst graph
+    global lasthst graph weightlist
     global hst peakinfo xunits yunits
     $box config -title "(Histogram update in progress)"
@@ -396 +406 @@
     refposvec set $refpos
     diffvec set [obsvec - calcvec]
+    set weightlist $WGT
     if {$graph(chi2)} {
         wifdvec set $WGT
@@ -1944 +1955 @@
 
 if {$program == "liveplot"} {
-    $box y2axis config -min 0 -title {Cumulative Chi Squared}
+    $box y2axis config -title {Cumulative Chi Squared}
+    catch {$box y2axis config -min 0}
 } elseif {$program == "bkgedit"}  {
     eval $box element config 0 $graph(ElementHideOption) 
@@ -2009 +2021 @@
 .a.file.menu.export add command -label "as .csv file" \
         -command makecsvfile
-
+# source additional export routines
+set filelist [glob -nocomplain [file join $expgui(scriptdir) liveplot_*.tcl]]
+foreach file $filelist {
+    if [catch {
+        source $file
+        .a.file.menu.export add command -label $label -command $action
+    } errmsg] {puts "error = $errmsg"}
+}
 pack [menubutton .a.options -text Options -underline 0 -menu .a.options.menu] \
         -side left    
@@ -2255 +2274 @@
             -variable  peakinfo(flag$num) \
             -command plotdata
-    bind . <Key-$num> ".a.file.menu.tick invoke $num"
+    if {$program != "bkgedit"}  {
+        bind . <Key-$num> ".a.file.menu.tick invoke $num"
+    }
     .a.options.menu.tick add command -label "Phase $num opts" \
             -command "minioptionsbox $num"