-- Scarano Jr - 10/10/2010. Based on domeflats.txt by Luciano Fraga
-- email: scaranojr@ctio.noao.edu

function domeflats(name,filter,bin,lamp,nexp,expt,namtitl)
	 Image.Obstype("DFLAT")
	 Image.Binning(bin)
	 Image.Title(namtitl)

	 print("Starting dome flats: "..name)
	 Image.Name(name)

	 print(filter)
	 if(Instrument.Filter(filter)) then
              print("Filter OK")
	 else
              print("Filter NOT OK")
	 end
	
 	 Telescope.Whitespot(lamp)	
	 print("Waiting white spot [5s]")
	 os.execute("sleep 5")
	 Image.Repeats("1")
	 for i=1,nexp,1 do 
		Image.Time(expt)
		Image.Start()
	end

        Telescope.Whitespot("0")	

end