;  
; Create a small number of images for animation
; 
;

pixX = 1024
pixY = 256
window,0,xsize=pixX,ysize=pixY
img = fltarr(pixX,pixY)

loadct,9
 
filenm=' '
outfile='ecl_avg'
listfile='./elist.cal.sft.sft'
 
    close,13 & openr,13,listfile

    ii=0 
    while ( not eof(13) ) do begin ;{
	fimg = fltarr(pixX,pixY)
	for jj=0,6 do begin
		img=fltarr(pixX,pixY)
		readf,13,filenm
		close,1 & openr,1,filenm
		readu,1,img
		fimg = fimg + img
	end
	fimg = fimg/7.
	img = fix(fimg)
	str = string(outfile,ii,format="(a7,'.',i1)")
	print,str
	close,2 & openw,2,str & writeu,2,fix(img) & close,2
	tv,img/16
	ii = ii+1
    endwhile ;} 
 
   close,13

    stop

end