-- Sergio Scarano Jr 19/07/2010 -- email: scaranojr@ctio.noao.edu -- Based on the calibBVRI.txt script by Luciano Fraga 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 = {"B","V","R"} FilterName = {} -- Nick names on the Filter Editor FilterName.B = "B_Bessell" FilterName.V = "V_Bessell" FilterName.R = "R_Bessell" -- Add exposure times for each filter. For this project -- the exposure times adopted are enought to achieve -- 20000 counts. Expt = {} Expt.B = "5" Expt.V = "5" Expt.R = "3" -- Add the number of exposures for each filter per cycle as: Nexp.U = 2 Nexp = {} Nexp.B = "15" Nexp.V = "15" Nexp.R = "15" -- Add the intensity of the white spot lamp. Lamp = {} Lamp.B = "60" Lamp.V = "30" Lamp.R = "20" -- DONT EDIT ANYTHING DOWN HERE!!!! --Starting bin2x2 = "2x2" -- Initializing init(Observer,Institution) --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] flatname = "dflat"..i_filter..bin2x2 print(flatname,i_filtername,bin2x2,i_lamp,i_nexp,i_expt) domeflats(flatname,i_filtername,bin2x2,i_lamp,i_nexp,i_expt) end --Starting 2x2 bias print("Starting 2x2 bias") bias2x2name = "bias2x2" bias2x2_nexp = '30'