;+
; NAME:
;	SMEI_SEQUENCE::GET_PROJECTION
;
;
; PURPOSE:
;	Return the image projection of a SMEI sequence.
;
;
; CATEGORY:
;	smei sequence
;
;
; CALLING SEQUENCE:
;	proj = seqref -> get_projection()
;
;
; KEYWORD PARAMETERS:
;	/string		If set, then return a descriptive string
;			rather than a number.
;	/astrom_code	If set, then return the code needed by
;			wcsxy2sph and WCSSPH2XY
;
;
; OUTPUTS:
;	proj	int/str	The projection, either an index or the name.
;
;
; MODIFICATION HISTORY:
;	Original: 18/5/04; SJT
;-

function smei_sequence::get_projection, string = string, astrom_code = $
  astrom_code

img = self -> get_first()
if not obj_valid(img) then begin
    if keyword_set(string) then return, "Unknown"
    return, -1
endif

return, img -> get_projection(string = string, astrom_code = $
                              astrom_code)

end