diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-31 18:14:42 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-31 18:14:42 (GMT) |
commit | 26eb60d30ba6391cc9dee34d5d01472d42566ad2 (patch) | |
tree | 4fe2d6c2a424bb1b22f431528ce75fd50172414f /ds9/library/plot.tcl | |
parent | 1dcf4d5e0309b72a2f4e2699cfe77028ca5bfd12 (diff) | |
download | blt-26eb60d30ba6391cc9dee34d5d01472d42566ad2.zip blt-26eb60d30ba6391cc9dee34d5d01472d42566ad2.tar.gz blt-26eb60d30ba6391cc9dee34d5d01472d42566ad2.tar.bz2 |
add multiple plot support
Diffstat (limited to 'ds9/library/plot.tcl')
-rw-r--r-- | ds9/library/plot.tcl | 37 |
1 files changed, 29 insertions, 8 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 3c50877..a98b865 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -528,16 +528,14 @@ proc PlotStatsDestroyCB {varname} { set var(stats) 0 } -proc PlotTitle {varname title xaxis yaxis} { +# procs +proc PlotUpdateCanvas {varname} { upvar #0 $varname var global $varname set tt $var(graph,total) - set cc $var(graph,current) - - set var(graph,title) "$title" - set var(axis,x,title) "$xaxis" - set var(axis,y,title) "$yaxis" + for {set ii 1} {$ii<=$tt} {incr ii} { + } } proc PlotUpdateGraph {varname} { @@ -627,13 +625,24 @@ proc PlotUpdateGraph {varname} { -tickfont "{$ds9($var(axis,font,family))} $var(axis,font,size) $var(axis,font,weight) $var(axis,font,slant)" \ -titlefont "{$ds9($var(axis,title,family))} $var(axis,title,size) $var(axis,title,weight) $var(axis,title,slant)" - $var(graph$cc) legend configure -hide [expr !$var(legend)] \ + $var(graph$cc) legend configure -hide [expr !$var(graph,legend)] \ -bg $var(graph,bg) \ - -position $var(legend,position) -title $var(legend,title) \ + -position $var(graph,legend,position) -title $var(graph,legend,title) \ -font "{$ds9($var(legend,font,family))} $var(legend,font,size) $var(legend,font,weight) $var(legend,font,slant)" \ -titlefont "{$ds9($var(legend,title,family))} $var(legend,title,size) $var(legend,title,weight) $var(legend,title,slant)" } +proc PlotButton {varname x y} { + upvar #0 $varname var + global $varname +} + +proc PlotHighliteElement {varname rowlist} { + upvar #0 $varname var + global $varname +} + +# menus proc PlotColorMenu {w varname color cmd} { upvar #0 $varname var global $varname @@ -663,6 +672,18 @@ proc PlotColorMenu {w varname color cmd} { -command [list ColorMenuOther $varname $color $cmd] } +proc PlotTitle {varname title xaxis yaxis} { + upvar #0 $varname var + global $varname + + set tt $var(graph,total) + set cc $var(graph,current) + + set var(graph,title) "$title" + set var(axis,x,title) "$xaxis" + set var(axis,y,title) "$yaxis" +} + proc PlotBackup {ch dir} { global iap |