Changeset 209 for sans/utils/bt5


Ignore:
Timestamp:
Nov 21, 2007 4:13:42 PM (15 years ago)
Author:
ajj
Message:

Adding rudimentary coloring of plots

File:
1 edited

Legend:

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

    r208 r209  
    3434MCQhMBEDbQUTMB0YKjAUDgYHDxUwJxYxG5FRmRpMFx8lRyMdmzFBADs= 
    3535} ] 
     36 
     37set plotcolors [list darkblue darkred darkgreen darkorange darkmagenta darkcyan darkgrey black blue red green orange magenta cyan grey] 
     38set plotcolor 0 
    3639 
    3740proc loadBT5File  {fileName x c cr t m cn br bl fr fl} { 
     
    100103        global tv 
    101104        global images 
     105        global plotcolor 
     106 
     107        set plotcolor 0  
    102108 
    103109        foreach elem [ $graph element show] { 
     
    141147        global .tree 
    142148        global plotType 
     149        global plotcolors 
     150        global plotcolor 
     151        global useColors 
    143152         
    144153        set fileName [.tree label $nodeID]       
     
    179188                loadBT5File $fileName $xvec $countvec $countratevec $transvec $monvec $cvec $brvec $blvec $frvec $flvec 
    180189 
     190 
     191 
    181192                $graph element create $filebase -symbol scross \ 
    182193                        -xdata $xvec  \ 
    183                         -ydata $countvec 
     194                        -ydata $countvec  
     195 
     196                if {$useColors} { 
     197                        set pcol [lindex $plotcolors $plotcolor] 
     198                         
     199                        $graph element configure $filebase -outline $pcol -color $pcol 
     200                 
     201                        incr plotcolor 
     202                        if { $plotcolor >= [llength $plotcolors] } { set plotcolor 0} 
     203                } 
    184204 
    185205                switch -exact $plotType { 
     
    338358$pm add cascade -label "X-Axis" -menu $pm.xaxis 
    339359$pm add cascade -label "Y-Axis" -menu $pm.yaxis 
     360$pm add cascade -label "Settings" -menu $pm.settings 
    340361#Create sub menus 
    341362set xam [menu $pm.xaxis -tearoff 0] 
     
    358379$ptm add radio -label "Front Right" -variable plotType -value "frontr" -command {foreach elem [$graph element show] { changePlotType $elem  }} 
    359380 
     381set psm [menu $pm.settings -tearoff 0] 
     382$psm add check -label "Use Colors" -variable useColors -offvalue 0 -onvalue 1 
     383 
    360384#Set defaults 
    361385set loglinX "no" 
    362386set loglinY "no" 
    363387set plotType "count" 
     388set useColors 0 
    364389 
    365390#pack menubuttons into menu 
Note: See TracChangeset for help on using the changeset viewer.