モジュール:MOS intro - 版の履歴

2026年4月4日 (土) 15:16にFurcht968による

2026-04-04T15:16:53Z

← 古い版		2026年4月4日 (土) 15:16時点における版
246行目:		246行目:
	-- Add equave equivalence		-- Add equave equivalence
	if rat.eq(input_mos.equave, rat.new(2)) then		if rat.eq(input_mos.equave, rat.new(2)) then
	intro = intro .. "[[オクターブ]]~~を等価とする~~[[MOSスケール]]である。"		intro = intro .. "[[オクターブ]]を周期とする[[MOSスケール]]である。"
	elseif rat.eq(input_mos.equave, rat.new(3)) then		elseif rat.eq(input_mos.equave, rat.new(3)) then
	intro = intro .. "[[トリターブ]]~~を等価とする~~[MOSスケール]]である。"		intro = intro .. "[[トリターブ]]を周期とする[MOSスケール]]である。"
	elseif rat.eq(input_mos.equave, rat.new(3,2)) then		elseif rat.eq(input_mos.equave, rat.new(3,2)) then
	intro = intro .. "[[3/2]]~~を等価とする~~[[MOSスケール]]である。"		intro = intro .. "[[3/2]]を周期とする[[MOSスケール]]である。"
	else		else
	intro = intro .. string.format("%~~sを等価とする~~[[MOSスケール]]である。", equave_as_ratio)		intro = intro .. string.format("%sを周期とする[[MOSスケール]]である。", equave_as_ratio)
	end		end

2026年4月4日 (土) 11:40にFurcht968による

2026-04-04T11:40:19Z

← 古い版		2026年4月4日 (土) 11:40時点における版
296行目:		296行目:
	-- Rothenberg propriety (rothenprop) info		-- Rothenberg propriety (rothenprop) info
	if ns == 1 then		if ns == 1 then
	intro = intro .. "この形式の音階は、狭い音程が1つしかないため、常に{{En仮リンク\|厳密に適正\|~~Rothernberg~~ propriety}}となる。"		intro = intro .. "この形式の音階は、狭い音程が1つしかないため、常に{{En仮リンク\|厳密に適正\|Rothenberg propriety}}となる。"
	elseif ns / n == 1 then		elseif ns / n == 1 then
	intro = intro .. "全ての周期が等しく、真にMOSである場合は、1周期につき狭い音程が1つしかないため、{{En仮リンク\|厳密に適正\|~~Rothernberg~~ propriety}}である。"		intro = intro .. "全ての周期が等しく、真にMOSである場合は、1周期につき狭い音程が1つしかないため、{{En仮リンク\|厳密に適正\|Rothenberg propriety}}である。"
	end		end

2026年4月4日 (土) 11:12にFurcht968による

2026-04-04T11:12:51Z

← 古い版		2026年4月4日 (土) 11:12時点における版
296行目:		296行目:
	-- Rothenberg propriety (rothenprop) info		-- Rothenberg propriety (rothenprop) info
	if ns == 1 then		if ns == 1 then
	intro = intro .. "~~この形式の音階は、小さな音程が1つしかないため、常に~~{{En仮リンク\|厳密に適正\|Rothernberg propriety}}となる。"		intro = intro .. "この形式の音階は、狭い音程が1つしかないため、常に{{En仮リンク\|厳密に適正\|Rothernberg propriety}}となる。"
	elseif ns / n == 1 then		elseif ns / n == 1 then
	intro = intro .. "~~全ての周期が等しく、真にMOSである場合は、1周期につき小さな音程が1つしかないため、~~{{En仮リンク\|厳密に適正\|Rothernberg propriety}}である。"		intro = intro .. "全ての周期が等しく、真にMOSである場合は、1周期につき狭い音程が1つしかないため、{{En仮リンク\|厳密に適正\|Rothernberg propriety}}である。"
	end		end

2026年4月3日 (金) 13:55にFurcht968による

2026-04-03T13:55:36Z

