;  
; Animate calibrated and rotated SwRI eclipse images
; Apply radial filter
;

pixX = 1024
pixY = 256
img = intarr(pixX,pixY)
mask = fltarr(pixX,pixY)

close,1
openr,1,'r7mask'
readu,1,mask
close,1

loadct,3
 
filenm=' '
listfile='./donlist'
 
    ; When you want to stop animating, hit any character. 
    ; You might then have to do a "retall" in idl
 
    close,13 & openr,13,listfile
    ii=0 
    while ( not eof(13) ) do begin & readf,13,filenm & ii=ii+1 & endwhile
    close,13
    numimgs=ii
    print,ii," images"
 
    if ( numimgs gt 1 ) then xinteranimate,set=[pixX,pixY,numimgs],/SHOWLOAD 
 
    close,13 & openr,13,listfile

    ii=0 
    while ( not eof(13) ) do begin ;{
	img=intarr(pixX,pixY)
        readf,13,filenm
	print,filenm
	close,1 & openr,1,filenm
	readu,1,img
	fimg=img
	fred = mask*img/12.
	img = fix(fred)
;; Following lines used to create .gif images for movie file
;fred = bytscl(img,0,255)
;str = string(filenm,'.gif')
;write_gif,str,fred
;;;
	if (numimgs gt 1) then xinteranimate,image=img,frame=ii 
        ii=ii+1
    endwhile ;} 
 
    close,13
 
    xinteranimate,3.0,/KEEP_PIXMAPS

    stop

end