Changeset 1143 for branches/sandbox


Ignore:
Timestamp:
Jun 1, 2011 6:12:23 PM (9 years ago)
Author:
toby
Message:

fix grace export & remove initial line

Location:
branches/sandbox
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/graceexport.tcl

    r930 r1143  
    241241                set center 10
    242242            } elseif {[string range $just 0 0] == "e"} {
    243                 # is this correct?
     243                # is this correct?
     244                set center 1
     245            } else {
    244246                set center 0
    245             } else {
    246                 set center 1
    247247            }
    248248            set color_data 1
  • branches/sandbox/liveplot

    r1142 r1143  
    21762176        if {[lindex $xr 0] != [lindex $xr end]} {
    21772177            set ymult([lindex $xr 0]:[lindex $xr end]) $ym
    2178             .g marker create line -coords "$xl -Inf $xl Inf" -name mag[incr i]
     2178            if {$xl != $xvec(min)} {
     2179                .g marker create line -coords "$xl -Inf $xl Inf" -name mag[incr i]
     2180            }
    21792181            .g marker create text -coords "$xl Inf" -name mag[incr i] -text "x$ym" -anchor w
    21802182        }
Note: See TracChangeset for help on using the changeset viewer.