← 古い版		2026年4月3日 (金) 13:55時点における版
246行目:		246行目:
	-- Add equave equivalence		-- Add equave equivalence
	if rat.eq(input_mos.equave, rat.new(2)) then		if rat.eq(input_mos.equave, rat.new(2)) then
	intro = intro .. "[[オクターブ]]~~を周期とする~~[[MOSスケール]]である。"		intro = intro .. "[[オクターブ]]を等価とする[[MOSスケール]]である。"
	elseif rat.eq(input_mos.equave, rat.new(3)) then		elseif rat.eq(input_mos.equave, rat.new(3)) then
	intro = intro .. "[[トリターブ]]~~を周期とする~~[MOSスケール]]である。"		intro = intro .. "[[トリターブ]]を等価とする[MOSスケール]]である。"
	elseif rat.eq(input_mos.equave, rat.new(3,2)) then		elseif rat.eq(input_mos.equave, rat.new(3,2)) then
	intro = intro .. "[[3/2]]~~を周期とする~~[[MOSスケール]]である。"		intro = intro .. "[[3/2]]を等価とする[[MOSスケール]]である。"
	else		else
	intro = intro .. string.format("%~~sを周期とする~~[[MOSスケール]]である。", equave_as_ratio)		intro = intro .. string.format("%sを等価とする[[MOSスケール]]である。", equave_as_ratio)
	end		end

2026年4月2日 (木) 12:19にFurcht968による

2026-04-02T12:19:32Z

← 古い版		2026年4月2日 (木) 12:19時点における版
259行目:		259行目:
	intro = intro .. (equave_in_cents == 1200 and "[[オクターブ]]" or string.format("[[%s]] (%.1f{{cent}})の音程", equave_as_ratio, equave_in_cents, round)) .. "の中で"		intro = intro .. (equave_in_cents == 1200 and "[[オクターブ]]" or string.format("[[%s]] (%.1f{{cent}})の音程", equave_as_ratio, equave_in_cents, round)) .. "の中で"
	else		else
	intro = intro .. string.format("%d個の広い音程と", nL/n)		intro = intro .. string.format("この音階は、%d個の広い音程と%d個の狭い音程からなる繰り返しが", nL/n, ns/n)
	~~intro = intro .. string.format("%d個の狭い音程からなる繰り返しが"~~, ns/n)
	intro = intro .. string.format("%.1f{{cent}}ごとに、つまり", period_in_cents)		intro = intro .. string.format("%.1f{{cent}}ごとに、つまり", period_in_cents)
	intro = intro .. (equave_in_cents == 1200 and "[[オクターブ]]" or string.format("[[%s]] (%.1f{{cent}})の音程", equave_as_ratio, equave_in_cents, round)) .. string.format("につき%d回繰り返される。", n)		intro = intro .. (equave_in_cents == 1200 and "[[オクターブ]]" or string.format("[[%s]] (%.1f{{cent}})の音程", equave_as_ratio, equave_in_cents, round)) .. string.format("につき%d回繰り返される。", n)
297行目:		296行目:
	-- Rothenberg propriety (rothenprop) info		-- Rothenberg propriety (rothenprop) info
	if ns == 1 then		if ns == 1 then
	intro = intro .. " ~~Scales of this form are always [[proper]] because there is only one small step.~~"		intro = intro .. "この形式の音階は、小さな音程が1つしかないため、常に{{En仮リンク\|厳密に適正\|Rothernberg propriety}}となる。"
	elseif ns / n == 1 then		elseif ns / n == 1 then
	intro = intro .. " ~~Scales of the true MOS form, where every period is the same, are [[proper]] because there is only one small step per period.~~"		intro = intro .. "全ての周期が等しく、真にMOSである場合は、1周期につき小さな音程が1つしかないため、{{En仮リンク\|厳密に適正\|Rothernberg propriety}}である。"
	end		end

2026年4月2日 (木) 12:12にFurcht968による

2026-04-02T12:12:18Z

@@ 230行目: / 230行目: @@
 	-- This is done through the aid of a helper function
 	local intro = p.mos_intro_names(scale_sig, tamnams_pasred, other_parsed)
 	-- Add step counts
@@ 263行目: / 253行目: @@
 	else
 		intro = intro .. string.format("%sを周期とする[[MOSスケール]]である。", equave_as_ratio)
 	end

