dome = 1 if ( dome ) then begin ;{ window,xsize=678,ysize=678 window,2,xsize=600,ysize=400 endif ;} close,1 & close,13 mywin=0 fpos=lonarr(500) & ftmp=long(0) & ii=0 pmn = 2000. & pmx = 4000. lfilenm = 'elist' filenm=' ' close,13 & openr,13,lfilenm while ( not eof(13) ) do begin ;{ point_lun,-13,ftmp & fpos(ii)=ftmp readf,13,filenm img = readfits(filenm,hdr) xsz = fix(sxpar (hdr , 'NAXIS1')) ysz = fix(sxpar (hdr , 'NAXIS2')) expt = float(sxpar (hdr , 'SHUTTER')) lcvrv = fix(sxpar (hdr , 'LCVR-V')) lcvrt = float(sxpar (hdr , 'LCVR-T')) byteorder,img img = long(img) img = (img lt 0 ) * ( img + 32768 + 32768) + (img ge 0)*(img) mn = min(img(0:500,0:500),max=mx) simg = rebin(img, 678,678) avg = total(float(img(0:500,0:500))) /( 501.*501.) avg = 3200. print,filenm,' min,max,avg ',mn,mx, avg print, expt,lcvrv,lcvrt,' time ', ' volts ' , ' temp ' print,' ' if ( dome ) then begin ;{ wset,0 & tv,bytscl(img(0:500,0:500),min=avg-200,max=avg+200) wset,2 plot,[0,50],[pmn,pmx],/nodata,xstyle=1,ystyle=1 oplot,img(200,0:50) oplot,img(0:50,200),psym=2 ;;if(mywin eq 0)then begin ;{ ;;cursor,x,y,/NORMAL ;;if ( !ERR eq 2 ) then begin ;{ ;; ii=ii-1 & if (ii le 0) then ii=0 ;; point_lun,13,fpos(ii) ;;endif else begin ;}{ ;; ii=ii+1 ;;endelse ;} ;;endif;} endif;} endwhile ;} close,13 end