Module:Infobox regtemp - Revision history

Xenllium at 08:12, 4 May 2026

2026-05-04T08:12:19Z

@@ Line 33: / Line 33: @@
 	local comp2 = frame.args["comp2"]
 	local acc2 = frame.args["acc2"]
 	local debugg = frame.args["debug"]
@@ Line 244: / Line 250: @@
 		string1 = string1 .. "; <br>" .. limit2 .. limit_text .. ": " .. acc2 .. "{{c}}"
 		string2 = string2 .. "; <br>" .. limit2 .. limit_text .. ": " .. comp2 .. " notes"
 	end
@@ Line 484: / Line 498: @@
 	elseif wart_prefix == "i" then
 		et_eq = "23"
 	end
 	return et_eq, et_num

FloraC: Bugfix

2026-03-08T08:39:31Z

Bugfix

← Older revision		Revision as of 08:39, 8 March 2026
Line 457:		Line 457:
	et_eq_letter = "f"		et_eq_letter = "f"
	else		else
	et_eq_letter = eq		et_eq_letter = et_eq
	end		end
	return et_eq_letter		return et_eq_letter

FloraC: Support for higher-rank temps (up to rank 4)

2026-02-08T13:16:05Z

Support for higher-rank temps (up to rank 4)

Show changes

FloraC: Support for wart notation

2025-12-06T14:00:28Z

Support for wart notation

Show changes

FloraC: + a constant (12) above which we stop converting numbers to greek

2025-11-28T08:45:30Z

+ a constant (12) above which we stop converting numbers to greek

← Older revision		Revision as of 08:45, 28 November 2025
Line 24:		Line 24:

	local mos = frame.args["mosses"]		local mos = frame.args["mosses"]
	local ~~ploidacot~~ = frame.args["ploidacot"]		local ploidacot_override = frame.args["ploidacot"]
	local colorname = frame.args["colorname"]		local colorname = frame.args["colorname"]
	local pergen = frame.args["pergen"]		local pergen = frame.args["pergen"]
Line 128:		Line 128:
	end		end

	~~suffix~~ = ~~p.num2greeklet(tostring(shear)) .. p.num2greek(tostring(cot), "cot") .. suffix~~		-- construct the ploidacot signature
			local MAX_GREEK_NUMERAL = 12 -- max number to convert to greek letters/numerals

	if ploid ~= 1 then		local ploid_sig
	~~suffix~~ = p.num2greek(tostring(ploid), "ploid") .. "ploid " .. suffix		if ploid == 1 then
			ploid_sig = "" -- omit the ploid part
			elseif ploid <= MAX_GREEK_NUMERAL then
			ploid_sig = p.num2greek(tostring(ploid), "ploid") .. "ploid "
			else
			ploid_sig = tostring (ploid) .. "-ploid "
			end

			local shear_sig
			if shear <= MAX_GREEK_NUMERAL then
			shear_sig = p.num2greeklet(tostring(shear))
			else
			shear_sig = tostring(shear) .. "-sheared "
			end

			local cot_sig
			if cot <= MAX_GREEK_NUMERAL then
			cot_sig = p.num2greek(tostring(cot), "cot") .. suffix
			else
			cot_sig = tostring(cot) .. "-" .. suffix
	end		end

	if ~~not~~ u.value_provided (~~ploidacot~~) then		ploidacot = ploid_sig .. shear_sig .. cot_sig
	ploidacot = ~~suffix~~
			-- user override
			if u.value_provided (ploidacot_override) then
			ploidacot = ploidacot_override
	end		end

FloraC: Fix

2025-11-28T08:01:15Z

Fix

← Older revision		Revision as of 08:01, 28 November 2025
Line 134:		Line 134:
	end		end

	if ploidacot ~~== "0"~~ then		if not u.value_provided (ploidacot) then
	ploidacot = suffix		ploidacot = suffix
	end		end

FloraC: Make mos scales compulsory

2025-11-28T07:59:35Z

Make mos scales compulsory

