diff options
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/backup.tcl | 7 | ||||
| -rw-r--r-- | ds9/library/wcs.tcl | 1 |
2 files changed, 5 insertions, 3 deletions
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" } } |