PRO plot_red
; dd=TRANSPOSE(ddread('~cnsr3/ql/93120802.ql'))
; uts=dd(*,0)
; zi=dd(*,1)
; dzi=dd(*,2)
rdcols,'\images\save\qlookray.dat',n,uts,zi
w06=WHERE(uts LT 6.*3600,nw06)
psopen,'red_plot.ps',/land
!P.MULTI=[0,1,2,0,0]
PLOT,uts(w06)/3600.,zi(w06) $
    ,XTITLE='Universal Time (hours), Dec. 8, 1993' $
    ,YTITLE='Zenith Brightness (R) at 630.0 nm' $
    ,TITLE='Patch Brightness in Eureka Zenith, 00 - 06 UT, Dec. 8, 1993' $
    ,XRANGE=[0,6] $
    ,YRANGE=[0.,(200000./327.)*(501./500.)*(500./430.)],/YSTYLE
; PLOT,uts(w06)/3600.,dzi(w06),LINE=1 $
;     ,XTITLE='Universal Time (hours), Dec. 8, 1993' $
;     ,YTITLE='S.D. of Zenith Brightness (R) at 630.0 nm' $
;     ,TITLE='Patch Brightness in Eureka Zenith, 00 - 06 UT, Dec. 8, 1993'
psclose
RETURN
END