-- Scarano Jr 10/10/10
-- email: scaranojr@ctio.noao.edu

dflat = loadfile("/uyw1/simager/scripts/domeflats2.txt") 
Bias  = loadfile("/uyw1/simager/scripts/bias2.txt") 
Init = loadfile("/uyw1/simager/scripts/init2.txt") 

dflat()
Bias()
Init()

Observer = "Sergio Scarano Jr"
Institution = "BRAZIL"
Project = "SO2010B-015"

Filters = {"Ha","OIII","SII","y"} 

FilterName = {}

-- Nick names on the Filter Editor

FilterName.Ha = "6600/75"
FilterName.OIII = "5019/50"
FilterName.SII = "6738/50"
FilterName.y = "y_Strom"

-- Add exposure times for each filter as: Expt.U = 10
Expt = {}
Expt.Ha = "3" 
Expt.OIII = "10"
Expt.SII = "3" 
Expt.y = "3"

-- Add the number of exposures for each filter per cycle as: Nexp.U = 2
Nexp = {}
Nexp.Ha = "10"
Nexp.OIII = "10"
Nexp.SII = "10"
Nexp.y = "10"

-- Add the intensity of the white spot lamp.
Lamp = {}
Lamp.Ha = "55"
Lamp.OIII = "100"
Lamp.SII = "80"
Lamp.y = "60"

-- Add title names to the object keyword.

Title = {}
Title.Ha = "Dome-flat Halpha (660075-4)"
Title.OIII = "Dome-flat OIII (5019/50)"
Title.SII = "Dome-flat SII (6738/50)"
Title.y = "Dome-flat y"

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

bin2x2 = "2x2"

-- Initializing
init(Observer,Institution,Project)

--Starting 2x2 bias
--print("Starting 2x2 bias")
--bias2x2name = "bias2x2"
--bias2x2_nexp = '30'
--bias(bias2x2name,bin2x2,bias2x2_nexp)

--Starting 2x2 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]
		i_title = Title[i_filter]
	flatname = "dflat"..i_filter..bin2x2
	print(flatname,i_filtername,bin2x2,i_lamp,i_nexp,i_expt,i_title)
	domeflats(flatname,i_filtername,bin2x2,i_lamp,i_nexp,i_expt,i_title)        
end