-- Scarano Jr 10/04/13
-- 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-Dir"

Filters = {"B","V","R","I"} 

FilterName = {}

-- Nick names on the Filter Editor

FilterName.B = "B_Bessell"
FilterName.V = "V_Bessell"
FilterName.R = "R_Bessell"
FilterName.I = "I_Bessell"

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

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

-- Add the intensity of the white spot lamp.
Lamp = {}
Lamp.B = "40"
Lamp.V = "20"
Lamp.R = "10"
Lamp.I = "8"

-- Add title names to the object keyword.

Title = {}
Title.B = "Dome-flat B"
Title.V = "Dome-flat V'"
Title.R = "Dome-flat R'"
Title.I = "Dome-flat I'"

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

bin4x4 = "4x4"

-- Initializing
init(Observer,Institution,Project)

--Starting 4x4 bias
print("Starting 4x4 bias")
print("=================")

bias4x4name = "bias4x4"
bias4x4_nexp = '50'
bias(bias4x4name,bin4x4,bias4x4_nexp)

--Starting 4x4 domeflats
print("Starting Dome Flats")
print("===================")

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..bin4x4
	print(flatname,i_filtername,bin4x4,i_lamp,i_nexp,i_expt,i_title)
	domeflats(flatname,i_filtername,bin4x4,i_lamp,i_nexp,i_expt,i_title)        
end