Xenharmonic Wiki

Module:MOS genchain: Difference between revisions

← Older edit
Ganaram inukshuk (talk | contribs)
autopatrolled, emailconfirmed
6,211 edits
m fix style
ArrowHead294 (talk | contribs)
15,213 edits
mNo edit summary
 
(15 intermediate revisions by 3 users not shown)
Line 20: Line 20:
p.cell_color_small_size      = "#FCE4D6"
p.cell_color_small_size      = "#FCE4D6"
p.cell_color_sm_altered_size = "#F8CBAD"
p.cell_color_sm_altered_size = "#F8CBAD"


function p.preprocess_genchain(input_mos)
function p.preprocess_genchain(input_mos)
Line 51: Line 50:
-- Begin table
-- Begin table
local result = "{| class=\"wikitable mw-collapsible" .. (is_collapsed and " mw-collapsed\"\n" or "\"\n")
local result = "{| class=\"wikitable center-1 center-3 mw-collapsible" .. (is_collapsed and " mw-collapsed\"\n" or "\"\n")
-- Table caption
-- Table caption
result = result
result = result .. "|+ style=\"font-size: 105%; white-space: nowrap;\" | " .. string.format("Generator chain of %s\n", scale_sig)
.. string.format("|+ style=\"font-size: 105%%; white-space: nowrap\" | Generator chain of %s\n", scale_sig)


-- Headers for each period
-- Headers for each period
result = result .. "! Bright gens"
result = result .. "|-\n"
    .. "! Bright gens"
