View source for Module:Diatonic interval category

local p = {}
local d = require("Module:Diatonic")

function p.expandIQ(frame)
f = tonumber(frame.args[1])
o = tonumber(frame.args[2])
if (d.qualityAsName(f,o) == "major") then
return "major (wider)"
end
if (d.qualityAsName(f,o) == "minor") then
return "minor (narrower)"
end
return d.qualityAsName(f,o)
end

function p.generator(frame)
f = tonumber(frame.args[1])
o = tonumber(frame.args[2])
if(f > 0) then
return f .. " fifths octave-reduced"
end
if(f < 0) then
return math.abs(f) .. " fourths octave-reduced"
end

return "no fifths"

end

function p.tuning(frame)
f = tonumber(frame.args[1])
o = tonumber(frame.args[2])
k1 = d.tuning5(f,o) * (1200/5)
k2 = math.round(d.tuning7(f,o) * (1200/7))

if (k1 > k2) then
return k2 .. " to " .. k1 .. "cents (" .. d.tuning7(f,o) .. "\7 to " .. d.tuning5(f,o) .. "\5)"
end
return k1 .. " to " .. k2 .. "cents (" .. d.tuning5(f,o) .. "\5 to " .. d.tuning7(f,o) .. "\7)"
end


function p.diatonic_interval_category(frame)
f = tonumber(frame.args[1])
o = tonumber(frame.args[2])
str = "A " .. d.qualityAsName(f,o) .. " " .. d.degreeAsName(f,o) .. " (" .. d.qualityAsLetter(f,o) .. d.degreeAsNumber(f,o) .. "), as a diatonic interval category, is an interval that spans " .. (d.degreeAsNumber(f,o)-1) .. " steps of the diatonic scale with the " .. p.expandIQ(frame) .. " quality. It is generated by stacking" .. p.generator(frame) .. ", and depending on the specific tuning it ranges from " .. p.tuning(frame)

return str
end

return p