pro smudge_spectra,dspectra gg = rotate(dspectra,3) sgg = size(gg) ii1 = 0 & ii2 = sgg(2)-1 dd1 = sgg(1)*2 & dd2 = sgg(2)*2 if dd1 gt 1024 then dd1 = sgg(1) ;1/2 scale if very large if dd2 gt 512 then begin ;;ggg = sum(gg) ggg = total(gg,2) xs = where(max(ggg) eq ggg) if xs gt 256 then begin ii1 = xs-120 & ii2 = min(ssg(2),512) dd2 = (ii2-ii1)*2 endif ;****** endif loadct,5,/silent tvscl,rebin(gg(*,ii1:ii2),dd1,dd2) return end