; BOX2CC ;--------------------------------------------------------------- ;! Converts CLBOX in pixels to CCBOX in arc seconds ;# PROCEDURE IMAGING ;----------------------------------------------------------------------- ;; Copyright (C) 2000, 2003 ;; Associated Universities, Inc. Washington DC, USA. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public ;; License along with this program; if not, write to the Free ;; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge, ;; MA 02139, USA. ;; ;; Correspondence concerning AIPS should be addressed as follows: ;; Internet email: aipsmail@nrao.edu. ;; Postal address: AIPS Project Office ;; National Radio Astronomy Observatory ;; 520 Edgemont Road ;; Charlottesville, VA 22903-2475 USA ;----------------------------------------------------------------------- BOX2CC LLLLLLLLLLLLUUUUUUUUUUUU CCCCCCCCCCCCCCCCCCCCCCCCCCCCC BOX2CC: Procedure to convert CLBOX (pixels) to CCBOX (arc sec) Use RUN BOX2CC first INNAME Image file name (name) INCLASS Image file name (class) INSEQ 0.0 9999.0 Image file name (seq. #) INDISK 0.0 9.0 Image file disk drive # NBOXES 1.0 10.0 Number CC boxes (1 - 10) CLBOX Clean boxes in pixels @ output adverbs NCCBOX @ 1.0 10.0 Number boxes in CCBOX CCBOX @ Clean boxes in arc sec ---------------------------------------------------------------- BOX2CC Procedure: This procedure is designed to simplify filling in CCBOX for task CCEDT. It converts NBOXES rectangular boxes in CLBOX in pixels into NCCBOX boxes in CLBOX in arc seconds. Do not use circular boxes. The CLBOX values may be set with AIPS TV verbs, particularly TVBOX and REBOX. Before attempting to use BOX2CC, the RUN file BOX2CC must be run to define the procedure. This is done by: >RUN BOX2CC and only needs to be done once. Adverbs: INNAME.....Input UV file name (name). Standard defaults. INCLASS....Input UV file name (class). Standard defaults. INSEQ......Input UV file name (seq. #). 0 -> highest. INDISK.....Disk drive # of input UV file. 0 -> any. NBOXES.....Number of Clean boxes in CLBOX CLBOX......Clean box pixel coordinates: (4,50) array gixes Xmin, Ymin, Xmax, Ymax for each of up to 50 boxes. Note that CLBOX can only take the first 10. Output adverbs: NCCBOX.....Number of CLBOX entries. CLBOX......Clean boxes in arc seconds wrt the reference pixel. ----------------------------------------------------------------