Changeset 1143

Timestamp:

Jun 1, 2011 6:12:23 PM (10 years ago)

Author:

toby

Message:

fix grace export & remove initial line

Location:

branches/sandbox

Files:

• graceexport.tcl (modified) (1 diff)
• liveplot (modified) (1 diff)

branches/sandbox/graceexport.tcl

@@ -241 +241 @@
                 set center 10
             } elseif {[string range $just 0 0] == "e"} {
-                # is this correct?
+                # is this correct? 
+                set center 1
+            } else {
                 set center 0
-            } else {
-                set center 1
             }
             set color_data 1

branches/sandbox/liveplot

@@ -2176 +2176 @@
         if {[lindex $xr 0] != [lindex $xr end]} {
             set ymult([lindex $xr 0]:[lindex $xr end]) $ym
-            .g marker create line -coords "$xl -Inf $xl Inf" -name mag[incr i]
+            if {$xl != $xvec(min)} {
+                .g marker create line -coords "$xl -Inf $xl Inf" -name mag[incr i]
+            }
             .g marker create text -coords "$xl Inf" -name mag[incr i] -text "x$ym" -anchor w
         }