Changeset 758

Timestamp:

Dec 4, 2009 5:11:31 PM (14 years ago)

Author:

toby

Message:

# on 2003/12/05 12:54:08, toby did:
force bkgedit to always use unnormalized plots

File:

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

trunk/liveplot

@@ -76 +76 @@
     set peakinfo(obssize) 0.15
     set graph(color_calc) pink
-    set graph(yunits) 1
 } else {
     set peakinfo(obssize) 1.0
@@ -360 +359 @@
 
 proc readdata_tcl {box} {
-    global expgui expnam reflns
+    global expgui expnam reflns program
     global lasthst graph weightlist
     global hst peakinfo xunits yunits
@@ -373 +372 @@
     puts $input "$graph(xunits)" 
     # y units  -- native
-    puts $input "$graph(yunits)" 
+    if {$program == "bkgedit"} {
+        puts $input "1"
+    } else {
+        puts $input "$graph(yunits)" 
+    }
     # format (if implemented someday)
     puts $input "0"