← Older revision		Revision as of 07:59, 28 November 2025
Line 149:		Line 149:
	})		})

	~~if mos ~= "0" then~~		table.insert(data, {
	table.insert(data, {		"MOS scales",
	"MOS scales",		mos
	mos		})
	})
	~~end~~

	table.insert(data, {		table.insert(data, {
Line 161:		Line 159:
	})		})

	if pergen ~~~= "0"~~ then		if u.value_provided (pergen) then
	table.insert(data, {		table.insert(data, {
	"Pergen",		"Pergen",
Line 168:		Line 166:
	end		end

	if colorname ~~~= "0"~~ then		if u.value_provided (colorname) then
	table.insert(data, {		table.insert(data, {
	"Color name",		"Color name",
Line 186:		Line 184:
	local string1 = limit1 .. limit_text .. ": " .. acc1 .. "{{c}}"		local string1 = limit1 .. limit_text .. ": " .. acc1 .. "{{c}}"
	local string2 = limit1 .. limit_text .. ": " .. comp1 .. " notes"		local string2 = limit1 .. limit_text .. ": " .. comp1 .. " notes"
	if limit2 ~~~= "0"~~ then		if u.value_provided (limit2) then
	string1 = string1 .. "; <br>" .. limit2 .. limit_text .. ": " .. acc2 .. "{{c}}"		string1 = string1 .. "; <br>" .. limit2 .. limit_text .. ": " .. acc2 .. "{{c}}"
	string2 = string2 .. "; <br>" .. limit2 .. limit_text .. ": " .. comp2 .. " notes"		string2 = string2 .. "; <br>" .. limit2 .. limit_text .. ": " .. comp2 .. " notes"

FloraC: Set straight subgroup interpretation

2025-11-24T15:14:04Z

Set straight subgroup interpretation

← Older revision		Revision as of 15:14, 24 November 2025
Line 52:		Line 52:
	"⟨" .. mapping .. "]"		"⟨" .. mapping .. "]"
	})		})

	-- process mapping		-- process mapping
	local map = {}		local map = {}
Line 63:		Line 63:
	end		end
	genchain_mapping[1] = 0		genchain_mapping[1] = 0

			-- interpret subgroup
			local subgroup_basis = {}
			for str in subgroup:gmatch("(%d+/?%d*)") do
			table.insert(subgroup_basis, str)
			end

	-- autocalculating ploidacot		-- autocalculating ploidacot
	local ploid = tonumber (map[1])		local ploid = tonumber (map[1])

	local equave = ~~string~~.~~char~~(~~string~~.~~byte~~(~~subgroup, 1)~~)		local equave = u.eval_num_arg(subgroup_basis[1])
			local referent = u.eval_num_arg(subgroup_basis[2])
	local equave_letter		local equave_letter
	local cot = tonumber(genchain_mapping[2])		local cot = tonumber(genchain_mapping[2])
	~~local referent = string.char(string.byte(subgroup, 3))~~
	local suffix = "cleft"		local suffix = "cleft"
	if ~~tonumber(~~equave) == 3 then		if equave == 3 then -- twelfth-based temp
	equave_letter = "t"		equave_letter = "t"
	if ~~tonumber(string.char(string.byte(subgroup, 3)))~~ == 5 then		if referent == 5 then
	~~if tonumber(string~~.~~char~~(~~string.byte(subgroup, 5))~~) == 7 then		referent_candidate = u.eval_num_arg(subgroup_basis[3])
			if referent_candidate == 7 then
			referent = referent_candidate
	cot = tonumber(genchain_mapping[3])		cot = tonumber(genchain_mapping[3])
	suffix = "gem"		suffix = "gem"
	end		end
	~~elseif tonumber(string.char(string.byte(subgroup, 3))) == 2 then -- edf~~
	~~equave_letter = "f"~~
	~~equave = "3/2"~~
	~~referent = string.char(string.byte(subgroup, 5))~~
	end		end
	~~if referent~~ == ~~"7"~~ then		elseif equave == 1.5 then -- fifth-based temp
	~~suffix~~ = "~~gem~~"		equave_letter = "f"
	~~end~~		elseif equave == 2 then
	elseif ~~tonumber(~~equave) == 2 then
	equave_letter = "o"		equave_letter = "o"
	if ~~tonumber(string.char(string.byte(subgroup, 3)))~~ == 3 then		if referent == 3 then
	suffix = "cot"		suffix = "cot"
	elseif ~~tonumber(string.char(string.byte(subgroup, 3)))~~ == 5 then		elseif referent == 5 then
	suffix = "seph"		suffix = "seph"
	end		end
Line 102:		Line 105:
	end		end

	local equave_size = 1200 * u.log2~~(tonumber~~(equave))		local equave_size = 1200 * u.log2(equave)
	local referent_size = 1200 * u.log2~~(tonumber~~(referent))		local referent_size = 1200 * u.log2(referent)
	local period_size = equave_size / ploid		local period_size = equave_size / ploid
	local generator_size = tonumber(tuning)		local generator_size = tonumber(tuning)
Line 110:		Line 113:
	cot = -cot		cot = -cot
	end		end

	-- find the shear		-- find the shear
	local shear		local shear

FloraC: Bugfix 4: can't rely on whitespaces

2025-11-24T15:03:42Z

Bugfix 4: can't rely on whitespaces

← Older revision		Revision as of 15:03, 24 November 2025
Line 55:		Line 55:
	-- process mapping		-- process mapping
	local map = {}		local map = {}
	for ~~num~~ in mapping:gmatch("(-?%d+); ") do		for str in mapping:gmatch("(-?%d+);") do
	table.insert(map, ~~num~~)		table.insert(map, str)
	end		end
	local ~~lowermap~~ = {}		local genchain_mapping = {}
	for ~~num~~ in mapping:gmatch("(-?%d+) ") do		for str in mapping:gmatch("(-?%d+)") do
	table.insert(~~lowermap~~, ~~num~~)		table.insert(genchain_mapping, str)
	end		end
			genchain_mapping[1] = 0

	-- autocalculating ploidacot		-- autocalculating ploidacot
Line 68:		Line 69:
	local equave = string.char(string.byte(subgroup, 1))		local equave = string.char(string.byte(subgroup, 1))
	local equave_letter		local equave_letter
	local cot = tonumber(~~lowermap~~[1])		local cot = tonumber(genchain_mapping[2])
	local referent = string.char(string.byte(subgroup, 3))		local referent = string.char(string.byte(subgroup, 3))
	local suffix = "cleft"		local suffix = "cleft"
Line 75:		Line 76:
	if tonumber(string.char(string.byte(subgroup, 3))) == 5 then		if tonumber(string.char(string.byte(subgroup, 3))) == 5 then
	if tonumber(string.char(string.byte(subgroup, 5))) == 7 then		if tonumber(string.char(string.byte(subgroup, 5))) == 7 then
	cot = tonumber(~~lowermap~~[2])		cot = tonumber(genchain_mapping[3])
	suffix = "gem"		suffix = "gem"
	end		end

FloraC: Bugfix 3: negligences for acots

2025-11-24T14:59:30Z

Bugfix 3: negligences for acots

← Older revision		Revision as of 14:59, 24 November 2025
Line 109:		Line 109:
	cot = -cot		cot = -cot
	end		end
	local shear = (math.floor(generator_size * cot / period_size)
	- math.floor(referent_size % equave_size / period_size)) % cot		-- find the shear
			local shear
			if cot ~= 0 then
			shear = (math.floor(generator_size * cot / period_size)
			- math.floor(referent_size % equave_size / period_size)) % cot
			else
			shear = 0
			end

			-- omega extension
	if ploid == 1 and cot > 2 and shear == cot - ploid then		if ploid == 1 and cot > 2 and shear == cot - ploid then
	shear = shear - cot		shear = shear - cot
	end		end

	suffix = p.num2greeklet(tostring(shear)) .. p.num2greek(tostring(cot), "cot") .. suffix		suffix = p.num2greeklet(tostring(shear)) .. p.num2greek(tostring(cot), "cot") .. suffix