diff options
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/markeranalysishist.tcl | 6 | ||||
-rw-r--r-- | ds9/library/markeranalysisplot2d.tcl | 8 | ||||
-rw-r--r-- | ds9/library/markeranalysisplot3d.tcl | 8 |
3 files changed, 17 insertions, 5 deletions
diff --git a/ds9/library/markeranalysishist.tcl b/ds9/library/markeranalysishist.tcl index 9bb109b..83d57a9 100644 --- a/ds9/library/markeranalysishist.tcl +++ b/ds9/library/markeranalysishist.tcl @@ -74,7 +74,11 @@ proc MarkerAnalysisHistogramCB {frame id} { if {!$ping} { set tt [string totitle [$frame get marker $id type]] - PlotLineDialog $vvarname $tt Histogram Values Counts + set bunit [string trim [$frame get fits header keyword BUNIT]] + if {$bunit=={}} { + set bunit {Values} + } + PlotLineDialog $vvarname $tt Histogram $bunit Counts set vvar(manage) 0 set vvar(dim) xy diff --git a/ds9/library/markeranalysisplot2d.tcl b/ds9/library/markeranalysisplot2d.tcl index 121e948..a8fdf1d 100644 --- a/ds9/library/markeranalysisplot2d.tcl +++ b/ds9/library/markeranalysisplot2d.tcl @@ -154,7 +154,11 @@ proc MarkerAnalysisPlot2dCB {frame id} { if {!$ping} { set tt [string totitle [$frame get marker $id type]] - PlotLineDialog $vvarname $tt {} $vvar(system) Counts + set vvar(bunit) [string trim [$frame get fits header keyword BUNIT]] + if {$vvar(bunit)=={}} { + set vvar(bunit) {Counts} + } + PlotLineDialog $vvarname $tt {} $vvar(system) $vvar(bunit) MarkerAnalysisPlot2dXAxisTitle $vvarname MarkerAnalysisPlot2dYAxisTitle $vvarname @@ -240,7 +244,7 @@ proc MarkerAnalysisPlot2dYAxisTitle {vvarname} { global $vvarname # set for plot code - set vvar(axis,y,title) "Counts [string totitle $vvar(method)]" + set vvar(axis,y,title) "$vvar(bunit) [string totitle $vvar(method)]" # update now (may not make it into plot code) $vvar(graph) yaxis configure -title $vvar(axis,y,title) diff --git a/ds9/library/markeranalysisplot3d.tcl b/ds9/library/markeranalysisplot3d.tcl index e448249..e26dd0b 100644 --- a/ds9/library/markeranalysisplot3d.tcl +++ b/ds9/library/markeranalysisplot3d.tcl @@ -152,7 +152,11 @@ proc MarkerAnalysisPlot3dCB {frame id} { if {!$ping} { set tt [string totitle [$frame get marker $id type]] - PlotLineDialog $vvarname $tt {} $vvar(system) Counts + set vvar(bunit) [string trim [$frame get fits header keyword BUNIT]] + if {$vvar(bunit)=={}} { + set vvar(bunit) {Counts} + } + PlotLineDialog $vvarname $tt {} $vvar(system) $vvar(bunit) MarkerAnalysisPlot3dXAxisTitle $vvarname MarkerAnalysisPlot3dYAxisTitle $vvarname @@ -297,7 +301,7 @@ proc MarkerAnalysisPlot3dYAxisTitle {vvarname} { global $vvarname # set for plot code - set vvar(axis,y,title) "Counts [string totitle $vvar(method)]" + set vvar(axis,y,title) "$vvar(bunit) [string totitle $vvar(method)]" # update now (may not make it into plot code) $vvar(graph) yaxis configure -title $vvar(axis,y,title) |