Changeset 669
- Timestamp:
- Dec 4, 2009 5:10:02 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/liveplot
- Property rcs:date changed from 2002/10/31 17:28:17 to 2003/04/10 22:01:33
- Property rcs:lines changed from +17 -11 to +29 -8
- Property rcs:rev changed from 1.30 to 1.31
r659 r669 1 #!/usr/local/bin/wish 1 #!/bin/sh 2 # the next line restarts this script using wish found in the path\ 3 exec wish "$0" "$@" 4 # If this does not work, change the #!/usr/bin/wish line below 5 # to reflect the actual wish location and delete all preceeding lines 6 # 7 # (delete here and above) 8 #!/usr/bin/wish 2 9 # $Id$ 3 10 set Revision {$Revision$ $Date$} … … 37 44 38 45 # default values 46 set weightlist {} 39 47 set graph(outname) out.ps 40 48 set graph(outcmd) lpr … … 66 74 set peakinfo(obssize) 0.15 67 75 set graph(color_calc) pink 76 set graph(yunits) 1 68 77 } else { 69 78 set peakinfo(obssize) 1.0 … … 258 267 global expgui expnam reflns 259 268 global lasthst 260 global hst peakinfo xunits 269 global hst peakinfo xunits weightlist 261 270 $box config -title "(Histogram update in progress)" 262 271 update … … 287 296 set bcklist {} 288 297 set xunits {} 298 set weightlist {} 289 299 # define a list of reflection positions for each phase 290 300 for {set i 1} {$i < 10} {incr i} { … … 349 359 proc readdata_tcl {box} { 350 360 global expgui expnam reflns 351 global lasthst graph 361 global lasthst graph weightlist 352 362 global hst peakinfo xunits yunits 353 363 $box config -title "(Histogram update in progress)" … … 396 406 refposvec set $refpos 397 407 diffvec set [obsvec - calcvec] 408 set weightlist $WGT 398 409 if {$graph(chi2)} { 399 410 wifdvec set $WGT … … 1944 1955 1945 1956 if {$program == "liveplot"} { 1946 $box y2axis config -min 0 -title {Cumulative Chi Squared} 1957 $box y2axis config -title {Cumulative Chi Squared} 1958 catch {$box y2axis config -min 0} 1947 1959 } elseif {$program == "bkgedit"} { 1948 1960 eval $box element config 0 $graph(ElementHideOption) … … 2009 2021 .a.file.menu.export add command -label "as .csv file" \ 2010 2022 -command makecsvfile 2011 2023 # source additional export routines 2024 set filelist [glob -nocomplain [file join $expgui(scriptdir) liveplot_*.tcl]] 2025 foreach file $filelist { 2026 if [catch { 2027 source $file 2028 .a.file.menu.export add command -label $label -command $action 2029 } errmsg] {puts "error = $errmsg"} 2030 } 2012 2031 pack [menubutton .a.options -text Options -underline 0 -menu .a.options.menu] \ 2013 2032 -side left … … 2255 2274 -variable peakinfo(flag$num) \ 2256 2275 -command plotdata 2257 bind . <Key-$num> ".a.file.menu.tick invoke $num" 2276 if {$program != "bkgedit"} { 2277 bind . <Key-$num> ".a.file.menu.tick invoke $num" 2278 } 2258 2279 .a.options.menu.tick add command -label "Phase $num opts" \ 2259 2280 -command "minioptionsbox $num"
Note: See TracChangeset
for help on using the changeset viewer.