-- L. Fraga 09/07/024
-- email: lfraga@ctio.noao.edu
-- Changed by Scarano Jr 2011-06-11

dflat = loadfile("/uyw1/simager/scripts/domeflats.txt") 
Bias  = loadfile("/uyw1/simager/scripts/bias.txt") 
Init = loadfile("/uyw1/simager/scripts/init.txt") 

dflat()
Bias()
Init()

Observer = "Sergio Scarano Jr"
Institution = "BRAZIL"

--Filters = {"U","B","V"} 
Filters = {"B"}

FilterName = {}

-- Nick names on the Filter Editor

--FilterName.U = "U-Bessell"
FilterName.B = "B_Bessell"
FilterName.V = "V_Bessell"

-- Add exposure times for each filter as: Expt.U = 10
Expt = {}
--Expt.U = "1" 
Expt.B = "4"
Expt.V = "3"

-- Add the number of exposures for each filter per cycle as: Nexp.U = 2
Nexp = {}
--Nexp.U = "2"
Nexp.B = "50"
Nexp.V = "30"

-- Add the intensity of the white spot lamp.
Lamp = {}
Lamp.B = "30"
Lamp.V = "20"

-- DONT EDIT ANYTHING DOWN HERE!!!!
--Starting 

--bin2x2 = "2x2"
bin5x5 = "5x5"

-- Initializing
init(Observer,Institution)

--Starting 5x5 bias
print("Starting 5x5 bias")
bias5x5name = "bias5x5"
bias5x5_nexp = '50'
bias(bias5x5name,bin5x5,bias5x5_nexp)

--Starting 5x5 domeflats
print("Starting Dome Flats")

for i,i_filter in pairs (Filters) do
        i_expt  = Expt[i_filter]
        i_nexp  = Nexp[i_filter]
        i_lamp  = Lamp[i_filter]
        i_filtername = FilterName[i_filter]
	flatname = "dflat"..i_filter..bin5x5
	print(flatname,i_filtername,bin5x5,i_lamp,i_nexp,i_expt)
	domeflats(flatname,i_filtername,bin5x5,i_lamp,i_nexp,i_expt)        
end