Module:Xenpaper - Revision history

ArrowHead294 at 18:25, 19 May 2025

2025-05-19T18:25:47Z

← Older revision		Revision as of 18:25, 19 May 2025
Line 1:		Line 1:
			local p = {}

	local mos = require("Module:MOS")		local mos = require("Module:MOS")
	local rat = require("Module:Rational")		local rat = require("Module:Rational")
	~~local p = {}~~

	-- TODO:		-- TODO:

Ganaram inukshuk: missed a url

2024-11-28T20:44:56Z

missed a url

← Older revision		Revision as of 20:44, 28 November 2024
Line 38:		Line 38:
	end		end

	text = "https://www.~~xenpaper~~.com/#" .. text		text = "https://www.luphoria.com/xenpaper/#" .. text
	return text		return text

Ganaram inukshuk: update url

2024-11-28T20:43:32Z

update url

← Older revision		Revision as of 20:43, 28 November 2024
Line 4:		Line 4:

	-- TODO:		-- TODO:
	~~-- - Update URL~~
	-- - Add support for ascending and descending scales		-- - Add support for ascending and descending scales

Line 91:		Line 90:
	end		end

	text = "https://www.~~xenpaper~~.com/#" .. text		text = "https://www.luphoria.com/xenpaper/#" .. text
	return text		return text
	end		end

	return p		return p

Ganaram inukshuk: todo

2024-11-27T09:03:12Z

todo

← Older revision		Revision as of 09:03, 27 November 2024
Line 4:		Line 4:

	-- TODO:		-- TODO:
			-- - Update URL
	-- - Add support for ascending and descending scales		-- - Add support for ascending and descending scales

ArrowHead294 at 16:18, 14 July 2024

2024-07-14T16:18:55Z

← Older revision		Revision as of 16:18, 14 July 2024
Line 1:		Line 1:
	local mos = require('Module:MOS')		local mos = require("Module:MOS")
	local rat = require('Module:Rational')		local rat = require("Module:Rational")
	local p = {}		local p = {}

Line 32:		Line 32:
	for i = 1, #step_pattern + 1 do		for i = 1, #step_pattern + 1 do
	if i ~= #step_pattern + 1 then		if i ~= #step_pattern + 1 then
	text = text .. string.format('%d--_', i - 1)		text = text .. string.format("%d--_", i - 1)
	else		else
	text = text .. string.format('%d---', i - 1)		text = text .. string.format("%d---", i - 1)
	end		end
	end		end
Line 84:		Line 84:
	local ratio_as_text = rat.as_ratio(ratios[i], "%2F")		local ratio_as_text = rat.as_ratio(ratios[i], "%2F")
	if i ~= #ratios then		if i ~= #ratios then
	text = text .. string.format('%d--_', i - 1)		text = text .. string.format("%d--_", i - 1)
	else		else
	text = text .. string.format('%d---', i - 1)		text = text .. string.format("%d---", i - 1)
	end		end
	end		end

Ganaram inukshuk: Trying previous change again...

2024-01-30T05:20:29Z

Trying previous change again...

← Older revision		Revision as of 05:20, 30 January 2024
Line 45:		Line 45:
	-- Create a Xenpaper link for a mode of a mos		-- Create a Xenpaper link for a mode of a mos
	-- TODO: support step sizes of c (L-s), A (L+c), and d (s-c) for modmosses		-- TODO: support step sizes of c (L-s), A (L+c), and d (s-c) for modmosses
	function p.mosstep_pattern_to_xenpaper_link(~~input_mos,~~ abstract_step_pattern, step_ratio)		function p.mosstep_pattern_to_xenpaper_link(abstract_step_pattern, step_ratio, equave)
	~~local input_mos = input_mos or mos.new(5~~, 2)
	local abstract_step_pattern = abstract_step_pattern or "LLLsLLs"		local abstract_step_pattern = abstract_step_pattern or "LLLsLLs"
	local step_ratio = step_ratio or { 2, 1 }		local step_ratio = step_ratio or { 2, 1 }
			local equave = equave or 2

	local L_size = step_ratio[1]		local L_size = step_ratio[1]
Line 63:		Line 63:
	end		end

	~~local equave = input_mos["equave"]~~
	return p.step_pattern_to_xenpaper_link(step_pattern, equave)		return p.step_pattern_to_xenpaper_link(step_pattern, equave)

Ganaram inukshuk: Undo revision 133561 by Ganaram inukshuk (talk)

2024-01-30T05:01:38Z

