pro erichsfulls

print,''
print,'This program prints a table of full CCD frames from the current log'

cd,'',current=cdir & cd,cdir

fn=0	;file number
filecheck:
fn=fn+1
file_ck=findfile('C:/erichsfulls_'+sstr(fn))
;stop
if file_ck(0) ne '' then goto,filecheck

close,1
openw,1,'C:/erichsfulls_'+sstr(fn)
Printf,1,'Full Frame Pixel Values from Log: ',cdir
Printf,1,'Image is inverted (readout is at top)."
printf,1,''


print,''
print,'The current Test Log is ',cdir

cd,'DB/Full'
files=findfile('*MMX*', count = nfiles)
numfiles=sstr(nfiles)				;numfiles=short string (nfiles)

print,'The number of Fulls in this log is: ',sstr(nfiles)

auto=1		;for auto=1 tvscl
min=0		;the tvscl min setting
max=4095	;the tvscl max setting
ilast=0		;ilast is the previous value of i

print,''
print,'To quit enter -1, To change mininum enter -2, to change maximum enter -3'
print,'To autoscale enter -4'

again:
 print,'Which file (from 1 to ',numfiles,')? '
 read,i						;i=file index

 if i eq -1 then goto, exit
 if i eq 0 then goto, exit

 if i eq -2 then begin
  auto=0
  read,'Min? ',min
  i=ilast
 endif

 if i eq -3 then begin
  auto=0
  read,'Max? ',max
  i=ilast
 endif

 if i eq -4 then begin
  auto=1
  i=ilast
 endif

 if i gt nfiles then goto,exit

 d_read,files(i-1),h,p
 ;stop

;write pixel values to file...
printf,1,'_________________________________'
printf,1,'Full Frame Pixel Values for File: ',files(i-1)
 printf,1,'Min= ',sstr(min(p)),', Ave= ',sstr(mean(p)),', Max= ',sstr(max(p))
 printf,1,'Exposure (ms) = ',sstr(d_value(h,36)),'   lamps = ',sstr(d_value(h,102))
 printf,1,'CCD Temp = ',sstr(d_value(h,22)),' K'
 columns=findgen(524)
 printf,1,''
 printf,1,columns(0:523),format='("Row\Col",524i7)'
 for irow=0,255 do begin
  printf,1,irow,p(0:523,irow),format='(i7,524i7)
 endfor
 printf,1,''


;print out image to screen...
 ilast=i
 p=rotate(p,2)
 if auto eq 1 then tvscl,p else tvscl,p>min<max
 print,Files(i-1)
 print,'Min= ',sstr(min(p)),', Ave= ',sstr(mean(p)),', Max= ',sstr(max(p))
 print,'Exposure (ms) = ',sstr(d_value(h,36)),'   lamps = ',sstr(d_value(h,102))

;stop
goto, again

exit:
print,'Done'
cd,cdir
close,1
end