;+
; NAME:
;	SMEI_ZOOM
;
;
; PURPOSE:
;	To set zoom factors for SMEI display
;
;
; CATEGORY:
;	CLI (sequence)
;
;
; CALLING SEQUENCE:
;	smei_zoom, seqref, factor[, /inverse, smooth=smooth]
;
;
; INPUTS:
;	seqref	objref	Object reference of a SMEI sequence
;	factor	int	Factor by which to zoom the display. (For
;			reductions, use the /inverse key)
;
;
; KEYWORD PARAMETERS:
;	/inverse	If set, then the zoom factor is 1/factor
;	smooth	int	1 to smooth expanded image, 0 to use blocky expansion.
;
;
; MODIFICATION HISTORY:
;
;-

pro smei_zoom, seqref, factor, inverse = inverse, smooth = smooth, $
               help = help

if keyword_set(help) then begin
    self_help
    return
endif

if not obj_valid(seqref) then begin
    smei_msg, /alert,  'SMEI_OPTS requires an object reference'
    return
endif

if not obj_isa(seqref, 'SMEI_SEQUENCE') then begin
    smei_msg, /alert, $
              'The object you are trying to modify is not a ' + $
              'SMEI_SEQUENCE'
    return
endif

seqref -> set_zoom, factor, inverse = inverse, smooth = smooth

end