updated release (7f8ebf7b) · Commits · Scige''John Liu / ViaLacteaVisualAnalytics

Code/script_idl_mv/.DS_Store

deleted100644 → 0

−10 KiB

File deleted.

View file

Code/script_idl_mv/astrolib/.idlwave_catalog

deleted100644 → 0

+0 −583

File deleted.

Preview size limit exceeded, changes collapsed.

Code/script_idl_mv/astrolib/ad2xy.pro

deleted100644 → 0

+0 −326

Original line number	Original line	Diff line number	Diff line
	pro ad2xy, a, d, astr, x, y
	;+
	; NAME:
	; AD2XY
	; PURPOSE:
	; Compute X and Y from native coordinates and a FITS astrometry structure
	; EXPLANATION:
	; If a WCS projection (Calabretta & Greisen 2002, A&A, 395, 1077) is
	; present, then the procedure WCSXY2SPH is used to compute native
	; coordinates. If distortion is present then this is corrected.
	; In all cases, the inverse of the CD matrix is applied and offset
	; from the reference pixel to obtain X and Y.
	;
	; AD2XY is generally meant to be used internal to other procedures. For
	; interactive purposes, use ADXY.
	;
	; CALLING SEQUENCE:
	; AD2XY, a ,d, astr, x, y
	;
	; INPUTS:
	; A - R.A. or longitude in DEGREES, scalar or vector.
	; D - Dec. or longitude in DEGREES, scalar or vector
	; If the input A and D are arrays with 2 or more dimensions,
	; they will be converted to a 1-D vectors.
	; ASTR - astrometry structure, output from EXTAST procedure containing:
	; .CD - 2 x 2 array containing the astrometry parameters CD1_1 CD1_2
	; in DEGREES/PIXEL CD2_1 CD2_2
	; .CDELT - 2 element vector giving increment at reference point in
	; DEGREES/PIXEL
	; .CRPIX - 2 element vector giving X and Y coordinates of reference pixel
	; (def = NAXIS/2) in FITS convention (first pixel is 1,1)
	; .CRVAL - 2 element vector giving coordinates of the reference pixel
	; in DEGREES
	; .CTYPE - 2 element vector giving projection types
	; .LONGPOLE - scalar longitude of north pole (default = 180)
	; .PV2 - Vector of additional parameter (e.g. PV2_1, PV2_2) needed in
	; some projections
	;
	; Fields added for version 2:
	; .PV1 - Vector of projection parameters associated with longitude axis
	; .AXES - 2 element integer vector giving the FITS-convention axis
	; numbers associated with astrometry, in ascending order.
	; Default [1,2].
	; .REVERSE - byte, true if first astrometry axis is Dec/latitude
	; .COORDSYS - 1 or 2 character code giving coordinate system, including
	; 'C' = RA/Dec, 'G' = Galactic, 'E' = Ecliptic, 'X' = unknown.
	; .RADECSYS - String giving RA/Dec system e.g. 'FK4', 'ICRS' etc.
	; .EQUINOX - Double giving the epoch of the mean equator and equinox
	; .DATEOBS - Text string giving (start) date/time of observations
	; .MJDOBS - Modified julian date of start of observations.
	; .X0Y0 - Implied offset in intermediate world coordinates if user has
	; specified a non-standard fiducial point via PV1 and also
	; has set PV1_0a =/ 0 to indicate that the offset should be
	; applied in order to place CRVAL at the IWC origin.
	; Should be added to the IWC derived from application of
	; CRPIX, CDELT, CD to the pixel coordinates.
	;
	; .DISTORT - Optional substructure specifying distortion parameters
	;
	; OUTPUTS:
	; X - row position in pixels, scalar or vector
	; Y - column position in pixels, scalar or vector
	;
	; X,Y will be in the standard IDL convention (first pixel is 0), and
	; not the FITS convention (first pixel is 1)
	; NOTES:
	; AD2XY tests for presence of WCS coordinates by the presence of a dash
	; in the 5th character position in the value of CTYPE (e.g 'DEC--SIN').
	; COMMON BLOCKS:
	; BROYDEN_COMMON - Used when solving for a reverse distortion tranformation
	; (either SIP or TGV) by iterating on the forward transformation.
	; PROCEDURES USED:
	; CGErrorMsg (from Coyote Library)
	; TAG_EXIST(), WCSSPH2XY
	; REVISION HISTORY:
	; Converted to IDL by B. Boothman, SASC Tech, 4/21/86
	; Use astrometry structure, W. Landsman Jan. 1994
	; Do computation correctly in degrees W. Landsman Dec. 1994
	; Only pass 2 CRVAL values to WCSSPH2XY W. Landsman June 1995
	; Don't subscript CTYPE W. Landsman August 1995
	; Understand reversed X,Y (X-Dec, Y-RA) axes, W. Landsman October 1998
	; Consistent conversion between CROTA and CD matrix W. Landsman October 2000
	; No special case for tangent projection W. Landsman June 2003
	; Work for non-WCS coordinate transformations W. Landsman Oct 2004
	; Use CRVAL reference point for non-WCS transformation W.L. March 2007
	; Use post V6.0 notation W.L. July 2009
	; Allows use of Version 2 astrometry structure & optimised for
	; large input arrays. Wrap test for cylindrical coords. J. P. Leahy July 2013
	; Wrap test failed for 2d input arrays
	; T. Ellsworth-Bowers/W.Landsman July 2013
	; Tweaked to restore shape of arrays on exit JPL Aug 2013.
	; ..and make them scalars if input is scalar JPL Aug 2013
	; Iterate when forward SIP coefficients are supplied but not the reverse
	; coefficients. Don't compute poles if not a cylindrical system
	; W. Landsman Dec 2013
	; Evaluate TPV distortion (SCAMP) if present W. Landsman Jan 2014
	; Support IRAF TNX projection M. Sullivan U. of Southhamptom Mar 2014
	; No longer check that CDELT[0] differs from 1 W. Landsman Apr 2015
	;
	;-

	compile_opt idl2
	common broyden_coeff, xcoeff, ycoeff


	if N_params() lT 4 then begin
	print,'Syntax -- AD2XY, a, d, astr, x, y'
	return
	endif

	Catch, theError
	IF theError NE 0 then begin
	Catch,/Cancel
	void = cgErrorMsg(/quiet)
	RETURN
	ENDIF

	if tag_exist(astr,'DISTORT') && ((astr.distort.name EQ 'TPV') \|\| (astr.distort.name EQ 'TNX')) then $
	ctype = strmid(astr.ctype,0,4) + '-TAN' else ctype = astr.ctype
	crval = astr.crval

	testing = 0B
	size_a = SIZE(a)
	ndima = size_a[0]

	astr2 = TAG_EXIST(astr,'AXES') ; version 2 astrometry structure
	IF astr2 THEN reverse = astr.reverse ELSE BEGIN
	coord = strmid(ctype,0,4)
	reverse = ((coord[0] EQ 'DEC-') && (coord[1] EQ 'RA--')) \|\| $
	((coord[0] EQ 'GLAT') && (coord[1] EQ 'GLON')) \|\| $
	((coord[0] EQ 'ELAT') && (coord[1] EQ 'ELON'))
	ENDELSE
	if reverse then crval = rotate(crval,2) ;Invert CRVAL?

	if (ctype[0] EQ '') then begin
	ctype = ['RA---TAN','DEC--TAN']
	message,'No CTYPE specified - assuming TANgent projection',/INF
	endif

	spherical = strmid(astr.ctype[0],4,1) EQ '-'
	if spherical then begin
	IF astr2 THEN BEGIN
	cylin = WHERE(astr.projection EQ ['CYP','CAR','MER','CEA','HPX'],Ncyl)
	IF Ncyl GT 0 THEN BEGIN
	testing = 1
	size_d = SIZE(d)
	ndimd = size_d[0]
	IF ndima GT 1 THEN a = REFORM(a, size_a[ndima+2], /OVERWRITE)
	IF ndimd GT 1 THEN d = REFORM(d, size_d[ndimd+2], /OVERWRITE)
	a0 = [a, 0d0,180d0] & d0 = [d, 0d0, 0d0] ; test points
	wcssph2xy, a0, d0, xsi, eta, CTYPE = ctype, PV1 = astr.pv1, $
	PV2 = astr.pv2, CRVAL = crval, CRXY = astr.x0y0
	ENDIF ELSE BEGIN
	pv1 = astr.pv1
	pv2 = astr.pv2
	if tag_exist(astr,'DISTORT') then $
	if astr.distort.name EQ 'TPV' then begin
	pv1 = [0.0d,0,90.0d,180d,90d] ;Tangent projection
	pv2 = [0.0,0.0]
	ENDIF
	wcssph2xy, a, d, xsi, eta, CTYPE = ctype, PV1 = pv1, $
	PV2 = pv2, CRVAL = crval, CRXY = astr.x0y0
	ENDELSE
	ENDIF ELSE wcssph2xy, a, d, xsi, eta, CTYPE = ctype, PV2 = astr.pv2, $
	LONGPOLE = astr.longpole, CRVAL = crval, LATPOLE = astr.latpole
	endif else begin
	xsi = a - crval[0] & eta = d - crval[1]
	endelse
	cd = astr.cd
	cdelt = astr.cdelt

	cd[0,0] = cdelt[0] & cd[0,1] = cdelt[0]
	cd[1,1] = cdelt[1] & cd[1,0] = cdelt[1]

	if reverse then begin
	temp = TEMPORARY(xsi) & xsi = TEMPORARY(eta) & eta = TEMPORARY(temp)
	endif

	if tag_exist(astr,'DISTORT') && (astr.distort.name EQ 'TPV') then begin
	ctype = strmid(astr.ctype,0,4) + '-TAN'
	xcoeff = astr.pv1
	ycoeff = astr.pv2
	x0 = xcoeff[0]
	y0 = ycoeff[0]
	for i=0, N_elements(xsi)-1 do begin
	xcoeff[0] = x0 - xsi[i]
	ycoeff[0] = y0 - eta[i]
	res = broyden([xsi[i],eta[i]], 'TPV_EVAL' )
	xsi[i] = res[0]
	eta[i] = res[1]
	endfor
	ENDIF
	if tag_exist(astr,'DISTORT') && (astr.distort.name EQ 'TNX') then begin
	ctype = strmid(astr.ctype,0,4) + '-TAN'
	xcoeff = astr.distort.lngcor
	ycoeff = astr.distort.latcor
	x0 = xcoeff.coeff[0]
	y0 = ycoeff.coeff[0]
	for i=0, N_elements(xsi)-1 do begin
	xcoeff.coeff[0] = x0 - xsi[i]
	ycoeff.coeff[0] = y0 - eta[i]
	res = broyden([xsi[i],eta[i]], 'TNX_EVAL' )
	xsi[i] = res[0]
	eta[i] = res[1]
	endfor
	ENDIF

	crpix = astr.crpix - 1

	cdinv = invert(cd)
	x = ( cdinv[0,0]xsi + cdinv[0,1]eta )
	y = ( cdinv[1,0]TEMPORARY(xsi) + cdinv[1,1]TEMPORARY(eta) )

	if tag_exist(astr,'DISTORT') && ( astr.distort.name EQ 'SIP') then begin
	distort = astr.distort
	ap = distort.ap
	bp = distort.bp
	na = ((size(ap,/dimen))[0])
	; If reverse SIP coefficients are not supplied we iterate on the forward
	; coefficients (using BROYDEN).
	if na LE 1 then begin
	xcoeff = distort.a
	ycoeff = distort.b
	x0 = xcoeff[0]
	y0 = ycoeff[0]
	for i=0, N_elements(x)-1 do begin
	xcoeff[0] = x0 - x[i]
	ycoeff[0] = y0 - y[i]
	res = broyden([x[i],y[i]], 'SIP_EVAL' )
	x[i] = res[0]
	y[i] = res[1]
	endfor
	endif else begin
	xdif1 = x
	ydif1 = y
	for i=0,na-1 do begin
	for j=0,na-1 do begin
	if ap[i,j] NE 0.0 then xdif1 += x^iy^jap[i,j]
	if bp[i,j] NE 0.0 then ydif1 += x^iy^jbp[i,j]
	endfor
	endfor

	x = xdif1
	y = ydif1
	ENDELSE
	ENDIF

	x += crpix[0]
	y += crpix[1]

	; Check for wrapping in cylindrical projections: since the same phi
	; appears at regular intervals in (x,y), depending on the location of
	; the reference point on the pixel grid, some of the returned pixel
	; values may be offset by 360 degrees from the ones we want.
	;
	; The pixel grid may be rotated relative to intermediate world coords,
	; so the offset may have both x and y components in pixel space.
	;
	; Doesn't try if native and astronomical poles are misaligned
	; as this fix doesn't work in that case.

	IF testing THEN BEGIN
	npt = N_ELEMENTS(a)
	x0 = x[npt:npt+1] & y0 = y[npt:npt+1]
	x = x[0:npt-1] & y = y[0:npt-1]

	crval = astr.crval
	IF astr.reverse THEN crval = REVERSE(crval)
	WCS_GETPOLE, crval, astr.pv1[3]-astr.pv1[1], astr.pv1[2], $
	alpha_p, delta_p, $
	LATPOLE = astr.pv1[4], AT_POLE = at_pole
	IF at_pole THEN BEGIN
	naxis = astr.naxis
	offmap = WHERE(x LT 0 OR y LT 0 OR $
	x GT naxis[0] OR y GT naxis[1], noff)
	IF offmap[0] NE -1 THEN BEGIN
	; 360 degree shift
	x360 = 2d0*(x0[1] - x0[0])
	y360 = 2d0*(y0[1] - y0[0])
	IF x360 LT 0 THEN BEGIN
	x360 *= -1d0
	y360 *= -1d0
	ENDIF
	xshift = x360 NE 0d0
	yshift = y360 NE 0d0
	; Figure out which direction shift is
	IF xshift THEN BEGIN
	IF (MIN(x[offmap],/NAN) LT 0) THEN BEGIN
	x[offmap] += x360
	IF yshift THEN y[offmap] += y360
	ENDIF ELSE IF MAX(x[offmap],/NAN) GT naxis[0] THEN BEGIN
	x[offmap] -= x360
	IF yshift THEN y[offmap] -= y360
	ENDIF
	ENDIF ELSE BEGIN
	IF y360 LT 0 THEN BEGIN
	x360 *= -1d0
	y360 *= -1d0
	ENDIF
	IF (MIN(y[offmap],/NAN) LT 0) THEN BEGIN
	IF xshift THEN x[offmap] += x360
	y[offmap] += y360
	ENDIF ELSE BEGIN
	IF xshift THEN x[offmap] -= x360
	y[offmap] -= y360
	ENDELSE
	ENDELSE
	ENDIF
	ENDIF
	ENDIF


	IF ndima GT 1 THEN BEGIN
	a = REFORM(a, size_a[1:ndima], /OVERWRITE)
	d = REFORM(d, size_a[1:ndima], /OVERWRITE)
	x = REFORM(x, size_a[1:ndima], /OVERWRITE)
	y = REFORM(y, size_a[1:ndima], /OVERWRITE)
	ENDIF ELSE if ndima EQ 0 THEN BEGIN
	a = a[0]
	d = d[0]
	x = x[0]
	y = y[0]
	ENDIF

	return
	end

