pro flippy,files,hardcopy
; Extracts DLVS spectral images from /Flippy_floppy_test_8Nov96.1/DB/Visible
; and displays them on the screen.  Also prints cuts along row 38.
d_read,files(9),h9,p9 
d_read,files(22),h22,p22 
d_read,files(35),h35,p35 
d_read,files(48),h48,p48 
d_read,files(61),h61,p61 
d_read,files(11),h11,p11
d_read,files(24),h24,p24
d_read,files(37),h37,p37
d_read,files(50),h50,p50
d_read,files(63),h63,p63
sd9=stdev(p9-p11,avg9)
sd22=stdev(p22-p24,avg22)
sd35=stdev(p35-p37,avg35)
sd48=stdev(p48-p50,avg48)
sd61=stdev(p61-p63,avg61)
;window,1,xsize=160,ysize=600
;window,2,xsize=160,ysize=600
;window,3,xsize=160,ysize=600
;window,4,xsize=160,ysize=600
;window,5,xsize=160,ysize=600
y9=rebin(p9-p11,160,600,/sample)
y22=rebin(p22-p24,160,600,/sample)
y35=rebin(p35-p37,160,600,/sample)
y48=rebin(p48-p50,160,600,/sample)
y61=rebin(p61-p63,160,600,/sample)
wset,1
wshow,1
erase,1
tvscl,y9
xyouts,0.25,0.95,'UPRIGHT 1',/normal
xyouts,0.05,0.9,'CCD Temp = '+string(d_value(h9,22)),/normal
xyouts,0.05,0.875,files(9),/normal
xyouts,0.05,0.85,'Average = '+string(avg9),/normal
wset,2
wshow,2
erase,2
tvscl,y22
xyouts,0.25,0.95,'RIGHT SIDE',/normal
xyouts,0.05,0.9,'CCD Temp = '+string(d_value(h22,22)),/normal
xyouts,0.05,0.875,files(22),/normal
xyouts,0.05,0.85,'Average = '+string(avg22),/normal
wset,3
wshow,3
erase,3
tvscl,y35
xyouts,0.25,0.95,'UPRIGHT 2',/normal
xyouts,0.05,0.9,'CCD Temp = '+string(d_value(h35,22)),/normal
xyouts,0.05,0.875,files(35),/normal
xyouts,0.05,0.85,'Average = '+string(avg35),/normal
wset,4
wshow,4
erase,4
tvscl,y48
xyouts,0.25,0.95,'LEFT SIDE',/normal
xyouts,0.05,0.9,'CCD Temp = '+string(d_value(h48,22)),/normal
xyouts,0.05,0.875,files(48),/normal
xyouts,0.05,0.85,'Average = '+string(avg48),/normal
wset,5
wshow,5
erase,5
tvscl,y61
xyouts,0.25,0.95,'UPRIGHT 3',/normal
xyouts,0.05,0.9,'CCD Temp = '+string(d_value(h61,22)),/normal
xyouts,0.05,0.875,files(61),/normal
xyouts,0.05,0.85,'Average = '+string(avg61),/normal
wait,1.0
wset,6
wshow,6
erase,6
 plot_flip,'Upright 1','Exp Time = 8 msec, Cal Lamp 1 On','Column No',$
   'Bright - Dark',p9(*,38),hardcopy
wait,1.0
wset,6
wshow,6
erase,6
 plot_flip,'Right Side','Exp Time = 8 msec, Cal Lamp 1 On','Column No',$
   'Bright - Dark',p22(*,38),hardcopy
wait,1.0
wset,6
wshow,6
erase,6
 plot_flip,'Upright 2','Exp Time = 8 msec, Cal Lamp 1 On','Column No',$
   'Bright - Dark',p35(*,38),hardcopy
wait,1.0
wset,6
wshow,6
erase,6
 plot_flip,'Left Side','Exp Time = 8 msec, Cal Lamp 1 On','Column No',$
   'Bright - Dark',p48(*,38),hardcopy
wait,1.0
wset,6
wshow,6
erase,6
 plot_flip,'Upright 3','Exp Time = 8 msec, Cal Lamp 1 On','Column No',$
   'Bright - Dark',p61(*,38),hardcopy

return
end