diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-30 21:00:41 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-30 21:00:41 (GMT) |
commit | 57243040122134c83462bc4f163ce1b523dde143 (patch) | |
tree | 28afa50f4488d4dcddd5d94379905bdec19852f6 /ds9/library/plotconfig.tcl | |
parent | 5959a83a3b75cf5aacd951809d498158e76028fe (diff) | |
download | blt-57243040122134c83462bc4f163ce1b523dde143.zip blt-57243040122134c83462bc4f163ce1b523dde143.tar.gz blt-57243040122134c83462bc4f163ce1b523dde143.tar.bz2 |
add multiple plot support
Diffstat (limited to 'ds9/library/plotconfig.tcl')
-rw-r--r-- | ds9/library/plotconfig.tcl | 42 |
1 files changed, 22 insertions, 20 deletions
diff --git a/ds9/library/plotconfig.tcl b/ds9/library/plotconfig.tcl index 98c2604..cd9319f 100644 --- a/ds9/library/plotconfig.tcl +++ b/ds9/library/plotconfig.tcl @@ -82,17 +82,18 @@ proc PlotLoadConfigFile {varname filename} { set var(graph,ds,width) $analysisplot(width) set var(graph,ds,dash) $analysisplot(dash) - set var(graph$cc,shape,symbol) $analysisplot(shape,symbol) - set var(graph$cc,shape,fill) $analysisplot(shape,fill) - set var(graph$cc,shape,color) $analysisplot(shape,color) + set var(graph,ds,shape,symbol) $analysisplot(shape,symbol) + set var(graph,ds,shape,fill) $analysisplot(shape,fill) + set var(graph,ds,shape,color) $analysisplot(shape,color) - set var(graph$cc,error) $analysisplot(error) - set var(graph$cc,error,cap) $analysisplot(error,cap) - set var(graph$cc,error,color) $analysisplot(error,color) - set var(graph$cc,error,width) $analysisplot(error,width) + set var(graph,ds,error) $analysisplot(error) + set var(graph,ds,error,cap) $analysisplot(error,cap) + set var(graph,ds,error,color) $analysisplot(error,color) + set var(graph,ds,error,width) $analysisplot(error,width) - set var(graph$cc,bar,relief) $analysisplot(bar,relief) - set var(graph$cc,bar,mode) $analysisplot(bar,mode) + set var(graph,ds,bar,relief) $analysisplot(bar,relief) + + set var(graph,bar,mode) $analysisplot(bar,mode) unset analysisplot @@ -127,12 +128,12 @@ proc PlotLoadConfigFile {varname filename} { } FixVar ${varname}(graph,ds,dash) ${varname}(linear,dash) - FixVar ${varname}(graph$cc,shape,color) ${varname}(discrete,color) - FixVar ${varname}(graph$cc,shape,fill) ${varname}(discrete,fill) + FixVar ${varname}(graph,ds,shape,color) ${varname}(discrete,color) + FixVar ${varname}(graph,ds,shape,fill) ${varname}(discrete,fill) if {[info exists ${varname}(discrete)]} { if {$var(discrete)} { - FixVar ${varname}(graph$cc,shape,symbol) \ + FixVar ${varname}(graph,ds,shape,symbol) \ ${varname}(discrete,symbol) } else { FixVarRm ${varname}(discrete,symbol) @@ -270,16 +271,17 @@ proc PlotSaveConfigFile {varname filename} { set analysisplot(width) $var(graph,ds,width) set analysisplot(dash) $var(graph,ds,dash) - set analysisplot(shape,symbol) $var(graph$cc,shape,symbol) - set analysisplot(shape,fill) $var(graph$cc,shape,fill) - set analysisplot(shape,color) $var(graph$cc,shape,color) + set analysisplot(shape,symbol) $var(graph,ds,shape,symbol) + set analysisplot(shape,fill) $var(graph,ds,shape,fill) + set analysisplot(shape,color) $var(graph,ds,shape,color) + + set analysisplot(error) $var(graph,ds,error) + set analysisplot(error,cap) $var(graph,ds,error,cap) + set analysisplot(error,color) $var(graph,ds,error,color) + set analysisplot(error,width) $var(graph,ds,error,width) - set analysisplot(error) $var(graph$cc,error) - set analysisplot(error,cap) $var(graph$cc,error,cap) - set analysisplot(error,color) $var(graph$cc,error,color) - set analysisplot(error,width) $var(graph$cc,error,width) + set analysisplot(bar,relief) $var(graph,ds,bar,relief) - set analysisplot(bar,relief) $var(graph$cc,bar,relief) set analysisplot(bar,mode) $var(graph$cc,bar,mode) puts $ch "array set analysisplot \{ [array get analysisplot] \}" |