Changeset 209

Timestamp:

Nov 21, 2007 4:13:42 PM (15 years ago)

Author:

ajj

Message:

Adding rudimentary coloring of plots

File:

• sans/utils/bt5/bt5plot/bt5plot (modified) (6 diffs)

sans/utils/bt5/bt5plot/bt5plot

@@ -34 +34 @@
 MCQhMBEDbQUTMB0YKjAUDgYHDxUwJxYxG5FRmRpMFx8lRyMdmzFBADs=
 } ]
+
+set plotcolors [list darkblue darkred darkgreen darkorange darkmagenta darkcyan darkgrey black blue red green orange magenta cyan grey]
+set plotcolor 0
 
 proc loadBT5File  {fileName x c cr t m cn br bl fr fl} {
@@ -100 +103 @@
         global tv
         global images
+        global plotcolor
+
+        set plotcolor 0 
 
         foreach elem [ $graph element show] {
@@ -141 +147 @@
         global .tree
         global plotType
+        global plotcolors
+        global plotcolor
+        global useColors
         
         set fileName [.tree label $nodeID]      
@@ -179 +188 @@
                 loadBT5File $fileName $xvec $countvec $countratevec $transvec $monvec $cvec $brvec $blvec $frvec $flvec
 
+
+
                 $graph element create $filebase -symbol scross \
                         -xdata $xvec  \
-                        -ydata $countvec
+                        -ydata $countvec 
+
+                if {$useColors} {
+                        set pcol [lindex $plotcolors $plotcolor]
+                        
+                        $graph element configure $filebase -outline $pcol -color $pcol
+                
+                        incr plotcolor
+                        if { $plotcolor >= [llength $plotcolors] } { set plotcolor 0}
+                }
 
                 switch -exact $plotType {
@@ -338 +358 @@
 $pm add cascade -label "X-Axis" -menu $pm.xaxis
 $pm add cascade -label "Y-Axis" -menu $pm.yaxis
+$pm add cascade -label "Settings" -menu $pm.settings
 #Create sub menus
 set xam [menu $pm.xaxis -tearoff 0]
@@ -358 +379 @@
 $ptm add radio -label "Front Right" -variable plotType -value "frontr" -command {foreach elem [$graph element show] { changePlotType $elem  }}
 
+set psm [menu $pm.settings -tearoff 0]
+$psm add check -label "Use Colors" -variable useColors -offvalue 0 -onvalue 1
+
 #Set defaults
 set loglinX "no"
 set loglinY "no"
 set plotType "count"
+set useColors 0
 
 #pack menubuttons into menu