;+
; NAME:
;	SMEI_COMPACT
;
;
; PURPOSE:
;	Compact all the images in a SMEI sequence
;
;
; CATEGORY:
;	CLI
;
;
; CALLING SEQUENCE:
;	smei_compact, seqref
;
;
; INPUTS:
;	seqref	objref	The object reference of the SMEI seqence to be
;			compacted 
;
;
; KEYWORD_PARAMETERS
;	/mk_nan		If set, then convert points in the weighted
;			images with zero weight into NaN values.
;
; MODIFICATION HISTORY:
;	Original: 19/12/02; SJT
;-

pro smei_compact, seqref, mk_nan = mk_nan, help = help

if keyword_set(help) then begin
    self_help
    return
end

if not obj_valid(seqref) then begin
    smei_msg, /alert,  'SMEI_COMPACT 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 -> compact, mk_nan = mk_nan

end