close,1 window,0,xsize=570,ysize=570 erase date='94d339' 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 mn=0 & mx=4000 filenm=date+'.comp1' close,1 & openr,1,filenm & readu,1,comp & close,1 comp=(comp gt 13000)*0 + (comp le 13000) * comp tv,bytscl(comp,min=mn,max=mx) xyouts,.02,.95,date,size=2,/NORMAL xyouts,.02,.90,'MK3 ch0 and ch1 composite',size=2,/NORMAL w2srf,date+'.comp1.srf' cursor,_x,_y,/nor filenm=date+'.comp2' close,1 & openr,1,filenm & readu,1,comp & close,1 comp=(comp gt 13000)*0 + (comp le 13000) * comp tv,bytscl(comp,min=mn,max=mx) xyouts,.02,.95,date,size=2,/NORMAL xyouts,.02,.90,'MK3 ch0 *ONLY*',size=2,/NORMAL w2srf,date+'.comp2.srf' cursor,_x,_y,/nor filenm=date+'.comp3' close,1 & openr,1,filenm & readu,1,comp & close,1 comp=(comp gt 13000)*0 + (comp le 13000) * comp tv,bytscl(comp,min=mn,max=mx) xyouts,.02,.95,date,size=2,/NORMAL xyouts,.02,.90,'MK3 ch1 *ONLY*',size=2,/NORMAL w2srf,date+'.comp3.srf' cursor,_x,_y,/nor filenm=date+'.comp4' close,1 & openr,1,filenm & readu,1,comp & close,1 comp=(comp gt 13000)*0 + (comp le 13000) * comp tv,bytscl(comp,min=mn,max=mx) xyouts,.02,.95,date,size=2,/NORMAL xyouts,.02,.90,'MK3 ch1 *ONLY*',size=2,/NORMAL w2srf,date+'.comp4.srf' end