Commit 479ca4de authored by Roberto Susino's avatar Roberto Susino
Browse files

Fix bug in Metis WCS keyword structure

parent 750fe3b2

metis_wcs.pro

+13 −15
Original line number Diff line number Diff line
@@ -63,11 +63,12 @@ function metis_wcs, header, cal_pack, ref_detector = ref_detector 


	pc = [[cos(roll), -sin(roll)], [sin(roll), cos(roll)]]



	ctype1 = 'HPLN-TAN'

	ctype2 = 'HPLT-TAN'



	; if requested, transform the wcs matrix to the detector reference frame and adjust the boresight and spacecraft pointing parameters



	if keyword_set(ref_detector) then begin

		ctype1 = 'HPLT-TAN'

		ctype2 = 'HPLN-TAN'

		if header.filter.contains('UV', /fold) then begin

			borpix_prime = borpix

			borpix[0] = detector_size - (borpix_prime[1] - 1.)
@@ -88,10 +89,7 @@ function metis_wcs, header, cal_pack, ref_detector = ref_detector 
			roll = roll + !dpi/2.

			pc = [[cos(roll), -sin(roll)], [sin(roll), cos(roll)]]

		endif

	endif else begin

		ctype1 = 'HPLN-TAN'

		ctype2 = 'HPLT-TAN'

	endelse

	endif

	

	; get sun's center pixel
@@ -187,14 +185,14 @@ function metis_wcs, header, cal_pack, ref_detector = ref_detector 
		name: 'IO_YCEN', $

		value: borpix[1], $

		comment: '[pixel] Metis IO center location along axis 2'}

	; wcs.add, { $

	; 	name: 'FS_XCEN', $

	; 	value: crpix[0], $

	; 	comment: '[pixel] Metis field-stop center location along axis 1'}

	; wcs.add, { $

	; 	name: 'FS_YCEN', $

	; 	value: crpix[1], $

	; 	comment: '[pixel] Metis field-stop center location along axis 2'}

	wcs.add, { $

		name: 'FS_XCEN', $

		value: crpix[0], $

		comment: '[pixel] Metis field-stop center location along axis 1'}

	wcs.add, { $

		name: 'FS_YCEN', $

		value: crpix[1], $

		comment: '[pixel] Metis field-stop center location along axis 2'}

	wcs.add, { $

		name: 'SC_XCEN', $

		value: pntpix[0], $