;+
; NAME:
;	SMEI_SEQUENCE::COMPACT
;
;
; PURPOSE:
;	Compacts all the images in a sequence
;
;
; CATEGORY:
;	SMEI_SEQUENCE
;
;
; CALLING SEQUENCE:
;	seqref -> compact
;
;
; KEYWORD_PARAMETERS
;	/mk_nan		If set, then convert points in the weighted
;			images with zero weight into NaN values.
;
; MODIFICATION HISTORY:
;	Original: 13/12/02; SJT
;-

pro smei_sequence::compact, mk_nan = mk_nan

im = self -> get_first()
while obj_valid(im) do begin
    im -> compact, mk_nan = mk_nan
    im = im -> get_next()
endwhile

end