Changeset 825

Timestamp:

Dec 4, 2009 5:12:41 PM (14 years ago)

Author:

toby

Message:

# on 2004/10/04 20:28:29, toby did:
remove unused diffvec
redo vector variable access -- fix bug

File:

• trunk/excledt.tcl (modified) (4 diffs, 3 props)

trunk/excledt.tcl

@@ -106 +106 @@
             obsvec set $obslist
             calcvec set $calclist
-            diffvec set [obsvec - calcvec]
             exxvec set $exclistx
             exobsvec set $exclistobs 
-            global obsvec calcvec diffvec 
-            set maxdiff  [set diffvec(max)]
+            foreach vec {obsvec calcvec} {
+                # probably not needed with recent versions of BLT:
+                global $vec
+                # sometimes needed for latest version of BLT (2.4z)
+                catch {$vec variable $vec}
+            }
             set cmin [set calcvec(min)]
             set omin [set obsvec(min)]
@@ -116 +119 @@
             set omax [set obsvec(max)]
             foreach {expgui(min) expgui(max)} {0 0} {}
-            catch {
-                set expgui(min) [expr $omin < $cmin ? $omin : $cmin]
-                set expgui(max) [expr $omax > $cmax ? $omax : $cmax]
-                set ymin1 [expr $cmin - 1.1*$maxdiff]
-                set ymin2 [expr $omin - 1.1*$maxdiff]
-                if {$ymin1 < $ymin2} {
-                    diffvec set [diffvec + $ymin1]
-                } {
-                    diffvec set [diffvec + $ymin2]
-                }
-            }
-        }
-    }
-    plotExclData
+            set expgui(min) [expr $omin < $cmin ? $omin : $cmin]
+            set expgui(max) [expr $omax > $cmax ? $omax : $cmax]
+        }
+        plotExclData
+    }
 }
 
@@ -152 +146 @@
             -pixels [expr 0.125 * $peakinfo(exclsize)]i
 
-    foreach vec {xvec obsvec calcvec diffvec exxvec exobsvec} {
+    foreach vec {xvec obsvec calcvec exxvec exobsvec} {
         $vec notify now
     }
@@ -394 +388 @@
     $graph(plot) element config 2 -color $graph(color_calc)
     $graph(plot) element config 12 -color $graph(color_excl)
-    foreach vec {xvec obsvec calcvec diffvec exxvec exobsvec} {
+    foreach vec {xvec obsvec calcvec exxvec exobsvec} {
         $vec notify now
     }