diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-03-06 19:38:48 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-03-06 19:38:48 (GMT) |
| commit | 8e49fdc04b3373f337fe78915ba375b0cde02185 (patch) | |
| tree | a8e939656d7366fe014c115c581fa4311c857480 /ds9/library/plot.tcl | |
| parent | 879d80b47fdfa7d5f3d54c765b2e28877dabb939 (diff) | |
| download | blt-8e49fdc04b3373f337fe78915ba375b0cde02185.zip blt-8e49fdc04b3373f337fe78915ba375b0cde02185.tar.gz blt-8e49fdc04b3373f337fe78915ba375b0cde02185.tar.bz2 | |
PLOT: support graph bg color
Diffstat (limited to 'ds9/library/plot.tcl')
| -rw-r--r-- | ds9/library/plot.tcl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 8b626d2..1749e3c 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -12,6 +12,7 @@ proc PlotDef {} { set iap(windows) {} set iap(unique) 0 + set pap(graph,bg) white set pap(graph,title) {} set pap(graph,title,family) helvetica set pap(graph,title,size) 12 @@ -837,6 +838,8 @@ proc PlotSaveConfigFile {varname filename} { set ch [open $filename w] + set analysisplot(graph,bg) $var(graph,bg) + set analysisplot(graph,title) $var(graph,title) set analysisplot(graph,title,family) $var(graph,title,family) set analysisplot(graph,title,size) $var(graph,title,size) @@ -1094,7 +1097,8 @@ proc PlotUpdateGraph {varname} { # Graph $var(graph) configure -plotpadx 0 -plotpady 0 \ -title $var(graph,title) \ - -font "{$ds9($var(graph,title,family))} $var(graph,title,size) $var(graph,title,weight) $var(graph,title,slant)" + -font "{$ds9($var(graph,title,family))} $var(graph,title,size) $var(graph,title,weight) $var(graph,title,slant)" \ + -bg $var(graph,bg) -plotbackground $var(graph,bg) $var(graph) xaxis configure \ -grid $var(axis,x,grid) -logscale $var(axis,x,log) \ |