PRO sequence,cam,filt,num,rad
;
dir='c'+STRTRIM(FIX(cam),2)+'f'+STRTRIM(FIX(filt),2)
files=FINDFILE(dir+'/*') & nfiles=N_ELEMENTS(files)
XINTERANIMATE,SET=[512,512,num], $
              TITLE=STRMID(STRUPCASE(files(0)),0,8)
IF N_PARAMS() EQ 4 THEN BEGIN
    mask=BYTARR(256,256)
    d256=SHIFT(DIST(256),128,128)
    wsh=WHERE(d256 LE rad)
    mask(wsh)=1
ENDIF ELSE mask=BYTARR(256,256)+1
FOR i=0,num-1 DO BEGIN
    rdkimg,files(i),h,im
    XINTERANIMATE,IMAGE=REBIN(im*mask,128,128),FRAME=i,ORDER=1
ENDFOR
XINTERANIMATE,100
XINTERANIMATE,/CLOSE
RETURN
END