Module:Interval table - Revision history

ArrowHead294 at 12:11, 1 June 2025

2025-06-01T12:11:33Z

← Older revision		Revision as of 12:11, 1 June 2025
Line 97:		Line 97:
	local ratios_list = get_ratios_list((20 + (et.size / 4)), 12, 47)		local ratios_list = get_ratios_list((20 + (et.size / 4)), 12, 47)

	~~wtext~~ = t_head ..		result = t_head ..
	"\|-\n" ..		"\|-\n" ..
	"! Steps\n" ..		"! Steps\n" ..
Line 103:		Line 103:

	if rat.eq(et.equave, 3) then		if rat.eq(et.equave, 3) then
	~~wtext~~ = ~~wtext~~ .. "! [[Hekt]]s\n"		result = result .. "! [[Hekt]]s\n"
	end		end
	~~wtext~~ = ~~wtext~~ ..		result = result ..
	"! Approximate ratios\n"		"! Approximate ratios\n"

	if rat.eq(et.equave, 2) then		if rat.eq(et.equave, 2) then
	if dual_fifth then		if dual_fifth then
	~~wtext~~ = ~~wtext~~		result = result
	.. string.format("! [[Ups and downs notation]]<br />(Dual flat fifth %s\\%s)\n", dual_flat_fifth, et.size)		.. string.format("! [[Ups and downs notation]]<br />(Dual flat fifth %s\\%s)\n", dual_flat_fifth, et.size)
	.. string.format("! [[Ups and downs notation]]<br />(Dual sharp fifth %s\\%s)\n", dual_sharp_fifth, et.size)		.. string.format("! [[Ups and downs notation]]<br />(Dual sharp fifth %s\\%s)\n", dual_sharp_fifth, et.size)
	else		else
	~~wtext~~ = ~~wtext~~ .. "! [[Ups and downs notation]]\n"		result = result .. "! [[Ups and downs notation]]\n"
	end		end
	end		end
Line 120:		Line 120:
	if #additional_split > 0 then		if #additional_split > 0 then
	for i = 1, #additional_split[1] do		for i = 1, #additional_split[1] do
	~~wtext~~ = ~~wtext~~ .. string.format("! %s\n", additional_split[1][i])		result = result .. string.format("! %s\n", additional_split[1][i])
	end		end
	end		end
Line 128:		Line 128:
	if decimalPlaces < 1 then decimalPlaces = 1 end		if decimalPlaces < 1 then decimalPlaces = 1 end
	for i = 0, et.size do		for i = 0, et.size do
	~~wtext~~ = ~~wtext~~ .. "\|-\n"		result = result .. "\|-\n"
	.. string.format("\| %s\n", i)		.. string.format("\| %s\n", i)
	.. string.format("\| %s\n", utils._round_dec(ET.cents(et, i), decimalPlaces))		.. string.format("\| %s\n", utils._round_dec(ET.cents(et, i), decimalPlaces))

	if rat.eq(et.equave, 3) then		if rat.eq(et.equave, 3) then
	~~wtext~~ = ~~wtext~~ .. string.format("\| %s\n", utils._round_dec(ET.hekts(et, i), decimalPlaces))		result = result .. string.format("\| %s\n", utils._round_dec(ET.hekts(et, i), decimalPlaces))
	end		end

	~~wtext~~ = ~~wtext~~ .. "\| "		result = result .. "\| "

	for j = 1, #ratios_list do		for j = 1, #ratios_list do
Line 148:		Line 148:
	< (1200 / (math.log(et.size) * (et.size + 5)))		< (1200 / (math.log(et.size) * (et.size + 5)))
	then		then
	~~wtext~~ = ~~wtext~~ .. string.format("[[%s/%s]], ", ratios_list[j][1], ratios_list[j][2])		result = result .. string.format("[[%s/%s]], ", ratios_list[j][1], ratios_list[j][2])
	end		end
	end		end

	-- ???		-- ???
	if ~~wtext~~:sub(-2, -1) == "\| " then		if result:sub(-2, -1) == "\| " then
	~~wtext~~ = ~~wtext~~ .. "\n"		result = result .. "\n"
	else		else
	~~wtext~~ = ~~wtext~~:sub(0, -3) .. "\n"		result = result:sub(0, -3) .. "\n"
	end		end

	if rat.eq(et.equave, 2) then		if rat.eq(et.equave, 2) then
	if dual_fifth then		if dual_fifth then
	~~wtext~~ = ~~wtext~~ .. string.format("\| %s\n", ud_note(et, dual_flat_fifth, i))		result = result .. string.format("\| %s\n", ud_note(et, dual_flat_fifth, i))
	~~wtext~~ = ~~wtext~~ .. string.format("\| %s\n", ud_note(et, dual_sharp_fifth, i))		result = result .. string.format("\| %s\n", ud_note(et, dual_sharp_fifth, i))
	else		else
	~~wtext~~ = ~~wtext~~ .. string.format("\| %s\n", ud_note(et, fifth, i))		result = result .. string.format("\| %s\n", ud_note(et, fifth, i))
	end		end
	end		end
