diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-23 20:05:47 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-23 20:05:47 (GMT) |
commit | 7e3396be82595cd498b60f7b2e8c46387ad5df4c (patch) | |
tree | cc64336fd66a09d3cedb8a388578a142697a728d /ds9/library/plotprint.tcl | |
parent | 50067b407fd226adcd49cd7fb4844d7c19c42260 (diff) | |
download | blt-7e3396be82595cd498b60f7b2e8c46387ad5df4c.zip blt-7e3396be82595cd498b60f7b2e8c46387ad5df4c.tar.gz blt-7e3396be82595cd498b60f7b2e8c46387ad5df4c.tar.bz2 |
add strip plot support
Diffstat (limited to 'ds9/library/plotprint.tcl')
-rw-r--r-- | ds9/library/plotprint.tcl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/ds9/library/plotprint.tcl b/ds9/library/plotprint.tcl index 7ceeaef..8d6c98c 100644 --- a/ds9/library/plotprint.tcl +++ b/ds9/library/plotprint.tcl @@ -23,18 +23,18 @@ proc PlotPostScript {varname} { global ds9 # set postscript fonts - $var(plot) configure \ + $var(graph) configure \ -font "$var(graph,title,family) $var(graph,title,size) $var(graph,title,weight) $var(graph,title,slant)" - $var(plot) xaxis configure \ + $var(graph) xaxis configure \ -tickfont "$var(axis,font,family) $var(axis,font,size) $var(axis,font,weight) $var(axis,font,slant)" \ -titlefont "$var(axis,title,family) $var(axis,title,size) $var(axis,title,weight) $var(axis,title,slant)" - $var(plot) yaxis configure \ + $var(graph) yaxis configure \ -tickfont "$var(axis,font,family) $var(axis,font,size) $var(axis,font,weight) $var(axis,font,slant)" \ -titlefont "$var(axis,title,family) $var(axis,title,size) $var(axis,title,weight) $var(axis,title,slant)" - $var(plot) legend configure \ + $var(graph) legend configure \ -font "$var(legend,font,family) $var(legend,font,size) $var(legend,font,weight) $var(legend,font,slant)" \ -titlefont "$var(legend,title,family) $var(legend,title,size) $var(legend,title,weight) $var(legend,title,slant)" @@ -94,26 +94,26 @@ proc PlotPostScript {varname} { } if {$ps(dest) == "file" && $ps(filename) != {}} { - eval $var(plot) postscript output $ps(filename) $options + eval $var(graph) postscript output $ps(filename) $options } else { set ch [open "| $ps(cmd)" w] - puts $ch [eval $var(plot) postscript output $options] + puts $ch [eval $var(graph) postscript output $options] close $ch } # reset fonts - $var(plot) configure \ + $var(graph) configure \ -font "{$ds9($var(graph,title,family))} $var(graph,title,size) $var(graph,title,weight) $var(graph,title,slant)" - $var(plot) xaxis configure \ + $var(graph) xaxis configure \ -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(plot) yaxis configure \ + $var(graph) yaxis configure \ -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(plot) legend configure \ + $var(graph) legend configure \ -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)" } |