add ds9 plot parser

1 files changed, 69 insertions, 1 deletions

diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl
index bfe02a6..de2a6b1 100644
--- a/ds9/library/plotprocess.tcl
+++ b/ds9/library/plotprocess.tcl
@@ -524,8 +524,8 @@ proc ProcessPlotNewOne {which varname xarname iname buf} {
 }
 
 proc ProcessPlotData {varname xarname iname buf} {
-    upvar #0 $varname var
     global $varname
+    upvar #0 $varname var
 
     upvar 2 $xarname xar
     upvar 2 $iname i
@@ -537,6 +537,74 @@ proc ProcessPlotData {varname xarname iname buf} {
     PlotList $varname
 }
 
+proc PlotCmdLoad {fn dim} {
+    global cvarname
+    
+    if {$fn != {}} {
+	PlotLoadDataFile $cvarname $fn $dim
+	FileLast apdatafbox $fn
+    }
+}
+
+proc PlotCmdSave {fn} {
+    global cvarname
+    
+    if {$fn != {}} {
+	PlotSaveDataFile $varname $fn
+	FileLast apdatafbox $fn
+    }
+}
+
+proc PlotCmdStats {value} {
+    global cvarname
+    upvar #0 $cvarname cvar
+
+    set cvar(stats) $value
+    PlotStats $cvarname
+}
+
+proc PlotCmdList {value} {
+    global cvarname
+    upvar #0 $cvarname cvar
+
+    set cvar(list) $value
+    PlotList $cvarname
+}
+
+proc PlotCmdLoadConfig {fn} {
+    global cvarname
+    
+    if {$fn != {}} {
+	PlotLoadConfigFile $cvarname $fn
+	FileLast apconfigfbox $fn
+    }
+}
+
+proc PlotCmdSaveConfig {fn} {
+    global cvarname
+    
+    if {$fn != {}} {
+	PlotSaveConfigFile $cvarname $fn
+	FileLast apconfigfbox $fn
+    }
+}
+
+proc PlotCmdMode {value} {
+    global cvarname
+    upvar #0 $cvarname cvar
+
+    set cvar(mode) $value
+    PlotChangMode $cvarname
+}
+
+proc PlotCmdPlot {which value} {
+    global cvarname
+    upvar #0 $cvarname cvar
+
+    set cvar($which) $value
+    $cvar(proc,updategraph) $cvarname
+}
+
 # File Menu
 proc ProcessPlotPrint {varname xarname iname} {
     upvar #0 $varname var