PRO fx960117

c0=['c:\images\dark\cam0\d1700060.004' $
   ,'c:\images\calib\cam0\filt0\c1700001.000' $
   ,'c:\images\calib\cam0\filt0\c1700010.001' $
   ,'c:\images\calib\cam0\filt1\c1701001.000' $
   ,'c:\images\calib\cam0\filt1\c1701010.001' $
   ,'c:\images\calib\cam0\filt2\c1702001.000' $
   ,'c:\images\calib\cam0\filt2\c1702010.001' $
   ,'c:\images\calib\cam0\filt2\c1702060.002' $
   ,'c:\images\calib\cam0\filt3\c1703001.000' $
   ,'c:\images\calib\cam0\filt3\c1703010.001' $
   ,'c:\images\dark\cam0\d1701001.005' $
   ,'c:\images\dark\cam0\d1701010.006' $
   ,'c:\images\dark\cam0\d1700060.005']


c1=['c:\images\dark\cam1\d1710060.004' $
   ,'c:\images\calib\cam1\filt0\c1710001.000' $
   ,'c:\images\calib\cam1\filt0\c1710010.001' $
   ,'c:\images\calib\cam1\filt1\c1711001.000' $
   ,'c:\images\calib\cam1\filt1\c1711010.001' $
   ,'c:\images\calib\cam1\filt2\c1712001.000' $
   ,'c:\images\calib\cam1\filt2\c1712010.001' $
   ,'c:\images\calib\cam1\filt3\c1713001.000' $
   ,'c:\images\calib\cam1\filt3\c1713010.001' $
   ,'c:\images\calib\cam1\filt3\c1713060.002' $
   ,'c:\images\dark\cam1\d1711001.005' $
   ,'c:\images\dark\cam1\d1711010.006' $
   ,'c:\images\dark\cam1\d1710060.005']

n0=N_ELEMENTS(c0)
i0=INTARR(128,128,n0)
h0=BYTARR(512,n0)
FOR i=0,n0-1 DO BEGIN
    rdkimg,c0(i),hb,img
    h0(0,i)=hb
    i0(0,0,i)=img
    ENDFOR
    
n1=N_ELEMENTS(c1)
i1=INTARR(128,128,n1)
h1=BYTARR(512,n1)
FOR i=0,n1-1 DO BEGIN
    rdkimg,c1(i),hb,img
    h1(0,i)=hb
    i1(0,0,i)=img
    ENDFOR

look,i0,dimensions=[n0]

look,i1,dimensions=[n1]

RETURN
END