wcsinit.c		wcsinit.c
	/*** File libwcs/wcsinit.c		/*** File libwcs/wcsinit.c
	*** March 18, 2011		*** September 1, 2011
	*** By Doug Mink, dmink@cfa.harvard.edu		*** By Doug Mink, dmink@cfa.harvard.edu
	*** Harvard-Smithsonian Center for Astrophysics		*** Harvard-Smithsonian Center for Astrophysics
	*** Copyright (C) 1998-2011		*** Copyright (C) 1998-2011
	*** Smithsonian Astrophysical Observatory, Cambridge, MA, USA		*** Smithsonian Astrophysical Observatory, Cambridge, MA, USA
	This library is free software; you can redistribute it and/or		This library is free software; you can redistribute it and/or
	modify it under the terms of the GNU Lesser General Public		modify it under the terms of the GNU Lesser General Public
	License as published by the Free Software Foundation; either		License as published by the Free Software Foundation; either
	version 2 of the License, or (at your option) any later version.		version 2 of the License, or (at your option) any later version.
	skipping to change at line 553		skipping to change at line 553
	/* Initialize ZPX, defaulting to ZPN if there is a problem */		/* Initialize ZPX, defaulting to ZPN if there is a problem */
	if (wcs->prjcode == WCS_ZPX) {		if (wcs->prjcode == WCS_ZPX) {
	if (zpxinit (hstring, wcs)) {		if (zpxinit (hstring, wcs)) {
	wcs->ctype[0][7] = 'N';		wcs->ctype[0][7] = 'N';
	wcs->ctype[1][7] = 'N';		wcs->ctype[1][7] = 'N';
	wcs->prjcode = WCS_ZPN;		wcs->prjcode = WCS_ZPN;
	}		}
	}		}
			/* Set TPV to TAN as SCAMP coefficients will be added below */
			if (wcs->prjcode == WCS_TPV) {
			wcs->ctype[0][6] = 'A';
			wcs->ctype[0][7] = 'N';
			wcs->ctype[1][6] = 'A';
			wcs->ctype[1][7] = 'N';
			wcs->prjcode = WCS_TAN;
			}
	/* Coordinate reference frame, equinox, and epoch */		/* Coordinate reference frame, equinox, and epoch */
	if (wcs->wcsproj > 0)		if (wcs->wcsproj > 0)
	wcseqm (hstring, wcs, &mchar);		wcseqm (hstring, wcs, &mchar);
	wcsioset (wcs);		wcsioset (wcs);
	/* Read distortion coefficients, if present */		/* Read distortion coefficients, if present */
	distortinit (wcs, hstring);		distortinit (wcs, hstring);
	/* Use polynomial fit instead of projection, if present */		/* Use polynomial fit instead of projection, if present */
	wcs->ncoeff1 = 0;		wcs->ncoeff1 = 0;
	skipping to change at line 1588		skipping to change at line 1597
	* Oct 17 2007 Fix bug testing &mchar instead of mchar in if statement		* Oct 17 2007 Fix bug testing &mchar instead of mchar in if statement
	*		*
	* May 9 2008 Initialize TNX projection when projection types first set		* May 9 2008 Initialize TNX projection when projection types first set
	* Jun 27 2008 If NAXIS1 and NAXIS2 not present, check for IMAGEW and IMAGE H		* Jun 27 2008 If NAXIS1 and NAXIS2 not present, check for IMAGEW and IMAGE H
	*		*
	* Mar 24 2009 Fix dimension bug if NAXISi not present (fix from John Burns )		* Mar 24 2009 Fix dimension bug if NAXISi not present (fix from John Burns )
	*		*
	* Mar 11 2011 Add NOAO ZPX projection (Frank Valdes)		* Mar 11 2011 Add NOAO ZPX projection (Frank Valdes)
	* Mar 18 2011 Add invert_wcs() by Emmanuel Bertin for SCAMP		* Mar 18 2011 Add invert_wcs() by Emmanuel Bertin for SCAMP
	* Mar 18 2011 Change Bertin's ARCSEC/DEG to S2D and DEG/ARCSEC to D2S		* Mar 18 2011 Change Bertin's ARCSEC/DEG to S2D and DEG/ARCSEC to D2S
			* Sep 1 2011 Add TPV as TAN with SCAMP PVs
	*/		*/
End of changes. 3 change blocks.
	1 lines changed or deleted		11 lines changed or added
This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/