Undo revision 133561 by Ganaram inukshuk (talk)

← Older revision		Revision as of 05:01, 30 January 2024
Line 1:		Line 1:
			local mos = require('Module:MOS')
	local rat = require('Module:Rational')		local rat = require('Module:Rational')
	local p = {}		local p = {}
Line 8:		Line 9:
	function p.step_pattern_to_xenpaper_link(step_pattern, equave)		function p.step_pattern_to_xenpaper_link(step_pattern, equave)
	local step_pattern = step_pattern or { 2, 2, 2, 1, 2, 2, 1 }		local step_pattern = step_pattern or { 2, 2, 2, 1, 2, 2, 1 }
	local equave = equave or rat.new(2)		local equave = equave or rat.new(3)

	local ed = 0		local ed = 0
Line 18:		Line 19:
	if equave_as_text == "2%2F1" then		if equave_as_text == "2%2F1" then
	equave_as_text = "o"		equave_as_text = "o"
	~~elseif equave_as_text == "3%2F1" then~~
	~~equave_as_text = "3"~~
	end		end

Line 45:		Line 44:

	-- Create a Xenpaper link for a mode of a mos		-- Create a Xenpaper link for a mode of a mos
	~~-- The step pattern, step ratio, and equave (default is 2/1) are entered, so~~
	~~-- no input mos is necessary; this allows for entering modmosses.~~
	-- TODO: support step sizes of c (L-s), A (L+c), and d (s-c) for modmosses		-- TODO: support step sizes of c (L-s), A (L+c), and d (s-c) for modmosses
	function p.mosstep_pattern_to_xenpaper_link(abstract_step_pattern, step_ratio, ~~equave~~)		function p.mosstep_pattern_to_xenpaper_link(input_mos, abstract_step_pattern, step_ratio)
			local input_mos = input_mos or mos.new(5, 2)
	local abstract_step_pattern = abstract_step_pattern or "LLLsLLs"		local abstract_step_pattern = abstract_step_pattern or "LLLsLLs"
	local step_ratio = step_ratio or { 2, 1 }		local step_ratio = step_ratio or { 2, 1 }
	~~local equave = equave or rat.new(2, 1)~~

	local L_size = step_ratio[1]		local L_size = step_ratio[1]
Line 66:		Line 63:
	end		end

	return ~~rat~~.~~new~~(equave)		local equave = input_mos["equave"]
			return p.step_pattern_to_xenpaper_link(step_pattern, equave)

	end		end

Ganaram inukshuk: Changed format for mos-to-xenpaper function

2024-01-30T04:58:26Z

Changed format for mos-to-xenpaper function

← Older revision		Revision as of 04:58, 30 January 2024
Line 1:		Line 1:
	~~local mos = require('Module:MOS')~~
	local rat = require('Module:Rational')		local rat = require('Module:Rational')
	local p = {}		local p = {}
Line 9:		Line 8:
	function p.step_pattern_to_xenpaper_link(step_pattern, equave)		function p.step_pattern_to_xenpaper_link(step_pattern, equave)
	local step_pattern = step_pattern or { 2, 2, 2, 1, 2, 2, 1 }		local step_pattern = step_pattern or { 2, 2, 2, 1, 2, 2, 1 }
	local equave = equave or rat.new(3)		local equave = equave or rat.new(2)

	local ed = 0		local ed = 0
Line 19:		Line 18:
	if equave_as_text == "2%2F1" then		if equave_as_text == "2%2F1" then
	equave_as_text = "o"		equave_as_text = "o"
			elseif equave_as_text == "3%2F1" then
			equave_as_text = "3"
	end		end

Line 44:		Line 45:

	-- Create a Xenpaper link for a mode of a mos		-- Create a Xenpaper link for a mode of a mos
			-- The step pattern, step ratio, and equave (default is 2/1) are entered, so
			-- no input mos is necessary; this allows for entering modmosses.
	-- TODO: support step sizes of c (L-s), A (L+c), and d (s-c) for modmosses		-- TODO: support step sizes of c (L-s), A (L+c), and d (s-c) for modmosses
	function p.mosstep_pattern_to_xenpaper_link(~~input_mos,~~ abstract_step_pattern, step_ratio)		function p.mosstep_pattern_to_xenpaper_link(abstract_step_pattern, step_ratio, equave)
	~~local input_mos = input_mos or mos.new(5~~, 2)
	local abstract_step_pattern = abstract_step_pattern or "LLLsLLs"		local abstract_step_pattern = abstract_step_pattern or "LLLsLLs"
	local step_ratio = step_ratio or { 2, 1 }		local step_ratio = step_ratio or { 2, 1 }
			local equave = equave or rat.new(2, 1)

	local L_size = step_ratio[1]		local L_size = step_ratio[1]