for i = 1, period_count do
for i = 1, period_count do
result = result
result = result
.. " !! Scale Degree"
.. " !! Scale degree"
.. " !! Abbrev."
.. " !! Abbrev."
end
end
result = result
result = result .. "\n"
.. "\n"
.. "|-\n"
-- Add a row for each scale degree, plus their period-shifted counterparts
-- Add a row for each scale degree, plus their period-shifted counterparts
for i = 1, #genchain do
for i = 1, #genchain do
result = result .. "|-\n"
-- Number of generators
-- Number of generators
local num_gens = math.ceil(#genchain/2) - i
local num_gens = math.ceil(#genchain / 2) - i
result = result .. string.format("| %s", num_gens)
result = result .. string.format("| %s", string.gsub(num_gens, "-", "−"))
-- Scale degree (full name) and abbrev
-- Scale degree (full name) and abbrev
Line 85: Line 84:
if num_gens == 0 then
if num_gens == 0 then
result = result  
result = result  
.. string.format(" || %s<br>%s", tamnams.degree_quality(current_interval, input_mos, "sentence-case", mos_prefix), tamnams.degree_quality(period_raised_interval, input_mos, "sentence-case", mos_prefix))
.. string.format(" || %s<br />%s || %s<br />%s",
.. string.format(" || %s<br>%s", tamnams.degree_quality(current_interval, input_mos, "abbrev"       , mos_abbrev), tamnams.degree_quality(period_raised_interval, input_mos, "abbrev"       , mos_abbrev))
tamnams.degree_quality(current_interval, input_mos, "sentence-case", mos_prefix),
tamnams.degree_quality(period_raised_interval, input_mos, "sentence-case", mos_prefix),
tamnams.degree_quality(current_interval, input_mos, "abbrev" , mos_abbrev),
tamnams.degree_quality(period_raised_interval, input_mos, "abbrev", mos_abbrev))
elseif num_gens < 0 and mos.interval_step_count(current_interval) % mos.period_step_count(input_mos) == 0 then
elseif num_gens < 0 and mos.interval_step_count(current_interval) % mos.period_step_count(input_mos) == 0 then
result = result  
result = result  
.. string.format(" || %s", tamnams.degree_quality(period_raised_interval, input_mos, "sentence-case", mos_prefix))
.. string.format(" || %s || %s",
.. string.format(" || %s", tamnams.degree_quality(period_raised_interval, input_mos, "abbrev"       , mos_abbrev))
tamnams.degree_quality(period_raised_interval, input_mos, "sentence-case", mos_prefix),
    tamnams.degree_quality(period_raised_interval, input_mos, "abbrev", mos_abbrev))
else
else
result = result  
result = result  
.. string.format(" || %s", tamnams.degree_quality(current_interval, input_mos, "sentence-case", mos_prefix))
.. string.format(" || %s || %s",
.. string.format(" || %s", tamnams.degree_quality(current_interval, input_mos, "abbrev"       , mos_abbrev))
tamnams.degree_quality(current_interval, input_mos, "sentence-case", mos_prefix),
tamnams.degree_quality(current_interval, input_mos, "abbrev", mos_abbrev))
end
end
end
end
Line 101: Line 105:
result = result  
result = result  
.. "\n"
.. "\n"
.. "|-\n"
end
end
result = result .. "|}"
result = result .. "|}"
return result
end
function p.mos_genchain_description(input_mos, mos_prefix)
local input_mos = input_mos or mos.new(6,2)
local mos_prefix = mos_prefix or "mos"
local scalesig = mos.as_string(input_mos)
-- How many periods?
-- What are the period intervals?
local period_count = mos.period_count(input_mos)
local period_interval = mos.period(input_mos)
local period_intervals = {}
for i = 1, period_count + 1 do
local interval = mos.interval_mul(period_interval, i-1)
table.insert(period_intervals, interval)
end
-- As a sentence piece
local period_intervals_as_text = ""
if #period_intervals == 2 then
period_intervals_as_text = string.format("%s and %s", tamnams.degree_quality(period_intervals[1], input_mos), tamnams.degree_quality(period_intervals[2], input_mos))
else
for i = 1, period_count do
period_intervals_as_text = period_intervals_as_text
.. string.format("%s, ", tamnams.degree_quality(period_intervals[i], input_mos))
end
period_intervals_as_text = period_intervals_as_text
.. string.format("and %s", tamnams.degree_quality(period_intervals[period_count + 1], input_mos))
end
-- What is the bright gen and at what scale degrees do you stack from?
local bright_gen_as_text = tamnams.interval_quality(mos.bright_gen(input_mos), input_mos)
local result = string.format("A chain of bright generators, each a %s, produces the following scale degrees.", bright_gen_as_text)
-- How long is the chain?
local period_step_count = mos.period_step_count(input_mos)
result = result
.. " "
.. string.format("A chain of %s bright generators %scontains the scale degrees of one of the modes of %s.", period_step_count, (period_count == 1 and "" or "from each period "), scalesig)
-- What scales are produced when the chain is extended further?
local child_scale_chain_length = input_mos.nL + input_mos.nL + input_mos.ns
local child_scale_1, child_scale_2 = mos.child_mosses(input_mos)
result = result
.. " "
.. string.format("Expanding %s chain to %s scale degrees produces the modes of either %s (for soft-of-basic tunings) or %s (for hard-of-basic tunings).",
(period_count == 1 and "the" or "each"),
child_scale_chain_length / period_count,
mos.as_string(child_scale_1),
mos.as_string(child_scale_2)
)
return result
return result
end
end
Line 166: Line 116:
local mos_abbrev = frame.args["MOS Abbrev"]
local mos_abbrev = frame.args["MOS Abbrev"]
local collapsed  = yesno(frame.args["Collapsed"])
local collapsed  = yesno(frame.args["Collapsed"])
local debugg = yesno(frame.args["debug"])


-- Parse scalesig
-- Parse scalesig
Line 174: Line 125:
mos_abbrev = tamnams.verify_abbrev(input_mos, mos_abbrev)
mos_abbrev = tamnams.verify_abbrev(input_mos, mos_abbrev)
return p.mos_genchain_description(input_mos) .. "\n" .. p._mos_genchain(input_mos, mos_prefix, mos_abbrev, collapsed)
local result = p._mos_genchain(input_mos, mos_prefix, mos_abbrev, collapsed)
-- Debugger option
if debugg == true then
result = "<syntaxhighlight lang=\"wikitext\">" .. result .. "</syntaxhighlight>"
end
return frame:preprocess(result)
end
end


return p
return p
Retrieved from "https://en.xen.wiki/w/Module:MOS_genchain"