Line 170:		Line 170:
	if (i + 2) <= #additional_split then		if (i + 2) <= #additional_split then
	for j = 1, #additional_split[i + 2] do		for j = 1, #additional_split[i + 2] do
	~~wtext~~ = ~~wtext~~ .. string.format("\| %s\n", additional_split[i + 2][j])		result = result .. string.format("\| %s\n", additional_split[i + 2][j])
	end		end
	end		end
	end		end

	~~wtext~~ = ~~wtext~~ .. "\|}"		result = result .. "\|}"
	~~return frame:preprocess(~~debugg == true ~~and~~ "<~~pre~~>" .. ~~wtext~~ .. "</~~pre~~>" ~~or wtext~~)
			if debugg == true then
			result = "<syntaxhighlight lang=\"wikitext\">" .. result .. "</syntaxhighlight>"
			end

			return frame:preprocess(result)
	end		end

	return p		return p

ArrowHead294: Alphabetise dependencies

2025-05-19T12:41:12Z

Alphabetise dependencies

← Older revision		Revision as of 12:41, 19 May 2025
Line 1:		Line 1:
	local p = {}		local p = {}
	local ~~utils~~ = require("Module:~~Utils~~")
			local ET = require("Module:ET")
	local rat = require("Module:Rational")		local rat = require("Module:Rational")
	local ud = require("Module:Ups and downs notation")		local ud = require("Module:Ups and downs notation")
	local ET = require("Module:ET")		local utils = require("Module:Utils")
	local yesno = require("Module:Yesno")		local yesno = require("Module:Yesno")

ArrowHead294: Worked fine before

2025-03-17T12:50:30Z

Worked fine before

← Older revision		Revision as of 12:50, 17 March 2025
Line 175:		Line 175:

	wtext = wtext .. "\|}"		wtext = wtext .. "\|}"
			return frame:preprocess(debugg == true and "<pre>" .. wtext .. "</pre>" or wtext)
	if debugg ~~then~~
	~~wtext~~ = "<pre>" .. wtext .. "</pre>"
	~~end~~

	~~return frame:preprocess(~~wtext)
	end		end

	return p		return p

ArrowHead294 at 12:10, 17 March 2025

2025-03-17T12:10:53Z

← Older revision		Revision as of 12:10, 17 March 2025
Line 89:		Line 89:
	local fifth = patent_val[3] - patent_val[2]		local fifth = patent_val[3] - patent_val[2]
	local fifth_error = ET.cents(et, fifth) - rat.cents(rat.new(3, 2))		local fifth_error = ET.cents(et, fifth) - rat.cents(rat.new(3, 2))
	local dual_fifth = math.abs(fifth_error) > (400 / et.size)		local dual_fifth = (math.abs(fifth_error) > (400 / et.size))
	local dual_flat_fifth = ET.approximate(et, 3 / 2, -1)		local dual_flat_fifth = ET.approximate(et, 3 / 2, -1)
	local dual_sharp_fifth = ET.approximate(et, 3 / 2, 1)		local dual_sharp_fifth = ET.approximate(et, 3 / 2, 1)
Line 110:		Line 110:
	if dual_fifth then		if dual_fifth then
	wtext = wtext		wtext = wtext
	.. "! [[Ups and downs notation]]<br>(Dual flat fifth "		.. string.format("! [[Ups and downs notation]]<br />(Dual flat fifth %s\\%s)\n", dual_flat_fifth, et.size)
	~~.. dual_flat_fifth~~		.. string.format("! [[Ups and downs notation]]<br />(Dual sharp fifth %s\\%s)\n", dual_sharp_fifth, et.size)
	~~.. "~~\\"
	.. et.size
	.. ~~")\n"~~
	.. "! [[Ups and downs notation]]<br>(Dual sharp fifth "
	~~.. dual_sharp_fifth~~
	~~.. "~~\\"
	.. et.size
	~~.. "~~)~~\n"~~
	else		else
	wtext = wtext .. "! [[Ups and downs notation]]\n"		wtext = wtext .. "! [[Ups and downs notation]]\n"
