diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2017-03-17 17:44:35 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2017-03-17 17:44:35 (GMT) |
| commit | b502a6f9ac62ef22dda0e9a172dc56538f5c5a9f (patch) | |
| tree | 0591ed32b0eeedbb2db0bdeb238c8e04522dc34b | |
| parent | fc66534c90cac1720fd140ddb13ffc9353369c1d (diff) | |
| download | blt-b502a6f9ac62ef22dda0e9a172dc56538f5c5a9f.zip blt-b502a6f9ac62ef22dda0e9a172dc56538f5c5a9f.tar.gz blt-b502a6f9ac62ef22dda0e9a172dc56538f5c5a9f.tar.bz2 | |
BACKUP: fixed an problem where any new WCS must be applied before panning and regions.
| -rw-r--r-- | ds9/doc/release/r7.0.html | 1 | ||||
| -rw-r--r-- | ds9/library/backup.tcl | 7 | ||||
| -rw-r--r-- | ds9/library/wcs.tcl | 1 |
3 files changed, 6 insertions, 3 deletions
diff --git a/ds9/doc/release/r7.0.html b/ds9/doc/release/r7.0.html index 4b9911b..e13e90b 100644 --- a/ds9/doc/release/r7.0.html +++ b/ds9/doc/release/r7.0.html @@ -780,6 +780,7 @@ <li><tt>03.16.2017 IIS: fixed a minor problem if encode WCS is not LINEAR.</tt></li> <li><tt>03.16.2017 IIS: fixed a problem with colorscale values.</tt></li> <li><tt>03.16.2017 IIS: add check to prevent segv in case of mismatch between buffer sizes.</tt></li> + <li><tt>03.17.2017 BACKUP: fixed an problem where any new WCS must be applied before panning and regions.</tt></li> <li><tt><b>03.21.2017 RELEASE version 7.6b1</b></tt></li> </ol> </ol> diff --git a/ds9/library/backup.tcl b/ds9/library/backup.tcl index 37cc314..f27b984 100644 --- a/ds9/library/backup.tcl +++ b/ds9/library/backup.tcl @@ -275,15 +275,16 @@ proc BackupFrame {ch which dir} { RGBBackup $ch $which BinBackup $ch $which ScaleBackup $ch $which - PanZoomBackup $ch $which - # Block need to be before Crop + # Block need to be before WCS and Crop BlockBackup $ch $which + # WCS nees to be before Pan/Zoom + WCSBackup $ch $which $fdir $rdir + PanZoomBackup $ch $which CropBackup $ch $which # must be after Pan and Block 3DBackup $ch $which MarkerBackup $ch $which $fdir $rdir CentroidBackup $ch $which - WCSBackup $ch $which $fdir $rdir MaskBackup $ch $which SmoothBackup $ch $which ContourBackup $ch $which $fdir $rdir diff --git a/ds9/library/wcs.tcl b/ds9/library/wcs.tcl index d6f80e6..4a22c64 100644 --- a/ds9/library/wcs.tcl +++ b/ds9/library/wcs.tcl @@ -121,6 +121,7 @@ proc WCSBackup {ch which fdir rdir} { WCSSaveFile $fn puts $ch "WCSLoadFile $rfn" puts $ch "$which wcs replace text 1 \\\{\[WCSFromVar\]\\\}" + puts $ch "RealizeDS9" } } |