Module:Xenpaper

Documentation for this module may be created at Module:Xenpaper/doc

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 = "https://www.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(abstract_step_pattern, step_ratio, equave)
	local abstract_step_pattern = abstract_step_pattern or "LLLsLLs"
	local step_ratio = step_ratio or { 2, 1 }
	local equave = equave or 2
	
	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
	
	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 = "https://www.xenpaper.com/#" .. text
	return text
end
	
return p