Module:Scale tree

---

local p = {}
local step_ratios = {
	{1, 1},
	{4, 3},
	{3, 2},
	{2, 1},
	{5, 2},
	{3, 1},
	{4, 1},
	{1, 0}
}

local function compare(a, b)
	return (a[1]/a[2]) < (b[1]/b[2])
end

function p.scale_tree(frame)
	local l = frame.args['l']
	local s = frame.args['s']
	local equave = frame.args['equave']

	result = '{|class="wikitable"\n'
	result = result .. "|-\n"
	result = result .. "!L\n"
	result = result .. "|s\n"
	local i = 1
	while i <= #step_ratios do
		local step_ratio = step_ratios[i]
		result = result .. "|-\n"
		result = result .. "|" .. step_ratio[1] .. "\n"
		result = result .. "|" .. step_ratio[2] .. "\n"
		i = i + 1
	end
		
	result = result .. "|}"
	return result
end
return p