Changeset 53 for trunk/liveplot


Ignore:
Timestamp:
Dec 4, 2009 4:59:37 PM (11 years ago)
Author:
toby
Message:

# on 1999/02/16 18:05:57, toby did:

  1. better error messages
  2. allow pointflag in cols 6/7
  3. ignore file delete errors
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/liveplot

    • Property rcs:date changed from 1999/01/21 22:55:47 to 1999/02/16 18:05:57
    • Property rcs:lines changed from +17 -19 to +10 -9
    • Property rcs:rev changed from 1.3 to 1.4
    r46 r53  
    169169                if {$num > 0} {
    170170                    set Ispec 0
     171                    set X -999
    171172                    scan [string range $line 8 end] %e%e%e%e%e%e \
    172173                            X Iobs Icalc Ispec fixB fitB
    173174                    #puts $line
    174                     #    puts "[string range $line 6 6]"
    175                     # is this 6 or 7; 6 on win & 7 on SGI
    176                     set pointflag [string range $line 6 7]
    177175                    # eliminate excluded points
    178                     if {$Ispec > 0.0} {
     176                    if {$Ispec > 0.0 && $X >= 0} {
    179177                        lappend xlist $X
    180178                        lappend obslist $Iobs
     
    183181                    }
    184182                    # add peaks to peak lists
    185                     if [regexp {[1-9]} $pointflag ph] {
     183                    #    puts "[string range $line 6 6]"
     184                    # is this 6 or 7; 6 on win & 7 on SGI
     185                    if [regexp {[1-9]} [string range $line 6 7] ph] {
    186186                        lappend reflns($ph) $X
    187187                    }
     
    193193        if {$units == "Theta"} {set units "2-Theta"}
    194194        close $input
    195         file delete histdump$hst.inp
     195        catch {file delete histdump$hst.inp}
    196196        xvec set $xlist
    197197        obsvec set $obslist
     
    210210        plotdata $box
    211211    } errmsg] {
    212         $box config -title "(Error reading Histogram -- not ready or invalid)"
     212        $box config -title "Read error: $errmsg"
     213        catch {console show}
    213214        puts "error message: $errmsg"
    214215        update
     
    345346            append msg [read $out]
    346347            close $out
    347             file delete liveplot.msg
     348            catch {file delete liveplot.msg}
    348349        }
    349350        if {$msg != ""} {
Note: See TracChangeset for help on using the changeset viewer.