close,1 window,0,xsize=940,ysize=500 erase date='94d339' bimg=bytarr(940,500) comp=intarr(570,570) _a=bytarr(256) & _b=bytarr(256) & _c=bytarr(256) openr,11,'/home/puu/cordyn/color_idl/qual.rgb' readu,11,_a & readu,11,_b & readu,11,_c & close,11 tvlct,_a,_b,_c bot=50 mn=0 & mx=4000 filenm=date+'.comp1' close,1 & openr,1,filenm & readu,1,comp & close,1 comp=(comp gt 13000)*200 + (comp le 13000) * comp bimg(20:20+284,bot:bot+284) = rebin(bytscl(comp,min=mn,max=mx),285,285) filenm=date+'.comp2' close,1 & openr,1,filenm & readu,1,comp & close,1 boing=comp comp=(comp eq 0)*200 + (comp ne 0) * comp bimg(40+284:40+284*2,bot:bot+284) = rebin(bytscl(comp,min=mn,max=mx),285,285) filenm=date+'.comp3' close,1 & openr,1,filenm & readu,1,comp & close,1 comp=(comp gt 13000)*200 + (comp le 13000) * comp bimg(60+284*2:60+284*3,bot:bot+284) = rebin(bytscl(comp,min=mn,max=mx),285,285) tv,bimg xyouts,0.35,0.92,'MK3 data: 94d339',charsize=3.,/nor xyouts,0.05,0.75,'ch0 and ch1 composite',charsize=2.,/nor xyouts,0.45,0.75,'ch0 *ONLY*',charsize=2.,/nor xyouts,0.70,0.75,'ch1 outer field *ONLY*',charsize=2.,/nor w2srf,'94d339.srf' end