Line 127:		Line 119:
	if #additional_split > 0 then		if #additional_split > 0 then
	for i = 1, #additional_split[1] do		for i = 1, #additional_split[1] do
	wtext = wtext .. "! " .. additional_split[1][i] ~~.. "\n"~~		wtext = wtext .. string.format("! %s\n", additional_split[1][i])
	end		end
	end		end
Line 136:		Line 128:
	for i = 0, et.size do		for i = 0, et.size do
	wtext = wtext .. "\|-\n"		wtext = wtext .. "\|-\n"
	.. "\| ~~" .. i .. "~~\n"		.. string.format("\| %s\n", i)
	.. "\| " .. utils._round_dec(ET.cents(et, i), decimalPlaces) ~~.. "\n"~~		.. string.format("\| %s\n", utils._round_dec(ET.cents(et, i), decimalPlaces))

	if rat.eq(et.equave, 3) then		if rat.eq(et.equave, 3) then
	wtext = wtext .. "\| " .. utils._round_dec(ET.hekts(et, i), decimalPlaces) ~~.. "\n"~~		wtext = wtext .. string.format("\| %s\n", utils._round_dec(ET.hekts(et, i), decimalPlaces))
	end		end

Line 155:		Line 147:
	< (1200 / (math.log(et.size) * (et.size + 5)))		< (1200 / (math.log(et.size) * (et.size + 5)))
	then		then
	wtext = wtext .. "[[" .. ratios_list[j][1] ~~.. "/" ..~~ ratios_list[j][2] ~~.. "]], "~~		wtext = wtext .. string.format("[[%s/%s]], ", ratios_list[j][1], ratios_list[j][2])
	end		end
	end		end
Line 168:		Line 160:
	if rat.eq(et.equave, 2) then		if rat.eq(et.equave, 2) then
	if dual_fifth then		if dual_fifth then
	wtext = wtext .. "\| " .. ud_note(et, dual_flat_fifth, i) ~~.. "\n"~~		wtext = wtext .. string.format("\| %s\n", ud_note(et, dual_flat_fifth, i))
	wtext = wtext .. "\| " .. ud_note(et, dual_sharp_fifth, i) ~~.. "\n"~~		wtext = wtext .. string.format("\| %s\n", ud_note(et, dual_sharp_fifth, i))
	else		else
	wtext = wtext .. "\| " .. ud_note(et, fifth, i) ~~.. "\n"~~		wtext = wtext .. string.format("\| %s\n", ud_note(et, fifth, i))
	end		end
	end		end
Line 177:		Line 169:
	if (i + 2) <= #additional_split then		if (i + 2) <= #additional_split then
	for j = 1, #additional_split[i + 2] do		for j = 1, #additional_split[i + 2] do
	wtext = wtext .. "\| " .. additional_split[i + 2][j] ~~.. "\n"~~		wtext = wtext .. string.format("\| %s\n", additional_split[i + 2][j])
	end		end
	end		end
Line 183:		Line 175:

	wtext = wtext .. "\|}"		wtext = wtext .. "\|}"
	~~return frame:preprocess(~~debugg =~~= true and~~ "<pre>" .. wtext .. "</pre>" or wtext)
			if debugg then
			wtext = "<pre>" .. wtext .. "</pre>"
			end

			return frame:preprocess(wtext)
	end		end

	return p		return p

ArrowHead294 at 12:04, 17 March 2025

2025-03-17T12:04:28Z

