--tables.lua    by Andres Farfan
--
--  Generate aperture table
--  Script shoot using each zoom step
--  csv data is saved to  A/table.txt, each row contains: EXP_COUNTER, ND, ZOOM, PROPCASE_AV
--
--  Version 2.0 Updated 2013/05/18
--
-- To process exifdata:
-- exiftool -SourceFile -OpticalZoomCode -Aperture -Parameters -csv *.JPG > out.csv
--[[
@title aperture table
]]

props=require("propcase")

function logwrite(...)
	if outfile then
		outfile:write(...)
	else
		outfile=io.open("A/table.txt", "w+b")
		outfile:write(...)
	end
end

-- main()
max_zoom=get_zoom_steps()
--a=max_zoom/2+1
--b=max_zoom

if get_nd_present() > 0 then
    for j= 0,2 do
        print("ND=",j)
        set_nd_filter(j)

        for i = 0,max_zoom do
            set_zoom(i)
            shoot()
            n=get_exp_count()
            av=get_prop(props.AV)
            logwrite(n, ",",j, ",", i, ",", av, "\n")
            print("Exp=",n," ND filter=",j," zoom=",i)
        end
    end
else
    print("NO ND filter")
    for i = 0,max_zoom do
            set_zoom(i)
            shoot()
            n=get_exp_count()
            av=get_prop(props.AV)
            logwrite(n, ",N/A,", i, ",", av, "\n")
            print("Exp=",n," zoom=",i)
    end
end

logwrite("\n")
if outfile then
    outfile:close()
end