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