Code/script_idl_mv/astrolib/add_distort.pro

deleted100644 → 0

+0 −161

Original line number	Original line	Diff line number	Diff line
	pro add_distort, hdr, astr
	; NAME:
	; ADD_DISTORT
	; PURPOSE:
	; Add the distortion parameters in an astrometry structure to a FITS header.
	; EXPLANATION:
	; Called by PUTAST to add SIP (http://fits.gsfc.nasa.gov/registry/sip.html )
	; or TNX ( http://fits.gsfc.nasa.gov/registry/tnx.html ) distortion
	; parameters in an astrometry structure to a FITS header
	;
	; Prior to April 2012, PUTAST did not add distortion parameters so one
	; had to call ADD_DISTORT after PUTAST.
	;
	; IDL> putast,h ,astr0
	; IDL> add_distort,h,astr0
	;
	; CALLING SEQUENCE:
	; add_distort, hdr, astr
	;
	; INPUTS:
	; HDR - FITS header, string array. HDR will be updated to contain
	; the supplied astrometry.
	; ASTR - IDL structure containing values of the astrometry parameters
	; CDELT, CRPIX, CRVAL, CTYPE, LONGPOLE, PV2, and DISTORT
	; See EXTAST.PRO for more info about the structure definition
	;
	; PROCEDURES USED:
	; SXADDPAR, TAG_EXIST()
	; REVISION HISTORY:
	; Written by W. Landsman May 2005
	; Enforce i+j = n for ij coefficients of order n W. Landsman April 2012
	; Support IRAF TNX distortion M. Sullivan March 2014
	;;-
	npar = N_params()

	if ( npar LT 2 ) then begin ;Was header supplied?
	print,'Syntax: ADD_DISTORT, Hdr, astr'
	return
	endif

	add_distort = tag_exist(astr,'distort')
	IF(~ add_distort)THEN RETURN

	IF(astr.distort.name EQ 'SIP') then begin

	sxaddpar,hdr,'CTYPE1','RA---TAN-SIP'
	sxaddpar,hdr,'CTYPE2','DEC--TAN-SIP'
	distort = astr.distort
	a_dimen = size(distort.a,/dimen)
	b_dimen = size(distort.b,/dimen)
	ap_dimen = size(distort.ap,/dimen)
	bp_dimen = size(distort.bp,/dimen)

	if a_dimen[0] GT 0 then begin
	a_order = a_dimen[0]-1
	sxaddpar, hdr, 'A_ORDER', a_order, /savec, $
	'polynomial order, axis 1, detector to sky '
	for i=0, a_order do begin
	for j = 0, a_order-i do begin
	aij = distort.a[i,j]
	if aij NE 0.0 then $
	sxaddpar, hdr, 'A_' + strtrim(i,2)+ '_' + strtrim(j,2), aij, $
	' distortion coefficient', /savec
	endfor
	endfor
	endif

	if b_dimen[0] GT 0 then begin
	b_order = b_dimen[0]-1
	sxaddpar, hdr, 'B_ORDER', a_order, /savec , $
	'polynomial order, axis 2, detector to sky'
	for i=0, b_order do begin
	for j = 0, b_order-i do begin
	bij = distort.b[i,j]
	if bij NE 0.0 then $
	sxaddpar, hdr, 'B_' + strtrim(i,2)+ '_' + strtrim(j,2), bij, $
	' distortion coefficient', /savec
	endfor
	endfor
	endif

	if ap_dimen[0] GT 0 then begin
	ap_order = ap_dimen[0]-1
	sxaddpar, hdr, 'AP_ORDER', a_order, /savec, $
	' polynomial order, axis 1, sky to detector '
	for i=0, ap_order do begin
	for j = 0, ap_order-i do begin
	apij = distort.ap[i,j]
	if apij NE 0.0 then $
	sxaddpar, hdr, 'AP_' + strtrim(i,2)+ '_' + strtrim(j,2), apij, $
	' distortion coefficient', /savec
	endfor
	endfor
	endif


	if bp_dimen[0] GT 0 then begin
	bp_order = bp_dimen[0]-1
	sxaddpar, hdr, 'BP_ORDER', a_order, /savec, $
	' polynomial order, axis 2, sky to detector '
	for i=0, bp_order do begin
	for j = 0, bp_order-i do begin
	bpij = distort.bp[i,j]
	if bpij NE 0.0 then $
	sxaddpar, hdr, 'BP_' + strtrim(i,2)+ '_' + strtrim(j,2), bpij, $
	' distortion coefficient', /savec
	endfor
	endfor
	endif

	ENDIF ELSE IF(astr.distort.name EQ 'TNX')THEN BEGIN

	sxaddpar, hdr,'WAT0_001','system=image'

	string1='wtype=tnx axtype=ra lngcor = "3.'
	string1+= ' '+STRN(astr.distort.lngcor.xiorder,FORMAT='(F2.0)')
	string1+= ' '+STRN(astr.distort.lngcor.etaorder,FORMAT='(F2.0)')
	string1+= ' '+STRN(astr.distort.lngcor.xterms,FORMAT='(F2.0)')
	string1+= ' '+STRN(astr.distort.lngcor.ximin,FORMAT='(F19.16)')
	string1+= ' '+STRN(astr.distort.lngcor.ximax,FORMAT='(F19.16)')
	string1+= ' '+STRN(astr.distort.lngcor.etamin,FORMAT='(F19.16)')
	string1+= ' '+STRN(astr.distort.lngcor.etamax,FORMAT='(F19.16)')
	FOR i=0,N_ELEMENTS(astr.distort.lngcor.coeff)-1 DO BEGIN
	string1+=' '+STRN(astr.distort.lngcor.coeff[i],FORMAT='(F19.16)')
	ENDFOR
	string1+= '"'

	string2='wtype=tnx axtype=dec latcor = "3. '
	string2+= ' '+STRN(astr.distort.latcor.xiorder,FORMAT='(F2.0)')
	string2+= ' '+STRN(astr.distort.latcor.etaorder,FORMAT='(F2.0)')
	string2+= ' '+STRN(astr.distort.latcor.xterms,FORMAT='(F2.0)')
	string2+= ' '+STRN(astr.distort.latcor.ximin,FORMAT='(F19.16)')
	string2+= ' '+STRN(astr.distort.latcor.ximax,FORMAT='(F19.16)')
	string2+= ' '+STRN(astr.distort.latcor.etamin,FORMAT='(F19.16)')
	string2+= ' '+STRN(astr.distort.latcor.etamax,FORMAT='(F19.16)')
	FOR i=0,N_ELEMENTS(astr.distort.latcor.coeff)-1 DO BEGIN
	string2+= ' '+STRN(astr.distort.latcor.coeff[i],FORMAT='(F19.16)')
	ENDFOR
	string2+= '"'

	len1=STRLEN(string1)
	n1=len1/70
	IF(len1 MOD 68 GT 0)THEN n1++
	FOR i=0,n1-1 DO BEGIN
	s=STRMID(string1,i*68,68)
	; PRINT,'WAT1_'+STRN(i+1,FORMAT='(I3.3)'),' ',s
	sxaddpar, hdr,'WAT1_'+STRN(i+1,FORMAT='(I3.3)'),s
	ENDFOR
	len2=STRLEN(string2)
	n2=len2/70
	IF(len2 MOD 68 GT 0)THEN n2++
	FOR i=0,n2-1 DO BEGIN
	s=STRMID(string2,i*68,68)
	; PRINT,'WAT1_'+STRN(i+1,FORMAT='(I3.3)'),' ',s
	sxaddpar, hdr,'WAT2_'+STRN(i+1,FORMAT='(I3.3)'),s
	ENDFOR

	ENDIF

	return
	end

Code/script_idl_mv/astrolib/adstring.pro

deleted100644 → 0

+0 −208

File deleted.

Preview size limit exceeded, changes collapsed.