diff options
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index d4bef17..f21ccc3 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -294,6 +294,23 @@ proc PlotCmdFontStyle {which value} { $cvar(proc,updategraph) $cvarname } +proc PlotCmdExport {format fn} { + global cvarname + upvar #0 $cvarname cvar + + switch -- $format { + gif {FileLast giffbox $fn} + jpeg {FileLast jpegfbox $fn} + tiff {FileLast tifffbox $fn} + png {FileLast pngfbox $fn} + default { + Error "[msgcat::mc {Not valid export format}] $format" + return + } + } + PlotExport $cvarname $fn $format +} + proc ProcessSendPlotCmd {proc id param {sock {}} {fn {}}} { global iap global parse |