PRO make_geomtiepts

dir = './Data/geom/'
tab = string(9B)

inst = ['HRIIR', 'HRIVIS', 'MRIVIS', 'ITSVIS']

for i=0,3 do begin
	IF inst[i] EQ 'HRIIR' THEN maxmode = 7 ELSE maxmode = 9
	FOR mode=1, maxmode do begin
		IF inst[i] EQ 'HRIIR' THEN BEGIN
			CASE mode OF
			1: dim=[512,256]
			2: dim=[512,128]
			3: dim=[512,64]
			4: dim=[1024,512]
			5: dim=[512,256]
			6: dim=[1024,512]
			7: dim=[1024,512]
			ENDCASE
		ENDIF ELSE BEGIN
			CASE mode OF
			1: dim=[1024,1024]
			2: dim=[512,512]
			3: dim=[256,256]
			4: dim=[256,256]
			5: dim=[128,128]
			6: dim=[128,128]
			7: dim=[64,64]
			8: dim=[64,64]
			9: dim=[1024,1024]
			ENDCASE
		ENDELSE
		;; Create blank tie points
		x = [0,0,dim[0]-1,dim[0]-1]
		y = [0,dim[1]-1,0,dim[1]-1]
		ties = [[x],[y],[x],[y]]

		;; Generate the header
		mkhdr, hdr, ties
		sxaddpar, hdr, 'BZERO', 0
		sxaddpar, hdr, 'BSCALE', 1
		cmt = strarr(5)
		stars= '***********************************************************************'
		cmt[0] = stars
		cmt[1] = '** This file contains a place holder for the geometric tie points'
		cmt[2] = '** needed to the rubber sheet geometric distortion to account for'
		cmt[3] = '** distortion in the optics.'
		cmt[4] = stars
		sxaddhist, cmt, hdr, /comment
		sxaddpar, hdr, 'MSNCONFG', 'NONE', ' Configuration of the spacecraft'
		sxaddpar, hdr, 'FNORIG', 'N/A', ' Original filename from science team'
		sxaddpar, hdr, 'DATEDLV', 'N/A', ' Date when file was delivered to SDC'
		sxaddpar, hdr, 'AUTHOR', 'N/A', ' Author of this data file'

		;; Output the file
		fn = inst[i]+'_000101_1_'+strtrim(mode,2)+'.fit'
		writefits, dir+fn, ties, hdr
	ENDFOR
ENDFOR

END