Module:ED intro: Difference between revisions
ArrowHead294 (talk | contribs) mNo edit summary |
Address Template talk: ED intro #Square/cube root of 2. Now square/cube root are displayed instead of 2nd/3rd root |
||
| (15 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
local ord = require("Module:Ordinal") | local ord = require("Module:Ordinal") | ||
local rat = require("Module:Rational") | |||
local utils = require("Module:Utils") | local utils = require("Module:Utils") | ||
local | local yesno = require("Module:Yesno") | ||
local p = {} | local p = {} | ||
| Line 37: | Line 38: | ||
local edstep_size_rounded = utils._round(edstep_size, 3) | local edstep_size_rounded = utils._round(edstep_size, 3) | ||
local is_exact = edstep_size - edstep_size_rounded == 0 | local is_exact = edstep_size - edstep_size_rounded == 0 | ||
local intro_text = "" | local intro_text = "" | ||
| Line 51: | Line 50: | ||
intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | ||
intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | ||
intro_text = string.gsub(intro_text, "''kth''", | intro_text = string.gsub(intro_text, "''kth''", p.root_ordinal(ed)) | ||
return intro_text | return intro_text | ||
| Line 65: | Line 64: | ||
local edstep_size_rounded = utils._round(edstep_size, 3) | local edstep_size_rounded = utils._round(edstep_size, 3) | ||
local is_exact = edstep_size - edstep_size_rounded == 0 | local is_exact = edstep_size - edstep_size_rounded == 0 | ||
local intro_text = "" | local intro_text = "" | ||
| Line 79: | Line 76: | ||
intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | ||
intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | ||
intro_text = string.gsub(intro_text, "''kth''", | intro_text = string.gsub(intro_text, "''kth''", p.root_ordinal(ed)) | ||
return intro_text | return intro_text | ||
| Line 93: | Line 90: | ||
local edstep_size_rounded = utils._round(edstep_size, 3) | local edstep_size_rounded = utils._round(edstep_size, 3) | ||
local is_exact = edstep_size - edstep_size_rounded == 0 | local is_exact = edstep_size - edstep_size_rounded == 0 | ||
local intro_text = "" | local intro_text = "" | ||
| Line 107: | Line 102: | ||
intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | ||
intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | ||
intro_text = string.gsub(intro_text, "''kth''", | intro_text = string.gsub(intro_text, "''kth''", p.root_ordinal(ed)) | ||
return intro_text | return intro_text | ||
| Line 122: | Line 117: | ||
local edstep_size_rounded = utils._round(edstep_size, 3) | local edstep_size_rounded = utils._round(edstep_size, 3) | ||
local is_exact = edstep_size - edstep_size_rounded == 0 | local is_exact = edstep_size - edstep_size_rounded == 0 | ||
local intro_text = "" | local intro_text = "" | ||
if ed == 1 then | if ed == 1 then | ||
intro_text = "'''1 equal division of the hth harmonic''' (abbreviated '''1ed''h''''') is a [[nonoctave]] [[tuning system]] that uses [[equal]] steps of [[''h''/1]], or exactly/about ''s'' | intro_text = "'''1 equal division of the hth harmonic''' (abbreviated '''1ed''h''''') is a [[nonoctave]] [[tuning system]] that uses [[equal]] steps of [[''h''/1]], or exactly/about ''s''{{cent}}." | ||
else | else | ||
intro_text = "'''''k'' equal divisions of the hth harmonic''' (abbreviated '''''k''ed''h''''') is a [[nonoctave]] [[tuning system]] that divides the interval of [[''h''/1]] into ''k'' [[equal]] parts of exactly/about ''s'' | intro_text = "'''''k'' equal divisions of the hth harmonic''' (abbreviated '''''k''ed''h''''') is a [[nonoctave]] [[tuning system]] that divides the interval of [[''h''/1]] into ''k'' [[equal]] parts of exactly/about ''s''{{cent}} each. Each step represents a [[frequency ratio]] of ''h''<sup>1/''k''</sup>, or the ''kth'' root of ''h''." | ||
end | end | ||
| Line 136: | Line 129: | ||
intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | ||
intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | ||
intro_text = string.gsub(intro_text, "''kth''", | intro_text = string.gsub(intro_text, "''kth''", p.root_ordinal(ed)) | ||
intro_text = string.gsub(intro_text, "hth", ord._ordinal(harmonic)) | intro_text = string.gsub(intro_text, "hth", ord._ordinal(harmonic)) | ||
intro_text = string.gsub(intro_text, "''h''", harmonic) | intro_text = string.gsub(intro_text, "''h''", harmonic) | ||
| Line 153: | Line 146: | ||
local edstep_size_rounded = utils._round(edstep_size, 3) | local edstep_size_rounded = utils._round(edstep_size, 3) | ||
local is_exact = edstep_size - edstep_size_rounded == 0 | local is_exact = edstep_size - edstep_size_rounded == 0 | ||
local intro_text = "" | local intro_text = "" | ||
if ed == 1 then | if ed == 1 then | ||
intro_text = "'''1 equal division of ''p/q''''' (abbreviated '''1ed''p/q''''') is a [[nonoctave]] [[tuning system]] that uses [[equal]] steps of [[''p/q'']], or exactly/about ''s'' | intro_text = "'''1 equal division of ''p/q''''' (abbreviated '''1ed''p/q''''') is a [[nonoctave]] [[tuning system]] that uses [[equal]] steps of [[''p/q'']], or exactly/about ''s''{{cent}}." | ||
else | else | ||
intro_text = "'''''k'' equal divisions of ''p/q''''' (abbreviated '''''k''ed''p/q''''') is a [[nonoctave]] [[tuning system]] that divides the interval of [[''p/q'']] into ''k'' [[equal]] parts of exactly/about ''s'' | intro_text = "'''''k'' equal divisions of ''p/q''''' (abbreviated '''''k''ed''p/q''''') is a [[nonoctave]] [[tuning system]] that divides the interval of [[''p/q'']] into ''k'' [[equal]] parts of exactly/about ''s''{{cent}} each. Each step represents a [[frequency ratio]] of (''p/q'')<sup>1/''k''</sup>, or the ''kth'' root of ''p/q''." | ||
end | end | ||
| Line 167: | Line 158: | ||
intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | intro_text = string.gsub(intro_text, "exactly/about", (is_exact and "exactly" or "about")) | ||
intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | intro_text = string.gsub(intro_text, "''s''", utils._round (edstep_size, 3)) | ||
intro_text = string.gsub(intro_text, "''kth''", | intro_text = string.gsub(intro_text, "''kth''", p.root_ordinal(ed)) | ||
intro_text = string.gsub(intro_text, "''p/q''", rat.as_ratio(ratio)) | intro_text = string.gsub(intro_text, "''p/q''", rat.as_ratio(ratio)) | ||
| Line 182: | Line 173: | ||
local edstep_size_rounded = utils._round(edstep_size, 3) | local edstep_size_rounded = utils._round(edstep_size, 3) | ||
local is_exact = edstep_size - edstep_size_rounded == 0 | local is_exact = edstep_size - edstep_size_rounded == 0 | ||
local intro_text = "" | local intro_text = "" | ||
if ed == 1 then | if ed == 1 then | ||
intro_text = "'''1 equal division of ''c'' | intro_text = "'''1 equal division of ''c''{{c}}''' (abbreviated '''1ed''c''{{c}}''') is a [[nonoctave]] [[tuning system]] that uses [[equal]] steps of ''c''{{cent}}." | ||
else | else | ||
intro_text = "'''''k'' equal divisions of ''c'' | intro_text = "'''''k'' equal divisions of ''c''{{c}}''' (abbreviated '''''k''ed''c''{{c}}''') is a [[nonoctave]] [[tuning system]] that divides the interval of ''c''{{c}} into ''k'' [[equal]] parts of exactly/about ''s''{{cent}} each." | ||
end | end | ||
| Line 199: | Line 188: | ||
return intro_text | return intro_text | ||
end | |||
-- ord._ordinal but for roots | |||
function p.root_ordinal(n) | |||
local result = ord._ordinal(n) | |||
if n == 2 then | |||
result = "square" | |||
elseif n == 3 then | |||
result = "cube" | |||
end | |||
return result | |||
end | end | ||
| Line 298: | Line 298: | ||
if ed_type == ED_TYPE_DEFAULT then | if ed_type == ED_TYPE_DEFAULT then | ||
return "Equave type not supported or entered incorrectly." | return "{{error|Error: Equave type not supported or entered incorrectly.}}" | ||
elseif ed_type == ED_TYPE_EDO then | elseif ed_type == ED_TYPE_EDO then | ||
return p.edo_intro(parsed_ed) | return p.edo_intro(parsed_ed) | ||
| Line 335: | Line 335: | ||
local ed = frame.args["ED"] | local ed = frame.args["ED"] | ||
local edo = frame.args["EDO"] -- For backwards compatibility with edo intro | local edo = frame.args["EDO"] -- For backwards compatibility with edo intro | ||
local debugg = yesno(frame.args["debug"]) | |||
local result = p._ed_intro((edo == nil) and ed or edo) | |||
if debugg == true then | |||
result = "<syntaxhighlight lang=\"wikitext\">" .. result .. "</syntaxhighlight>" | |||
end | |||
return frame:preprocess(result) | |||
end | end | ||
return p | return p | ||