Xenharmonic Wiki

Module:Ups and downs sharpness: Difference between revisions

← Older edit
Tristanbay (talk | contribs)
autopatrolled
844 edits
trying to fix broken template
Dave Keenan (talk | contribs)
autopatrolled, emailconfirmed
2,270 edits
Increase width of sesquiflat now that it is Zimmermann's, not Couper's.
 
(37 intermediate revisions by 2 users not shown)
Line 8: Line 8:


function p.ud_sharpness(frame) -- generate table
function p.ud_sharpness(frame) -- generate table
local sharp = sharp_n(frame.args["edo"])
local edo = math.floor(frame.args["edo"])
local divwrap = "<div style=\"width:auto; overflow-x:auto\">\n%s</div>"
local sharp = sharp_n(edo)
local spanf = "| <span style=\"display:inline-block; margin-bottom:-45px; transform:translate(0, %spx); white-space:nowrap;\">%s</span>\n"
local use_sz -- whether to use Stein-Zimmerman accidentals or not
local arrow_marg = -2.5
local spanf = "| <div style=\"width: %sem; margin-bottom: -45px; transform:translate(0, %spx); white-space: nowrap;\">%s</div>\n"
local sharp_marg = -15
local cell_width -- forced cell width in ems
local double_sharp_marg = -20
local flat_marg = -12.5
local arrow_marg = -10
local sharp_marg = -22.5
local double_sharp_marg = -22.5
local flat_marg = -20
local double_flat_marg = -20
local half_sharp_marg = -22.5
local sesqui_sharp_marg = -22.5
local half_flat_marg = -20
local sesqui_flat_marg = -20
local tab
local tab
local up_t = "&#x202F;[[File:Up arrow petaluma script.svg|10px]]"
local down_t = "&#x202F;[[File:Down arrow petaluma script.svg|10px]]"
local quip_t = "&#x202F;[[File:Quip narrow.svg|9px]]"
local quid_t = "&#x202F;[[File:Quid narrow.svg|9px]]"
local natural_t = "&#x202F;&#x202F;[[File:Heji18.svg|16px]]"
local sharp_t = "&#x202F;&#x202F;[[File:Heji25.svg|16px]]"
local flat_t = "&#x202F;&#x202F;[[File:Heji11.svg|16px]]"
local dsharp_t = "&#x202F;&#x202F;[[File:Heji32.svg|21px]]"
local dflat_t = "&#x202F;&#x202F;[[File:Heji4.svg|27px]]"
local hsharp_t = "&#x202F;&#x202F;[[File:HeQu1.svg|14px]]"
local hflat_t = "&#x202F;&#x202F;[[File:HeQd1.svg|16px]]"
local ssharp_t = "&#x202F;&#x202F;[[File:HeQu3.svg|22px]]"
local sflat_t = "&#x202F;&#x202F;[[File:HeQd3.svg|30px]]"
if frame.args["sz"] == "true" and sharp % 2 == 0 then -- use SZ accidentals?
use_sz = true
sharp = math.floor(sharp / 2)
else
use_sz = false
end
if sharp == -2 then
if sharp == -2 then
Line 22: Line 57:
tab = "{{sharpness-flat1}}"
tab = "{{sharpness-flat1}}"
elseif sharp == 0 then
elseif sharp == 0 then
tab = "{| class=\"wikitable center-all\"\n"
tab = "<div style=\"overflow-x: auto;\">\n{| class=\"wikitable center-all\"\n"
.. "|-\n"
.. "|-\n"
.. "! Step offset\n"
.. "! Step offset\n"
Line 28: Line 63:
.. "|-\n"
.. "|-\n"
.. "! Symbol\n"
.. "! Symbol\n"
.. string.format(spanf, arrow_marg, string.rep("&#x202F;[[File:Down arrow petaluma script.svg|10px]]", 3))
.. string.format(spanf, 2, arrow_marg, string.rep(down_t, 3))
.. string.format(spanf, arrow_marg, string.rep("&#x202F;[[File:Down arrow petaluma script.svg|10px]]", 2))
.. string.format(spanf, 2, arrow_marg, string.rep(down_t, 2))
.. string.format(spanf, arrow_marg, "&#x202F;[[File:Down arrow petaluma script.svg|10px]]")
.. string.format(spanf, 2, arrow_marg, down_t)
.. string.format(spanf, arrow_marg - 15, "&#x202F;[[File:Heji18.svg|15px]]")
.. string.format(spanf, 2, arrow_marg - 15, natural_t)
.. string.format(spanf, arrow_marg, "&#x202F;[[File:Up arrow petaluma script.svg|10px]]")
.. string.format(spanf, 2, arrow_marg, up_t)
.. string.format(spanf, arrow_marg, string.rep("&#x202F;[[File:Up arrow petaluma script.svg|10px]]", 2))
.. string.format(spanf, 2, arrow_marg, string.rep(up_t, 2))
.. string.format(spanf, arrow_marg, string.rep("&#x202F;[[File:Up arrow petaluma script.svg|10px]]", 3))
.. string.format(spanf, 2, arrow_marg, string.rep(up_t, 3))
.. "|}"
.. "|}\n</div>"
elseif sharp == 1 then
elseif sharp == 1 then
tab = "{{sharpness-sharp1}}"
tab = "{{sharpness-sharp1}}"
else
else
tab = "{| class=\"wikitable center-all\"\n"
if edo % 12 == 0 and edo <= 300 then -- does it temper out 531441/524288?
.. "|-\n"
tab = "<div style=\"overflow-x: auto;\">\n{| class=\"wikitable center-all\"\n"
.. "! Step offset\n"
.. "|-\n"
.. "| '''0'''"
.. "! Semitones\n"
for i = 1, sharp * 2 + 1 do
.. "| '''0'''"
tab = tab .. string.format((i % sharp == 0 and " || '''%s'''" or " || %s"), i)
if use_sz then
for i = 1, sharp * 4 + 1 do
tab = tab .. (i % (sharp * 2) == 0 and string.format(" || '''%s'''", math.floor(i / sharp / 2)) or string.format(" || {{Simplified fraction|%s|%s|true}}", i, sharp * 2))
end
else
for i = 1, sharp * 2 + 1 do
tab = tab .. (i % sharp == 0 and string.format(" || '''%s'''", math.floor(i / sharp)) or string.format(" || {{Simplified fraction|%s|%s|true}}", i, sharp))
end
end
else
tab = "<div style=\"overflow-x: auto;\">\n{| class=\"wikitable center-all\"\n"
.. "|-\n"
.. "! Step offset\n"
.. "| '''0'''"
if use_sz then
for i = 1, sharp * 4 + 1 do
tab = tab .. string.format((i % (sharp * 2) == 0 and " || '''%s'''" or " || %s"), i)
end
else
for i = 1, sharp * 2 + 1 do
tab = tab .. string.format((i % sharp == 0 and " || '''%s'''" or " || %s"), i)
end
end
end
end
tab = tab .. "\n|-\n! Sharp symbol\n"
tab = tab .. "\n|-\n! Sharp symbol\n" -- sharp row
.. "| rowspan=\"2\" | <span style=\"white-space:nowrap;\">&#x202F;[[File:Heji18.svg|15px]]</span>\n"
.. "| rowspan=\"2\" style=\"white-space: nowrap; width: 3em;\" | " .. natural_t .. "\n"
for i = 1, sharp * 2 + 1 do
for i = 1, (use_sz and sharp * 4 or sharp * 2) + 1 do
local cs = math.ceil((i / sharp) - 0.5) -- sharpness of note
local cs = math.ceil((i / sharp) - 0.5) -- sharpness of note (treated differently depending on SZ or no SZ)
local marg -- margin value for formatting
local marg -- margin value for formatting
local s = ""
local s = ""
if cs == 0 then
if cs == 0 then -- set vertical accidental margins
marg = arrow_marg
marg = arrow_marg
elseif cs == 1 then
cell_width = 0
elseif (cs == 1 and not use_sz) or (cs == 2 and use_sz) then
marg = sharp_marg
marg = sharp_marg
elseif cs == 2 then
cell_width = 1.5
elseif (cs == 2 and not use_sz) or (cs == 4 and use_sz) then
marg = double_sharp_marg
marg = double_sharp_marg
cell_width = 2.5
elseif cs == 1 and use_sz then
marg = half_sharp_marg
cell_width = 1
elseif cs == 3 and use_sz then
marg = sesqui_sharp_marg
cell_width = 2.5
else
else
marg = 0 -- Failsafe
marg = 0 -- failsafe
cell_width = 1
end
end
if ((i - (sharp * math.floor(i / sharp))) / sharp) > math.ceil(((i - (sharp * math.floor(i / sharp))) / sharp) - 0.5) then
if ((i - (sharp * math.floor(i / sharp))) / sharp) > math.ceil(((i - (sharp * math.floor(i / sharp))) / sharp) - 0.5) then
if (i - (sharp * math.floor(i / sharp))) % 5 == 4 then
if (i - (sharp * math.floor(i / sharp))) % 5 == 4 then
s = s .. "&#x202F;[[File:Down arrow petaluma script.svg|10px]]&#x202F;[[File:Quip narrow.svg|9px]]"
s = s .. down_t .. quip_t
cell_width = cell_width + 3
else
else
for j = 1, (i - (sharp * math.floor(i / sharp))) % 5 do
for j = 1, (i - (sharp * math.floor(i / sharp))) % 5 do
s = s .. "&#x202F;[[File:Up arrow petaluma script.svg|10px]]"
s = s .. up_t
cell_width = cell_width + 1.5
end
end
end
end
for j = 1, math.floor((i - (sharp * math.floor(i / sharp))) / 5) do
for j = 1, math.floor((i - (sharp * math.floor(i / sharp))) / 5) do
s = s .. "&#x202F;[[File:Quip narrow.svg|9px]]"
s = s .. quip_t
cell_width = cell_width + 1.5
end
end
else
else
if ((sharp * math.ceil(i / sharp)) - i) % 5 == 4 then
if ((sharp * math.ceil(i / sharp)) - i) % 5 == 4 then
s = s .. "&#x202F;[[File:Up arrow petaluma script.svg|10px]]&#x202F;[[File:Quid narrow.svg|9px]]"
s = s .. up_t .. quid_t
cell_width = cell_width + 3
else
else
for j = 1, ((sharp * math.ceil(i / sharp)) - i) % 5 do
for j = 1, ((sharp * math.ceil(i / sharp)) - i) % 5 do
s = s .. "&#x202F;[[File:Down arrow petaluma script.svg|10px]]"
s = s .. down_t
cell_width = cell_width + 1.5
end
end
end
end
for j = 1, math.floor(((sharp * math.ceil(i / sharp)) - i) / 5) do
for j = 1, math.floor(((sharp * math.ceil(i / sharp)) - i) / 5) do
s = s .. "&#x202F;[[File:Quid narrow.svg|9px]]"
s = s .. quid_t
cell_width = cell_width + 1.5
end
end
end
end
if cs == 1 then
if (cs == 1 and not use_sz) or (cs == 2 and use_sz) then
s = s .. "&#x202F;&#x202F;[[File:Heji25.svg|16px]]"
s = s .. sharp_t
elseif cs == 2 then
elseif (cs == 2 and not use_sz) or (cs == 4 and use_sz) then
s = s .. "&#x202F;&#x202F;[[File:Heji32.svg|21px]]"
s = s .. dsharp_t
elseif use_sz then
if cs == 1 then
s = s .. hsharp_t
elseif cs == 3 then
s = s .. ssharp_t
end
end
end
tab = tab .. string.format(spanf, marg, s)
tab = tab .. string.format(spanf, cell_width, marg, s)
end
end
tab = tab .. "|-\n! Flat symbol\n"
tab = tab .. "|-\n! Flat symbol\n" -- flat row
for i = 1, sharp * 2 + 1 do
for i = 1, (use_sz and sharp * 4 or sharp * 2) + 1 do
local cs = math.ceil((i / sharp) - 0.5) -- flatness of note
local cs = math.ceil((i / sharp) - 0.5) -- flatness of note (treated differently depending on SZ or no SZ)
local marg -- margin value for formatting
local marg -- margin value for formatting
local s = ""
local s = ""
if cs == 0 then
if cs == 0 then -- set vertical accidental margins
marg = arrow_marg
marg = arrow_marg
elseif cs == 1 or cs == 2 then
cell_width = 0
elseif (cs == 1 and not use_sz) or (cs == 2 and use_sz) then
marg = flat_marg
marg = flat_marg
cell_width = 1.5
elseif (cs == 2 and not use_sz) or (cs == 4 and use_sz) then
marg = double_flat_marg
cell_width = 3
elseif cs == 1 and use_sz then
marg = half_flat_marg
cell_width = 1.5
elseif cs == 3 and use_sz then
marg = sesqui_flat_marg
cell_width = 3
else
marg = 0 -- failsafe
cell_width = 1
end
end
if ((i - (sharp * math.floor(i / sharp))) / sharp) > math.ceil(((i - (sharp * math.floor(i / sharp))) / sharp) - 0.5) then
if ((i - (sharp * math.floor(i / sharp))) / sharp) > math.ceil(((i - (sharp * math.floor(i / sharp))) / sharp) - 0.5) then
if (i - (sharp * math.floor(i / sharp))) % 5 == 4 then
if (i - (sharp * math.floor(i / sharp))) % 5 == 4 then
s = s .. "&#x202F;[[File:Up arrow petaluma script.svg|10px]]&#x202F;[[File:Quid narrow.svg|9px]]"
s = s .. up_t .. quid_t
cell_width = cell_width + 3
else
else
for j = 1, (i - (sharp * math.floor(i / sharp))) % 5 do
for j = 1, (i - (sharp * math.floor(i / sharp))) % 5 do
s = s .. "&#x202F;[[File:Down arrow petaluma script.svg|10px]]"
s = s .. down_t
cell_width = cell_width + 1.5
end
end
end
end
for j = 1, math.floor((i - (sharp * math.floor(i / sharp))) / 5) do
for j = 1, math.floor((i - (sharp * math.floor(i / sharp))) / 5) do
s = s .. "&#x202F;[[File:Quid narrow.svg|9px]]"
s = s .. quid_t
cell_width = cell_width + 1.5
end
end
else
else
if ((sharp * math.ceil(i / sharp)) - i) % 5 == 4 then
if ((sharp * math.ceil(i / sharp)) - i) % 5 == 4 then
s = s .. "&#x202F;[[File:Down arrow petaluma script.svg|10px]]&#x202F;[[File:Quip narrow.svg|9px]]"
s = s .. down_t .. quip_t
cell_width = cell_width + 3
else
else
for j = 1, ((sharp * math.ceil(i / sharp)) - i) % 5 do
for j = 1, ((sharp * math.ceil(i / sharp)) - i) % 5 do
s = s .. "&#x202F;[[File:Up arrow petaluma script.svg|10px]]"
s = s .. up_t
cell_width = cell_width + 1.5
end
end
end
end
for j = 1, math.floor(((sharp * math.ceil(i / sharp)) - i) / 5) do
for j = 1, math.floor(((sharp * math.ceil(i / sharp)) - i) / 5) do
s = s .. "&#x202F;[[File:Quip narrow.svg|9px]]"
s = s .. quip_t
cell_width = cell_width + 1.5
end
end
end
end
if cs == 1 then
if (cs == 1 and not use_sz) or (cs == 2 and use_sz) then
s = s .. "&#x202F;&#x202F;[[File:Heji11.svg|16px]]"
s = s .. flat_t
elseif cs == 2 then
elseif (cs == 2 and not use_sz) or (cs == 4 and use_sz) then
s = s .. "&#x202F;&#x202F;[[File:Heji4.svg|27px]]"
s = s .. dflat_t
elseif use_sz then
if cs == 1 then
s = s .. hflat_t
elseif cs == 3 then
s = s .. sflat_t
end
end
end
tab = tab .. string.format(spanf, marg, s)
tab = tab .. string.format(spanf, cell_width, marg, s)
end
end
tab = tab .. "|}"
tab = tab .. "|}\n</div>"
tab = string.format(divwrap, tab)
end
end
Retrieved from "https://en.xen.wiki/w/Module:Ups_and_downs_sharpness"