2026年4月2日 (木) 12:07にFurcht968による

2026-04-02T12:07:13Z

← 古い版		2026年4月2日 (木) 12:07時点における版
177行目:		177行目:
	local descendant_text = ""		local descendant_text = ""
	if generations == 1 then		if generations == 1 then
	descendant_text = string.format("%~~s is a child scale of~~ [[%s]]", mos.as_string(input_mos), mos.as_string(ancestor_mos))		descendant_text = string.format("%sは、[[%s]]の親MOSであり", mos.as_string(input_mos), mos.as_string(ancestor_mos))
	elseif generations == 2 then		elseif generations == 2 then
	descendant_text = string.format("%~~s is a grandchild scale of~~ [[%s]]", mos.as_string(input_mos), mos.as_string(ancestor_mos))		descendant_text = string.format("%sは、[[%s]]の祖MOSであり", mos.as_string(input_mos), mos.as_string(ancestor_mos))
	elseif generations == 3 then		elseif generations == 3 then
	descendant_text = string.format("%~~s is a great-grandchild scale of~~ [[%s]]", mos.as_string(input_mos), mos.as_string(ancestor_mos))		descendant_text = string.format("%sは、[[%s]]の曽祖MOSであり", mos.as_string(input_mos), mos.as_string(ancestor_mos))
	else		else
	descendant_text = string.format("%~~s is related to~~ [[%s]]", mos.as_string(input_mos), mos.as_string(ancestor_mos))		descendant_text = string.format("%sは、[[%s]]と近親であり", mos.as_string(input_mos), mos.as_string(ancestor_mos))
	end		end

194行目:		194行目:
	--end		--end

	descendant_text = descendant_text .. string.format("~~, expanding it by~~ %~~d tones.~~", input_mos.nL + input_mos.ns - ancestor_mos.nL - ancestor_mos.ns)		descendant_text = descendant_text .. string.format("、%d音分増える。", input_mos.nL + input_mos.ns - ancestor_mos.nL - ancestor_mos.ns)

	return descendant_text		return descendant_text

2026年4月2日 (木) 11:59にFurcht968による

2026-04-02T11:59:16Z

2026年4月2日 (木) 11:49にFurcht968による

2026-04-02T11:49:31Z

2026年4月2日 (木) 11:45にFurcht968による

2026-04-02T11:45:31Z

← 古い版		2026年4月2日 (木) 11:45時点における版
231行目:		231行目:
	local intro = p.mos_intro_names(scale_sig, tamnams_pasred, other_parsed)		local intro = p.mos_intro_names(scale_sig, tamnams_pasred, other_parsed)

			-- Add repetition
			if n == 1 then
			intro = intro .. (equave_in_cents == 1200 and "[[オクターブ]]" or string.format("[[%s]] (%.1f{{cent}})の音程", equave_as_ratio, equave_in_cents, round)) .. "の中で"
			else
			intro = intro .. (equave_in_cents == 1200 and "[[オクターブ]]" or string.format("[[%s]] (%.1f{{cent}})の音程", equave_as_ratio, equave_in_cents, round)) .. string.format("を%d回、", n)
			intro = intro .. string.format("%.1f{{cent}}の音程の中で", period_in_cents)
			intro = intro .. string.format("%d個の広い音程と", nL/n)
			intro = intro .. string.format("%d個の狭い音程の周期と共に", ns/n)
			end

	-- Add step counts		-- Add step counts