Line 63:		Line 66:
	end		end

	~~local equave = input_mos["equave"]~~		return rat.new(equave)
	return p.~~step_pattern_to_xenpaper_link~~(~~step_pattern,~~ equave)

	end		end

Ganaram inukshuk: Added https and www to link

2024-01-29T08:25:54Z

Added https and www to link

← Older revision		Revision as of 08:25, 29 January 2024
Line 38:		Line 38:
	end		end

	text = "xenpaper.com/#" .. text		text = "https://www.xenpaper.com/#" .. text
	return text		return text

Line 91:		Line 91:
	end		end

	text = "xenpaper.com/#" .. text		text = "https://www.xenpaper.com/#" .. text
	return text		return text
	end		end

	return p		return p

Ganaram inukshuk: Created page with "local mos = require('Module:MOS') local rat = require('Module:Rational') local p = {} -- TODO: -- - Add support for ascending and descending scales -- Create a Xenpaper link..."

2024-01-23T08:49:35Z

Created page with "local mos = require('Module:MOS') local rat = require('Module:Rational') local p = {} -- TODO: -- - Add support for ascending and descending scales -- Create a Xenpaper link..."

New page

local mos = require('Module:MOS')
local rat = require('Module:Rational')
local p = {}

-- TODO:
-- - Add support for ascending and descending scales

-- Create a Xenpaper link for a step pattern of arbitrary step sizes
function p.step_pattern_to_xenpaper_link(step_pattern, equave)
local step_pattern = step_pattern or { 2, 2, 2, 1, 2, 2, 1 }
local equave = equave or rat.new(3)

local ed = 0
for i = 1, #step_pattern do
ed = ed + step_pattern[i]
end

local equave_as_text = rat.as_ratio(equave, "%2F")
if equave_as_text == "2%2F1" then
equave_as_text = "o"
end

local text = ""
text = text .. "%7B" .. ed .. "ed" .. equave_as_text .. "%7D%0A"

text = text .. "%7Bm"
for i = 1, #step_pattern do
text = text .. "_" .. step_pattern[i]
end
text = text .. "%7D%0A"

for i = 1, #step_pattern + 1 do
if i ~= #step_pattern + 1 then
text = text .. string.format('%d--_', i - 1)
else
text = text .. string.format('%d---', i - 1)
end
end

text = "xenpaper.com/#" .. text
return text

end

-- Create a Xenpaper link for a mode of a mos
-- TODO: support step sizes of c (L-s), A (L+c), and d (s-c) for modmosses
function p.mosstep_pattern_to_xenpaper_link(input_mos, abstract_step_pattern, step_ratio)
local input_mos = input_mos or mos.new(5, 2)
local abstract_step_pattern = abstract_step_pattern or "LLLsLLs"
local step_ratio = step_ratio or { 2, 1 }

local L_size = step_ratio[1]
local s_size = step_ratio[2]

local step_pattern = {}
for i = 1, #abstract_step_pattern do
local step = abstract_step_pattern:sub(i, i)
if step == "L" then
table.insert(step_pattern, L_size)
elseif step == "s" then
table.insert(step_pattern, s_size)
end
end

local equave = input_mos["equave"]
return p.step_pattern_to_xenpaper_link(step_pattern, equave)

end

-- Create a xenpaper link for a scale whose degrees are defined as JI ratios
function p.ji_scale_to_xenpaper_link(ratios)
local ratios = ratios or { rat.new(1, 1), rat.new(10, 9), rat.new(5, 4), rat.new(4, 3), rat.new(3, 2), rat.new(5, 3), rat.new(15, 8), rat.new(2, 1)}

local text = "%7B"
for i = 1, #ratios do
local ratio_as_text = rat.as_ratio(ratios[i], "%2F")
if i ~= #ratios then
text = text .. ratio_as_text .. "_"
else
text = text .. ratio_as_text .. "%7D%0A"
end
end

for i = 1, #ratios do
local ratio_as_text = rat.as_ratio(ratios[i], "%2F")
if i ~= #ratios then
text = text .. string.format('%d--_', i - 1)
else
text = text .. string.format('%d---', i - 1)
end
end

text = "xenpaper.com/#" .. text
return text
end

return p