PRO Make_BGS

t0=SysTime(1)

year=1994
month=12
filt=0
bgcam=1
bgfilt=1

hh=Rebin(IndGen(24),48,/Sample)
mm=Reform(Rebin([0,30],2,24,/Sample))

FOR day=22,25 DO BEGIN

    ; ==> Save half-hour background images for whole 24-hr period,
    ; ==> from NIR background channel (820 nm, Cam 1/Filt 1).
    
    savbkgrd,year,month,day,bgcam,bgfilt,0,0,0,24,0.5,1,exp=60

    ; ==> For each OH signal channel, subtract appropriate half-hourly
    ; ==> background images from emission images taken during that half
    ; ==> hour.

    FOR cam=0,1 DO BEGIN
        FOR i=0,N_Elements(hh)-1 DO BEGIN
            Print,year,month,day,cam,filt,hh(i),mm(i),Format='(7I5)'
            tray2bgs,year,month,day,hh(i),mm(i),0,0.5,cam,0 $
                    ,exp=60,cam=bgcam,filt=bgfilt
            ENDFOR      ; i=0,...

        ENDFOR          ; cam=0,...

    Print,String(7B),SysTime(1)-t0,' sec elapsed'
    ENDFOR              ; day=22,...

Return
END