f=rfindfile('\images\airglow\cam0\filt0\g15*.*',count=nf)
rdkimg,f(0),hb,im & h=gethd(hb)
print,f(0),h.misc.tm,total(im(63:64,63:64))
f=rfindfile('\images\airglow\cam0\filt1\g15*.*',count=nf)
rdkimg,f(0),hb,im & h=gethd(hb)
print,f(0),h.misc.tm,total(im(63:64,63:64))
f=rfindfile('\images\airglow\cam0\filt2\g15*.*',count=nf)
rdkimg,f(0),hb,im & h=gethd(hb)
print,f(0),h.misc.tm,total(im(63:64,63:64))
f=rfindfile('\images\airglow\cam1\filt0\g15*.*',count=nf)
rdkimg,f(0),hb,im & h=gethd(hb)
print,f(0),h.misc.tm,total(im(63:64,63:64))
f=rfindfile('\images\airglow\cam1\filt1\g15*.*',count=nf)
rdkimg,f(0),hb,im & h=gethd(hb)
print,f(0),h.misc.tm,total(im(63:64,63:64))
f=rfindfile('\images\airglow\cam1\filt2\g15*.*',count=nf)
rdkimg,f(0),hb,im & h=gethd(hb)
print,f(0),h.misc.tm,total(im(63:64,63:64))
f=rfindfile('\images\airglow\cam1\filt3\g15*.*',count=nf)
rdkimg,f(0),hb,im & h=gethd(hb)
print,f(0),h.misc.tm,total(im(63:64,63:64))
f15=strarr(7)
f=rfindfile('\images\airglow\cam0\filt0\g15*.*',count=nf)
i=-1
i=i+1
f15(i)=f(0)
f=rfindfile('\images\airglow\cam0\filt1\g15*.*',count=nf)
i=i+1
f15(i)=f(0)
f=rfindfile('\images\airglow\cam0\filt2\g15*.*',count=nf)
i=i+1
f15(i)=f(0)
f=rfindfile('\images\airglow\cam1\filt0\g15*.*',count=nf)
i=i+1
f15(i)=f(0)
f=rfindfile('\images\airglow\cam1\filt1\g15*.*',count=nf)
i=i+1
f15(i)=f(0)
f=rfindfile('\images\airglow\cam1\filt2\g15*.*',count=nf)
i=i+1
f15(i)=f(0)
f=rfindfile('\images\airglow\cam1\filt3\g15*.*',count=nf)
i=i+1
f15(i)=f(0)
print,f15
window,0
!order=1
for i=0,6 do begin
rdkimg,f15(i),hb,im
lim=pcentile(im,[0.01,0.99]) & print,lim
tvscl,im>lim(0)<lim(1),i
endfor
end