247行目:		256行目:
	-- Add equave equivalence		-- Add equave equivalence
	if rat.eq(input_mos.equave, rat.new(2)) then		if rat.eq(input_mos.equave, rat.new(2)) then
	intro = intro .. "~~オクターブを周期とする~~[[MOS]]スケールである。"		intro = intro .. "[[オクターブ]]を周期とする[[MOS]]スケールである。"
	elseif rat.eq(input_mos.equave, rat.new(3)) then		elseif rat.eq(input_mos.equave, rat.new(3)) then
	intro = intro .. "~~トリターブを周期とする~~[MOS]]スケールである。"		intro = intro .. "[[トリターブ]]を周期とする[MOS]]スケールである。"
	elseif rat.eq(input_mos.equave, rat.new(3,2)) then		elseif rat.eq(input_mos.equave, rat.new(3,2)) then
	intro = intro .. "[[3/2]]を周期とする[[MOS]]スケールである。"		intro = intro .. "[[3/2]]を周期とする[[MOS]]スケールである。"
	else		else
	intro = intro .. string.format("%sを周期とする[[MOS]]である。", equave_as_ratio)		intro = intro .. string.format("%sを周期とする[[MOS]]である。", equave_as_ratio)
	~~end~~

	~~-- Add repetition~~
	~~if n == 1 then~~
	~~intro = intro .. ", repeating every " .. (equave_in_cents == 1200 and "[[octave]]." or string.format(" interval of [[%s]] (%.1f{{cent}}).", equave_as_ratio, equave_in_cents, round))~~
	~~else~~
	~~intro = intro .. string.format(", with a [[period]] of %d large %s", nL/n, (nL/n == 1 and "step" or "steps"))~~
	~~intro = intro .. string.format(" and %d small %s", ns/n, (ns/n == 1 and "step" or "steps"))~~
	~~intro = intro .. string.format(" that repeats every %.1f{{cent}}", period_in_cents)~~
	intro = intro .. (n == 2 and ", or twice every" or string.format(", or %d times every", n)) .. (equave_in_cents == 1200 and " octave." or string.format(" interval of [[%s]] (%.1f{{cent}}).", equave_as_ratio, equave_in_cents, round))
	end		end

← 古い版		2026年4月2日 (木) 11:59時点における版
51行目:		51行目:

	-- Get all the mos's names, starting with tamnams names if applicable		-- Get all the mos's names, starting with tamnams names if applicable
	local tamnams_names_list = p.mos_intro_list_names(tamnams_name, "や、")		local tamnams_names_list = p.mos_intro_list_names(tamnams_name, "and")
	local other_names_list = p.mos_intro_list_names(other_names, "や、")		local other_names_list = p.mos_intro_list_names(other_names, "or")

	-- Construct the sentence		-- Construct the sentence
	local sentence = string.format("'''%s'''", scale_sig)		local sentence = string.format("'''%s'''は、", scale_sig)

	-- Add names		-- Add names
	if tamnams_names_list ~= "" and other_names_list ~= "" then		if tamnams_names_list ~= "" and other_names_list ~= "" then
	-- There are both tamnams names and alternate names		-- There are both tamnams names and alternate names
	sentence = sentence .. string.format("は、{{En仮リンク\|TAMNAMS}}においては%sと呼ばれ、他に%sといった呼称が存在する。この音階は", tamnams_names_list, other_names_list)		sentence = sentence .. string.format("{{En仮リンク\|TAMNAMS}}においては%sと呼ばれ、他に%sといった呼称が存在する。この音階は", tamnams_names_list, other_names_list)
	elseif tamnams_names_list ~= "" and other_names_list == "" then		elseif tamnams_names_list ~= "" and other_names_list == "" then
	-- There are only tamnams names		-- There are only tamnams names
	sentence = sentence .. string.format("は、{{En仮リンク\|TAMNAMS}}において%sと呼ばれる。この音階は", tamnams_names_list)		sentence = sentence .. string.format("{{En仮リンク\|TAMNAMS}}において%sと呼ばれる。この音階は", tamnams_names_list)
	elseif tamnams_names_list == "" and other_names_list ~= "" then		elseif tamnams_names_list == "" and other_names_list ~= "" then
	-- There are no tamnams names but there are alternate names		-- There are no tamnams names but there are alternate names
	sentence = sentence .. string.format("は、%sと呼ばれる。この音階は", other_names_list)		sentence = sentence .. string.format("%sと呼ばれる。この音階は", other_names_list)
	end		end

