Module:ED intro: Difference between revisions

local ord = require('Module:Ordinal')

local utils = require('Module:Utils')

local rat = require('Module:Rational')

-- - edc - equal divisions of a non-integer constant or cent value

-- - Edo and edt are technically edh's, and edf an edr; these are their own

--  types because their intros have specific wording.

-- - Edh is a special case of edr, where the ratio is h/1.

-- - Under harmonotonic tuning, edc and edr are also called ASp and APSp

--  (ambitonal sequence and arithmetic pitch sequence, respectively). These

--   were formerly called equal-step tunings but were reclassified as 1ed.

local ED_TYPE_EDH = "EDH"

local ED_TYPE_EDR = "EDR"

local ED_TYPE_EDC = "EDC"

-- Exactly or about? Round to 3 DPs

intro_text = "'''1 equal division of the octave''' (abbreviated '''1edo''' or '''1ed2'''), also called '''1-tone equal temperament''' ('''1tet''') or '''1 equal temperament''' ('''1et''') when viewed under a [[regular temperament]] perspective, is the [[tuning system]] that uses [[equal]] steps of 2/1 (one [[octave]]), or exactly/about ''s'' [[¢]]."

intro_text = "'''''k'' equal divisions of the octave''' (abbreviated '''''k''edo''' or '''''k''ed2'''), also called '''''k''-tone equal temperament''' ('''''k''tet''') or '''''k'' equal temperament''' ('''''k''et''') when viewed under a [[regular temperament]] perspective, is the [[tuning system]] that divides the [[octave]] into ''k'' [[equal]] parts of exactly/about ''s'' [[¢]] each. Each step represents a [[frequency ratio]] of 2^1/''k'', or the ''kth'' root of 2."

intro_text = string.gsub(intro_text, "''s''", string.format("%.3f", edstep_size))

intro_text = string.gsub(intro_text, "''kth''", ord._ordinal(ed))

-- Exactly or about? Round to 3 DPs

intro_text = "'''1 equal division of the tritave''', '''perfect twelfth''', or '''3rd harmonic''' (abbreviated '''1edt''' or '''1ed3'''), is a [[nonoctave]] [[tuning system]] that uses [[equal]] steps of [[3/1]] (one tritave), or exactly/about ''s'' [[¢]]."

intro_text = "'''''k'' equal divisions of the tritave''', '''perfect twelfth''', or '''3rd harmonic''' (abbreviated '''''k''edt''' or '''''k''ed3'''), is a [[nonoctave]] [[tuning system]] that divides the interval of [[3/1]] into ''k'' [[equal]] parts of exactly/about ''s'' [[¢]] each. Each step represents a [[frequency ratio]] of 3^1/''k'', or the ''kth'' root of 3."

intro_text = string.gsub(intro_text, "''s''", string.format("%.3f", edstep_size))

intro_text = string.gsub(intro_text, "''kth''", ord._ordinal(ed))

-- Exactly or about? Round to 3 DPs

intro_text = "'''1 equal division of the perfect fifth''' (abbreviated '''1edf''' or '''1ed3/2''') is a [[nonoctave]] [[tuning system]] that uses [[equal]] steps of [[3/2]] (one perfect fifth), or exactly/about ''s'' [[¢]]."

intro_text = "'''''k'' equal divisions of the perfect fifth''' (abbreviated '''''k''edf''' or '''''k''ed3/2''') is a [[nonoctave]] [[tuning system]] that divides the interval of [[3/2]] into ''k'' [[equal]] parts of exactly/about ''s'' [[¢]] each. Each step represents a [[frequency ratio]] of (3/2)^1/''k'', or the ''kth'' root of 3/2."

intro_text = string.gsub(intro_text, "''s''", string.format("%.3f", edstep_size))

intro_text = string.gsub(intro_text, "''kth''", ord._ordinal(ed))

-- Exactly or about? Round to 3 DPs

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 = "'''''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'' [[¢]] each. Each step represents a [[frequency ratio]] of ''h''^1/''k'', or the ''kth'' root of ''h''."

intro_text = string.gsub(intro_text, "''s''", string.format("%.3f", edstep_size))

intro_text = string.gsub(intro_text, "''kth''", ord._ordinal(ed))

-- Exactly or about? Round to 3 DPs

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 = "'''''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'' [[¢]] each. Each step represents a [[frequency ratio]] of (''p/q'')^1/''k'', or the ''kth'' root of ''p/q''."

intro_text = string.gsub(intro_text, "''s''", string.format("%.3f", edstep_size))

intro_text = string.gsub(intro_text, "''kth''", ord._ordinal(ed))

-- Exactly or about? Round to 3 DPs

intro_text = "'''1 equal division of ''c''¢''' (abbreviated '''1ed''c''¢''') is a [[nonoctave]] [[tuning system]] that uses [[equal]] steps of ''c'' [[¢]]."

intro_text = "'''''k'' equal divisions of ''c''¢''' (abbreviated '''''k''ed''c''¢''') is a [[nonoctave]] [[tuning system]] that divides the interval of ''c''¢ into ''k'' [[equal]] parts of exactly/about ''s'' [[¢]] each."

intro_text = string.gsub(intro_text, "''s''", string.format("%.3f", edstep_size))

local steps, equave = unparsed:match('^(%d+)[Ee][Dd](.+)$')

local is_cents = string.match(equave, '%d*%.?%d+[Cc¢]$') ~= nil

elseif string.match(equave, '^%d+$') ~= nil then

elseif string.match(equave, '^%d+/%d+$') ~= nil then

local num, den = equave:match('^(%d+)/(%d+)$')

parsed_equave = tonumber(equave:match('^(%d*%.?%d+)[Cc¢]$'))

return "Equave type not supported or entered incorrectly."

local ed = frame.args['ED']

local edo = frame.args['EDO'] -- For backwards compatibility with edo intro

 

if edo ~= nil then

return p._ed_intro(edo)

else

return p._ed_intro(ed)