diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-08-01 15:35:04 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-08-01 15:35:04 (GMT) |
| commit | f75994fc77b6e520c7df8ecd0d89fa87e2dc44ea (patch) | |
| tree | f78b93a6e5bede93f4557c2c4709c411cd7bd76f /ds9/library | |
| parent | 4f9885152c6e8eef1a01e2cc50fa4e3db8bbcb5c (diff) | |
| download | blt-f75994fc77b6e520c7df8ecd0d89fa87e2dc44ea.zip blt-f75994fc77b6e520c7df8ecd0d89fa87e2dc44ea.tar.gz blt-f75994fc77b6e520c7df8ecd0d89fa87e2dc44ea.tar.bz2 | |
support multiple graphs per plot
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/plot.tcl | 6 | ||||
| -rw-r--r-- | ds9/library/plotstate.tcl | 1 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index e01e331..d54f31f 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -641,6 +641,7 @@ proc PlotUpdateCanvas {varname} { column { set legendpos $var(legend,position) + set var(layout,axis,x,title) {} set var(layout,axis,x,min) 0 set var(layout,axis,x,max) 1 set var(layout,axis,x,grid) 1 @@ -663,6 +664,7 @@ proc PlotUpdateCanvas {varname} { set xmax $var($first,axis,x,max) } + set var(layout,axis,x,title) $var($first,axis,x,title) set var(layout,axis,x,min) $xmin set var(layout,axis,x,max) $xmax set var(layout,axis,x,grid) $var($first,axis,x,grid) @@ -778,10 +780,12 @@ proc PlotUpdateGraph {varname} { } if {$var(graph,axis,x,manage)} { + set xtitle $var(graph,axis,x,title) set xgrid $var(graph,axis,x,grid) set xlog $var(graph,axis,x,log) set xflip $var(graph,axis,x,flip) } else { + set xtitle $var(layout,axis,x,title) set xgrid $var(layout,axis,x,grid) set xlog $var(layout,axis,x,log) set xflip $var(layout,axis,x,flip) @@ -817,7 +821,7 @@ proc PlotUpdateGraph {varname} { } if {[$var(graph) xaxis cget -showticks]} { - $var(graph) xaxis configure -title $var(graph,axis,x,title) + $var(graph) xaxis configure -title $xtitle } else { $var(graph) xaxis configure -title {} } diff --git a/ds9/library/plotstate.tcl b/ds9/library/plotstate.tcl index d7fd277..58e7404 100644 --- a/ds9/library/plotstate.tcl +++ b/ds9/library/plotstate.tcl @@ -11,6 +11,7 @@ proc PlotDefState {} { # per Canvas set pap(layout) grid set pap(layout,strip,weight) 50 + set pap(layout,axis,x,title) {} set pap(layout,axis,x,min) 0 set pap(layout,axis,x,max) 0 set pap(layout,axis,x,grid) 0 |