;+
; NAME:
;	SMEI_SEQUENCE::GET_ZOOM
;
;
; PURPOSE:
;	To get the zoom factor for showing a smei sequence.
;
;
; CATEGORY:
;	SMEI_SEQUENCE
;
;
; CALLING SEQUENCE:
;	factor=seqref -> get_zoom()
;
;
; OUTPUTS:
;	factor	float	The factor by which to scale the images.
;
;
; KEYWORD PARAMETERS:
;	/raw	If set, then return the internal format of the factor
;		(i.e. integer with negative values for 1/n)
;	/smooth	If set, then return the smoothing flag.
;
;
; MODIFICATION HISTORY:
;	Original: 28/7/03; SJT
;-

function smei_sequence::get_zoom, raw = raw, smooth = smooth

if keyword_set(smooth) then return, self.options.zoom_smooth
if keyword_set(raw) then return, self.options.zoom_factor

factor = float(self.options.zoom_factor)
if factor eq 0. then factor = 1.0
if factor lt 0. then factor = -1.0/factor

return, factor

end