diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-07-18 19:02:13 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-07-18 19:02:13 (GMT) |
| commit | d320f998ea6e707b55fd8099274006f8ba85326f (patch) | |
| tree | c0c845edbfd822803efa91ab006a78057994eff0 | |
| parent | 3f30b7538f43f132175929faa9025144c4316312 (diff) | |
| download | blt-d320f998ea6e707b55fd8099274006f8ba85326f.zip blt-d320f998ea6e707b55fd8099274006f8ba85326f.tar.gz blt-d320f998ea6e707b55fd8099274006f8ba85326f.tar.bz2 | |
fix radial anlayis panda
| -rw-r--r-- | ds9/library/markeranalysispanda.tcl | 17 | ||||
| -rw-r--r-- | ds9/library/markeranalysisradial.tcl | 3 |
2 files changed, 17 insertions, 3 deletions
diff --git a/ds9/library/markeranalysispanda.tcl b/ds9/library/markeranalysispanda.tcl index ac254d4..282ff90 100644 --- a/ds9/library/markeranalysispanda.tcl +++ b/ds9/library/markeranalysispanda.tcl @@ -104,7 +104,22 @@ proc MarkerAnalysisPandaCB {frame id} { } PlotDeleteDataSetAll $vvarname - PlotAddDataSet $vvarname 3 [$frame get marker $id analysis panda $sys] + + set data [$frame get marker $id analysis panda $sys] + set id 0 + for {set jj 0} {$jj<$var(angnum)} {incr jj} { + set dd {} + for {set ii 0} {$ii<$var(annuli)} {incr ii} { + lappend dd [lindex $data $id] + incr id + lappend dd [lindex $data $id] + incr id + lappend dd [lindex $data $id] + incr id + } + PlotAddDataSet $vvarname 3 $dd + } + PlotStats $vvarname PlotList $vvarname } diff --git a/ds9/library/markeranalysisradial.tcl b/ds9/library/markeranalysisradial.tcl index 726d07d..c5bd7ac 100644 --- a/ds9/library/markeranalysisradial.tcl +++ b/ds9/library/markeranalysisradial.tcl @@ -103,8 +103,7 @@ proc MarkerAnalysisRadialCB {frame id} { set ping [PlotPing $vvarname] if {!$ping} { - set tt [string totitle [$frame get marker $id type]] - PlotLineDialog $vvarname $tt + PlotLineDialog $vvarname [string totitle [$frame get marker $id type]] PlotTitle $vvarname "Radial Profile" $sys {} MarkerAnalysisRadialAxisTitle $vvarname |