Changeset 18 for sans/utils/bt5


Ignore:
Timestamp:
Dec 12, 2006 4:54:27 PM (16 years ago)
Author:
ajj
Message:

Added check boxes to determine plot type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/utils/bt5/bt5plot/bt5plot

    r16 r18  
    22 
    33package require BLT 
     4 
     5# Set default directory 
     6 
     7set defdir [pwd]  
    48 
    59set images(normal) [image create photo -format gif -data { 
     
    1519} ] 
    1620 
    17 proc loadBT5File  {fileName x c t m} { 
     21proc loadBT5File  {fileName x c cr t m} { 
    1822        global datasets 
    19         global $x $c $t $m 
     23        global $x $c $cr $t $m 
    2024 
    2125        #puts "In load proc: $x $c $cr $t $m" 
     
    2933        set det5(0) 0 
    3034        set xvar(0) 0 
    31         set trans(0) 0 
    3235 
    3336        if [catch {open $fileName r} fileId] { 
     
    6366                $x append {$xvar($index)} 
    6467                $c append {$det1($index)+$det2($index)+$det3($index)+$det4($index)+$det5($index)} 
     68                $cr append [expr [$c index $index] / $counttime] 
    6569                $t append {$trans($index)} 
    6670                $m append {$mon($index)} 
     
    7882 
    7983                set xvec [join "$elem _xvec" ""] 
     84                set countratevec [join "$elem _countratevec" ""] 
    8085                set countvec [join "$elem _countvec" ""] 
    8186                set transvec [join "$elem _transvec" ""] 
     
    8590         
    8691                blt::vector destroy $xvec 
     92                blt::vector destroy $countratevec 
    8793                blt::vector destroy $countvec 
    8894                blt::vector destroy $transvec  
     
    100106        global images 
    101107        global .tree 
     108        global plotType 
    102109         
    103110        set fileName [.tree label $nodeID]       
     
    111118 
    112119                set xvec [join "$filebase _xvec" ""] 
     120                set countratevec [join "$filebase _countratevec" ""] 
    113121                set countvec [join "$filebase _countvec" ""] 
    114122                set transvec [join "$filebase _transvec" ""] 
     
    118126         
    119127                blt::vector create $xvec 
     128                blt::vector create $countratevec 
    120129                blt::vector create $countvec 
    121130                blt::vector create $transvec  
    122131                blt::vector create $monvec 
    123132 
    124                 loadBT5File $fileName $xvec $countvec $transvec $monvec 
     133                loadBT5File $fileName $xvec $countvec $countratevec $transvec $monvec 
    125134 
    126135                $graph element create $filebase -symbol scross \ 
     
    128137                        -ydata $countvec 
    129138 
     139                switch -exact $plotType { 
     140                        count { $graph element configure $filebase -ydata $countvec} 
     141                        countrate { $graph element configure $filebase -ydata $countratevec} 
     142                        trans { $graph element configure $filebase -ydata $transvec} 
     143                        mon { $graph element configure $filebase -ydata  $monvec} 
     144                } 
    130145 
    131146        } else { 
     
    136151         
    137152                set xvec [join "$filebase _xvec" ""] 
     153                set countratevec [join "$filebase _countratevec" ""] 
    138154                set countvec [join "$filebase _countvec" ""] 
    139155                set transvec [join "$filebase _transvec" ""] 
     
    143159         
    144160                blt::vector destroy $xvec 
     161                blt::vector destroy $countratevec 
    145162                blt::vector destroy $countvec 
    146163                blt::vector destroy $transvec  
     
    153170 
    154171proc LoadTree { tree parentNode dir } { 
     172        set saved [pwd] 
    155173        cd $dir 
    156174        foreach f [lsort [glob *.bt5]] { 
    157175                set e [$tree insert $parentNode -label $f -data "Plot 0"] 
    158176        } 
     177        cd $saved 
    159178} 
    160179 
     
    166185         
    167186        global .tree  
     187        global defdir 
    168188         
    169189        set dir [tk_chooseDirectory -title "Set Data Directory"] 
     
    172192                EmptyTree .tree 
    173193                LoadTree .tree 0 $dir 
    174                 cd $dir 
     194                set defdir $dir  
    175195        }        
    176196} 
     
    179199 
    180200        global .tree 
     201        global defdir 
    181202 
    182203        EmptyTree .tree 
    183         LoadTree .tree 0 [pwd] 
     204        LoadTree .tree 0 $defdir 
    184205} 
    185206 
     
    188209         
    189210        global .tree 
     211        global defdir 
    190212 
    191213        resetTree 
     
    209231# Create tree 
    210232blt::tree create .tree 
    211 LoadTree .tree 0 [pwd] 
     233LoadTree .tree 0 $defdir  
    212234 
    213235# Create view+plot frame 
     
    246268pack .filter.filterLabel -side left 
    247269pack .filter.filterEntry -side left  
     270#pack .filter.filterButton -side left 
     271#pack .filter.filterReset -side right -padx 25 
    248272 
    249273#Plot controls 
    250274set pcf [frame .filter.pc] 
    251275button $pcf.filterReset -text "Clear Plot" -command {resetGraph} 
     276radiobutton $pcf.c -text "Counts" -variable plotType -value "count" 
     277radiobutton $pcf.cr -text "Count Rate" -variable plotType -value "countrate" 
     278radiobutton $pcf.t -text "Trans" -variable plotType -value "trans" 
     279radiobutton $pcf.m -text "Mon" -variable plotType -value "mon" 
     280$pcf.c select 
    252281pack $pcf.filterReset -side right -padx 25 
     282pack $pcf.m -side right 
     283pack $pcf.t -side right 
     284pack $pcf.cr -side right 
     285pack $pcf.c -side right  
    253286pack $pcf -side right 
    254287 
Note: See TracChangeset for help on using the changeset viewer.