← 古い版		2026年4月2日 (木) 11:49時点における版
51行目:		51行目:

	-- Get all the mos's names, starting with tamnams names if applicable		-- Get all the mos's names, starting with tamnams names if applicable
	local tamnams_names_list = p.mos_intro_list_names(tamnams_name, "~~and~~")		local tamnams_names_list = p.mos_intro_list_names(tamnams_name, "や、")
	local other_names_list = p.mos_intro_list_names(other_names, "or")		local other_names_list = p.mos_intro_list_names(other_names, "や、")

	-- Construct the sentence		-- Construct the sentence
60行目:		60行目:
	if tamnams_names_list ~= "" and other_names_list ~= "" then		if tamnams_names_list ~= "" and other_names_list ~= "" then
	-- There are both tamnams names and alternate names		-- There are both tamnams names and alternate names
	sentence = sentence .. string.format("は、{{En仮リンク\|TAMNAMS}}においては%~~sや、他に~~%~~sとも呼ばれ、,~~", tamnams_names_list, other_names_list)		sentence = sentence .. string.format("は、{{En仮リンク\|TAMNAMS}}においては%sと呼ばれ、他に%sといった呼称が存在する。この音階は", tamnams_names_list, other_names_list)
	elseif tamnams_names_list ~= "" and other_names_list == "" then		elseif tamnams_names_list ~= "" and other_names_list == "" then
	-- There are only tamnams names		-- There are only tamnams names
	sentence = sentence .. string.format("は、{{En仮リンク\|TAMNAMS}}において%~~sと呼ばれ、~~", tamnams_names_list)		sentence = sentence .. string.format("は、{{En仮リンク\|TAMNAMS}}において%sと呼ばれる。この音階は", tamnams_names_list)
	elseif tamnams_names_list == "" and other_names_list ~= "" then		elseif tamnams_names_list == "" and other_names_list ~= "" then
	-- There are no tamnams names but there are alternate names		-- There are no tamnams names but there are alternate names
	sentence = sentence .. string.format("は、%~~sと呼ばれ、~~", other_names_list)		sentence = sentence .. string.format("は、%sと呼ばれる。この音階は", other_names_list)
	end		end

256行目:		256行目:
	-- Add equave equivalence		-- Add equave equivalence
	if rat.eq(input_mos.equave, rat.new(2)) then		if rat.eq(input_mos.equave, rat.new(2)) then
	intro = intro .. "[[オクターブ]]を周期とする[[~~MOS~~]]~~スケールである。~~"		intro = intro .. "[[オクターブ]]を周期とする[[MOSスケール]]である。"
	elseif rat.eq(input_mos.equave, rat.new(3)) then		elseif rat.eq(input_mos.equave, rat.new(3)) then
	intro = intro .. "[[トリターブ]]を周期とする[~~MOS~~]]~~スケールである。~~"		intro = intro .. "[[トリターブ]]を周期とする[MOSスケール]]である。"
	elseif rat.eq(input_mos.equave, rat.new(3,2)) then		elseif rat.eq(input_mos.equave, rat.new(3,2)) then
	intro = intro .. "[[3/2]]を周期とする[[~~MOS~~]]~~スケールである。~~"		intro = intro .. "[[3/2]]を周期とする[[MOSスケール]]である。"
	else		else
	intro = intro .. string.format("%sを周期とする[[~~MOS~~]]である。", equave_as_ratio)		intro = intro .. string.format("%sを周期とする[[MOSスケール]]である。", equave_as_ratio)
	end		end

292行目:		292行目:
	local dark_gen_max_r = tostring(utils._round_dec(dark_gen_max, round))		local dark_gen_max_r = tostring(utils._round_dec(dark_gen_max, round))

	intro = intro .. string.format("~~この音階は、~~%s{{cent}}から%s{{cent}}、あるいは%s{{cent}}から%s{{cent}}までの[[ジェネレーター]]を用いて作られる。", bright_gen_min_r, bright_gen_max_r, dark_gen_min_r, dark_gen_max_r)		intro = intro .. string.format("%s{{cent}}から%s{{cent}}、あるいは%s{{cent}}から%s{{cent}}までの[[ジェネレーター]]を用いて作られる。", bright_gen_min_r, bright_gen_max_r, dark_gen_min_r, dark_gen_max_r)

	-- Rothenberg propriety (rothenprop) info		-- Rothenberg propriety (rothenprop) info