pro fulls

print,''
print,'This program prints full CCD frames from the current log to the screen'

cd,'',current=cdir & cd,cdir
cd,'DB/Full'

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

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
 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
end