← Older revision		Revision as of 12:04, 17 March 2025
Line 63:		Line 63:
	local tuning = frame.args["tuning"]		local tuning = frame.args["tuning"]
	local et = ET.parse(tuning) or ET.parse("12edo")		local et = ET.parse(tuning) or ET.parse("12edo")
			local debugg = yesno(frame.args["debug"])
	local patent_val = {		local patent_val = {
	[2] = ET.approximate(et, 2),		[2] = ET.approximate(et, 2),
Line 182:		Line 183:

	wtext = wtext .. "\|}"		wtext = wtext .. "\|}"

	~~local debugg = yesno(frame.args["debug"])~~
	return frame:preprocess(debugg == true and "<pre>" .. wtext .. "</pre>" or wtext)		return frame:preprocess(debugg == true and "<pre>" .. wtext .. "</pre>" or wtext)
	end		end

	return p		return p

ArrowHead294 at 01:25, 25 February 2025

2025-02-25T01:25:52Z

← Older revision		Revision as of 01:25, 25 February 2025
Line 4:		Line 4:
	local ud = require("Module:Ups and downs notation")		local ud = require("Module:Ups and downs notation")
	local ET = require("Module:ET")		local ET = require("Module:ET")
			local yesno = require("Module:Yesno")

	-- Gets mapping of a monzo in a val		-- Gets mapping of a monzo in a val
Line 182:		Line 183:
	wtext = wtext .. "\|}"		wtext = wtext .. "\|}"

	local debugg = frame.args["debug"]		local debugg = yesno(frame.args["debug"])
	return frame:preprocess(debugg == "true" and "<pre>" .. wtext .. "</pre>" or wtext)		return frame:preprocess(debugg == true and "<pre>" .. wtext .. "</pre>" or wtext)
	end		end

	return p		return p

ArrowHead294 at 14:09, 3 February 2025

2025-02-03T14:09:59Z

← Older revision		Revision as of 14:09, 3 February 2025
Line 181:		Line 181:

	wtext = wtext .. "\|}"		wtext = wtext .. "\|}"
	return wtext
			local debugg = frame.args["debug"]
			return frame:preprocess(debugg == "true" and "<pre>" .. wtext .. "</pre>" or wtext)
	end		end

	return p		return p

ArrowHead294 at 16:21, 23 January 2025

2025-01-23T16:21:14Z

← Older revision		Revision as of 16:21, 23 January 2025
Line 95:		Line 95:

	wtext = t_head ..		wtext = t_head ..
	"\|-\n" ..		"\|-\n" ..
	"! Steps\n"		"! Steps\n" ..
			"! Cents\n"

	if rat.eq(et.equave, 3) then		if rat.eq(et.equave, 3) then
Line 102:		Line 103:
	end		end
	wtext = wtext ..		wtext = wtext ..
	~~"! Cents\n" ..~~
	"! Approximate ratios\n"		"! Approximate ratios\n"

ArrowHead294 at 16:20, 23 January 2025

2025-01-23T16:20:03Z

← Older revision		Revision as of 16:20, 23 January 2025
Line 96:		Line 96:
	wtext = t_head ..		wtext = t_head ..
	"\|-\n" ..		"\|-\n" ..
	"! Steps\n" ..		"! Steps\n"

			if rat.eq(et.equave, 3) then
			wtext = wtext .. "! [[Hekt]]s\n"
			end
			wtext = wtext ..
	"! Cents\n" ..		"! Cents\n" ..
	"! Approximate ratios\n"		"! Approximate ratios\n"

	if rat.eq(et.equave, 2) then		if rat.eq(et.equave, 2) then
	if dual_fifth then		if dual_fifth then
Line 130:		Line 136:
	.. "\| " .. i .. "\n"		.. "\| " .. i .. "\n"
	.. "\| " .. utils._round_dec(ET.cents(et, i), decimalPlaces) .. "\n"		.. "\| " .. utils._round_dec(ET.cents(et, i), decimalPlaces) .. "\n"
	.. "\| "
			if rat.eq(et.equave, 3) then
			wtext = wtext .. "\| " .. utils._round_dec(ET.hekts(et, i), decimalPlaces) .. "\n"
			end

			wtext = wtext .. "\| "

	for j = 1, #ratios_list do		for j = 1, #ratios_list do
	-- Go through all ratios.		-- Go through all ratios.

TallKite at 13:02, 23 December 2024

2024-12-23T13:02:20Z

← Older revision		Revision as of 13:02, 23 December 2024
Line 123:		Line 123:
	end		end

	local decimalPlaces = 2 - math.floor(math.log(1200.0 / et.size, 10))		local decimalPlaces = 3 - math.floor(math.log(1200 / et.size, 10))
	if decimalPlaces > 3 then decimalPlaces = 3 end		if decimalPlaces > 3 then decimalPlaces = 3 end
	if decimalPlaces < 1 then decimalPlaces = 1 end		if decimalPlaces < 1 then decimalPlaces = 1 end