diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-26 21:13:00 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-26 21:13:00 (GMT) |
commit | da2e3d212171bbe64c1af39114fd067308656990 (patch) | |
tree | 9601f7ed15fa1394762124630c12a792bc073ec2 /funtools/wcs/dsspos.c | |
parent | 76b109ad6d97d19ab835596dc70149ef379f3733 (diff) | |
download | blt-da2e3d212171bbe64c1af39114fd067308656990.zip blt-da2e3d212171bbe64c1af39114fd067308656990.tar.gz blt-da2e3d212171bbe64c1af39114fd067308656990.tar.bz2 |
rm funtools for update
Diffstat (limited to 'funtools/wcs/dsspos.c')
-rw-r--r-- | funtools/wcs/dsspos.c | 318 |
1 files changed, 0 insertions, 318 deletions
diff --git a/funtools/wcs/dsspos.c b/funtools/wcs/dsspos.c deleted file mode 100644 index 3bbd5a0..0000000 --- a/funtools/wcs/dsspos.c +++ /dev/null @@ -1,318 +0,0 @@ -/*** File saoimage/wcslib/dsspos.c - *** October 21, 1999 - *** By Jessica Mink, jmink@cfa.harvard.edu - *** Harvard-Smithsonian Center for Astrophysics - *** Copyright (C) 1995-2002 - *** Smithsonian Astrophysical Observatory, Cambridge, MA, USA - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2 of the License, or (at your option) any later version. - - This library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with this library; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - - Correspondence concerning WCSTools should be addressed as follows: - Internet email: jmink@cfa.harvard.edu - Postal address: Jessica Mink - Smithsonian Astrophysical Observatory - 60 Garden St. - Cambridge, MA 02138 USA - - * Module: dsspos.c (Plate solution WCS conversion) - * Purpose: Compute WCS from Digital Sky Survey plate fit - * Subroutine: dsspos() converts from pixel location to RA,Dec - * Subroutine: dsspix() converts from RA,Dec to pixel location - - These functions are based on the astrmcal.c portion of GETIMAGE by - J. Doggett and the documentation distributed with the Digital Sky Survey. - -*/ - -#include <math.h> -#include <string.h> -#include <stdio.h> -#include "wcs.h" - -int -dsspos (xpix, ypix, wcs, xpos, ypos) - -/* Routine to determine accurate position for pixel coordinates */ -/* returns 0 if successful otherwise 1 = angle too large for projection; */ -/* based on amdpos() from getimage */ - -/* Input: */ -double xpix; /* x pixel number (RA or long without rotation) */ -double ypix; /* y pixel number (dec or lat without rotation) */ -struct WorldCoor *wcs; /* WCS parameter structure */ - -/* Output: */ -double *xpos; /* Right ascension or longitude in degrees */ -double *ypos; /* Declination or latitude in degrees */ - -{ - double x, y, xmm, ymm, xmm2, ymm2, xmm3, ymm3, x2y2; - double xi, xir, eta, etar, raoff, ra, dec; - double cond2r = 1.745329252e-2; - double cons2r = 206264.8062470964; - double twopi = 6.28318530717959; - double ctan, ccos; - -/* Ignore magnitude and color terms - double mag = 0.0; - double color = 0.0; */ - -/* Convert from image pixels to plate pixels */ - x = xpix + wcs->x_pixel_offset - 1.0 + 0.5; - y = ypix + wcs->y_pixel_offset - 1.0 + 0.5; - -/* Convert from pixels to millimeters */ - xmm = (wcs->ppo_coeff[2] - x * wcs->x_pixel_size) / 1000.0; - ymm = (y * wcs->y_pixel_size - wcs->ppo_coeff[5]) / 1000.0; - xmm2 = xmm * xmm; - ymm2 = ymm * ymm; - xmm3 = xmm * xmm2; - ymm3 = ymm * ymm2; - x2y2 = xmm2 + ymm2; - -/* Compute coordinates from x,y and plate model */ - - xi = wcs->x_coeff[ 0]*xmm + wcs->x_coeff[ 1]*ymm + - wcs->x_coeff[ 2] + wcs->x_coeff[ 3]*xmm2 + - wcs->x_coeff[ 4]*xmm*ymm + wcs->x_coeff[ 5]*ymm2 + - wcs->x_coeff[ 6]*(x2y2) + wcs->x_coeff[ 7]*xmm3 + - wcs->x_coeff[ 8]*xmm2*ymm + wcs->x_coeff[ 9]*xmm*ymm2 + - wcs->x_coeff[10]*ymm3 + wcs->x_coeff[11]*xmm*(x2y2) + - wcs->x_coeff[12]*xmm*x2y2*x2y2; - -/* Ignore magnitude and color terms - + wcs->x_coeff[13]*mag + wcs->x_coeff[14]*mag*mag + - wcs->x_coeff[15]*mag*mag*mag + wcs->x_coeff[16]*mag*xmm + - wcs->x_coeff[17]*mag*x2y2 + wcs->x_coeff[18]*mag*xmm*x2y2 + - wcs->x_coeff[19]*color; */ - - eta = wcs->y_coeff[ 0]*ymm + wcs->y_coeff[ 1]*xmm + - wcs->y_coeff[ 2] + wcs->y_coeff[ 3]*ymm2 + - wcs->y_coeff[ 4]*xmm*ymm + wcs->y_coeff[ 5]*xmm2 + - wcs->y_coeff[ 6]*(x2y2) + wcs->y_coeff[ 7]*ymm3 + - wcs->y_coeff[ 8]*ymm2*xmm + wcs->y_coeff[ 9]*ymm*xmm2 + - wcs->y_coeff[10]*xmm3 + wcs->y_coeff[11]*ymm*(x2y2) + - wcs->y_coeff[12]*ymm*x2y2*x2y2; - -/* Ignore magnitude and color terms - + wcs->y_coeff[13]*mag + wcs->y_coeff[14]*mag*mag + - wcs->y_coeff[15]*mag*mag*mag + wcs->y_coeff[16]*mag*ymm + - wcs->y_coeff[17]*mag*x2y2) + wcs->y_coeff[18]*mag*ymm*x2y2 + - wcs->y_coeff[19]*color; */ - -/* Convert to radians */ - - xir = xi / cons2r; - etar = eta / cons2r; - -/* Convert to RA and Dec */ - - ctan = tan (wcs->plate_dec); - ccos = cos (wcs->plate_dec); - raoff = atan2 (xir / ccos, 1.0 - etar * ctan); - ra = raoff + wcs->plate_ra; - if (ra < 0.0) ra = ra + twopi; - *xpos = ra / cond2r; - - dec = atan (cos (raoff) * ((etar + ctan) / (1.0 - (etar * ctan)))); - *ypos = dec / cond2r; - return 0; -} - - -int -dsspix (xpos, ypos, wcs, xpix, ypix) - -/* Routine to determine pixel coordinates for sky position */ -/* returns 0 if successful otherwise 1 = angle too large for projection; */ -/* based on amdinv() from getimage */ - -/* Input: */ -double xpos; /* Right ascension or longitude in degrees */ -double ypos; /* Declination or latitude in degrees */ -struct WorldCoor *wcs; /* WCS parameter structure */ - -/* Output: */ -double *xpix; /* x pixel number (RA or long without rotation) */ -double *ypix; /* y pixel number (dec or lat without rotation) */ - -{ - double div,xi,eta,x,y,xy,x2,y2,x2y,y2x,x3,y3,x4,y4,x2y2,cjunk,dx,dy; - double sypos,cypos,syplate,cyplate,sxdiff,cxdiff; - double f,fx,fy,g,gx,gy, xmm, ymm; - double conr2s = 206264.8062470964; - double tolerance = 0.0000005; - int max_iterations = 50; - int i; - double xr, yr; /* position in radians */ - - *xpix = 0.0; - *ypix = 0.0; - -/* Convert RA and Dec in radians to standard coordinates on a plate */ - xr = degrad (xpos); - yr = degrad (ypos); - sypos = sin (yr); - cypos = cos (yr); - if (wcs->plate_dec == 0.0) - wcs->plate_dec = degrad (wcs->yref); - syplate = sin (wcs->plate_dec); - cyplate = cos (wcs->plate_dec); - if (wcs->plate_ra == 0.0) - wcs->plate_ra = degrad (wcs->yref); - sxdiff = sin (xr - wcs->plate_ra); - cxdiff = cos (xr - wcs->plate_ra); - div = (sypos * syplate) + (cypos * cyplate * cxdiff); - if (div == 0.0) - return (1); - xi = cypos * sxdiff * conr2s / div; - eta = ((sypos * cyplate) - (cypos * syplate * cxdiff)) * conr2s / div; - -/* Set initial value for x,y */ - if (wcs->plate_scale == 0.0) - return (1); - xmm = xi / wcs->plate_scale; - ymm = eta / wcs->plate_scale; - -/* Iterate by Newton's method */ - for (i = 0; i < max_iterations; i++) { - - /* X plate model */ - xy = xmm * ymm; - x2 = xmm * xmm; - y2 = ymm * ymm; - x2y = x2 * ymm; - y2x = y2 * xmm; - x2y2 = x2 + y2; - cjunk = x2y2 * x2y2; - x3 = x2 * xmm; - y3 = y2 * ymm; - x4 = x2 * x2; - y4 = y2 * y2; - f = wcs->x_coeff[0]*xmm + wcs->x_coeff[1]*ymm + - wcs->x_coeff[2] + wcs->x_coeff[3]*x2 + - wcs->x_coeff[4]*xy + wcs->x_coeff[5]*y2 + - wcs->x_coeff[6]*x2y2 + wcs->x_coeff[7]*x3 + - wcs->x_coeff[8]*x2y + wcs->x_coeff[9]*y2x + - wcs->x_coeff[10]*y3 + wcs->x_coeff[11]*xmm*x2y2 + - wcs->x_coeff[12]*xmm*cjunk; - /* magnitude and color terms ignored - + wcs->x_coeff[13]*mag + - wcs->x_coeff[14]*mag*mag + wcs->x_coeff[15]*mag*mag*mag + - wcs->x_coeff[16]*mag*xmm + wcs->x_coeff[17]*mag*(x2+y2) + - wcs->x_coeff[18]*mag*xmm*(x2+y2) + wcs->x_coeff[19]*color; - */ - - /* Derivative of X model wrt x */ - fx = wcs->x_coeff[0] + wcs->x_coeff[3]*2.0*xmm + - wcs->x_coeff[4]*ymm + wcs->x_coeff[6]*2.0*xmm + - wcs->x_coeff[7]*3.0*x2 + wcs->x_coeff[8]*2.0*xy + - wcs->x_coeff[9]*y2 + wcs->x_coeff[11]*(3.0*x2+y2) + - wcs->x_coeff[12]*(5.0*x4 +6.0*x2*y2+y4); - /* magnitude and color terms ignored - wcs->x_coeff[16]*mag + wcs->x_coeff[17]*mag*2.0*xmm + - wcs->x_coeff[18]*mag*(3.0*x2+y2); - */ - - /* Derivative of X model wrt y */ - fy = wcs->x_coeff[1] + wcs->x_coeff[4]*xmm + - wcs->x_coeff[5]*2.0*ymm + wcs->x_coeff[6]*2.0*ymm + - wcs->x_coeff[8]*x2 + wcs->x_coeff[9]*2.0*xy + - wcs->x_coeff[10]*3.0*y2 + wcs->x_coeff[11]*2.0*xy + - wcs->x_coeff[12]*4.0*xy*x2y2; - /* magnitude and color terms ignored - wcs->x_coeff[17]*mag*2.0*ymm + - wcs->x_coeff[18]*mag*2.0*xy; - */ - - /* Y plate model */ - g = wcs->y_coeff[0]*ymm + wcs->y_coeff[1]*xmm + - wcs->y_coeff[2] + wcs->y_coeff[3]*y2 + - wcs->y_coeff[4]*xy + wcs->y_coeff[5]*x2 + - wcs->y_coeff[6]*x2y2 + wcs->y_coeff[7]*y3 + - wcs->y_coeff[8]*y2x + wcs->y_coeff[9]*x2y + - wcs->y_coeff[10]*x3 + wcs->y_coeff[11]*ymm*x2y2 + - wcs->y_coeff[12]*ymm*cjunk; - /* magnitude and color terms ignored - wcs->y_coeff[13]*mag + wcs->y_coeff[14]*mag*mag + - wcs->y_coeff[15]*mag*mag*mag + wcs->y_coeff[16]*mag*ymm + - wcs->y_coeff[17]*mag*x2y2 + - wcs->y_coeff[18]*mag*ymm*x2y2 + wcs->y_coeff[19]*color; - */ - - /* Derivative of Y model wrt x */ - gx = wcs->y_coeff[1] + wcs->y_coeff[4]*ymm + - wcs->y_coeff[5]*2.0*xmm + wcs->y_coeff[6]*2.0*xmm + - wcs->y_coeff[8]*y2 + wcs->y_coeff[9]*2.0*xy + - wcs->y_coeff[10]*3.0*x2 + wcs->y_coeff[11]*2.0*xy + - wcs->y_coeff[12]*4.0*xy*x2y2; - /* magnitude and color terms ignored - wcs->y_coeff[17]*mag*2.0*xmm + - wcs->y_coeff[18]*mag*ymm*2.0*xmm; - */ - - /* Derivative of Y model wrt y */ - gy = wcs->y_coeff[0] + wcs->y_coeff[3]*2.0*ymm + - wcs->y_coeff[4]*xmm + wcs->y_coeff[6]*2.0*ymm + - wcs->y_coeff[7]*3.0*y2 + wcs->y_coeff[8]*2.0*xy + - wcs->y_coeff[9]*x2 + wcs->y_coeff[11]*(x2+3.0*y2) + - wcs->y_coeff[12]*(5.0*y4 + 6.0*x2*y2 + x4); - /* magnitude and color terms ignored - wcs->y_coeff[16]*mag + wcs->y_coeff[17]*mag*2.0*ymm + - wcs->y_coeff[18]*mag*(x2+3.0*y2); - */ - - f = f - xi; - g = g - eta; - dx = ((-f * gy) + (g * fy)) / ((fx * gy) - (fy * gx)); - dy = ((-g * fx) + (f * gx)) / ((fx * gy) - (fy * gx)); - xmm = xmm + dx; - ymm = ymm + dy; - if ((fabs(dx) < tolerance) && (fabs(dy) < tolerance)) break; - } - -/* Convert mm from plate center to plate pixels */ - if (wcs->x_pixel_size == 0.0 || wcs->y_pixel_size == 0.0) - return (1); - x = (wcs->ppo_coeff[2] - xmm*1000.0) / wcs->x_pixel_size; - y = (wcs->ppo_coeff[5] + ymm*1000.0) / wcs->y_pixel_size; - -/* Convert from plate pixels to image pixels */ - *xpix = x - wcs->x_pixel_offset + 1.0 - 0.5; - *ypix = y - wcs->y_pixel_offset + 1.0 - 0.5; - -/* If position is off of the image, return offscale code */ - if (*xpix < 0.5 || *xpix > wcs->nxpix+0.5) - return -1; - if (*ypix < 0.5 || *ypix > wcs->nypix+0.5) - return -1; - - return 0; -} -/* Mar 6 1995 Original version of this code - * May 4 1995 Fix eta cross terms which were all in y - * Jun 21 1995 Add inverse routine - * Oct 17 1995 Fix inverse routine (degrees -> radians) - * Nov 7 1995 Add half pixel to image coordinates to get astrometric - * plate coordinates - * Feb 26 1996 Fix plate to image pixel conversion error - * - * Mar 23 1998 Change names from plate*() to dss*() - * Apr 7 1998 Change amd_i_coeff to i_coeff - * Sep 4 1998 Fix possible divide by zero in dsspos() from Allen Harris, SAO - * Sep 10 1998 Fix possible divide by zero in dsspix() from Allen Harris, SAO - * - * Oct 21 1999 Drop declaration of cond2r in dsspix() - */ |