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