Module:Halberstadt SVG - Revision history

Inthar at 22:53, 8 February 2026

2026-02-08T22:53:33Z

← Older revision		Revision as of 22:53, 8 February 2026
Line 51:		Line 51:
	-- Geometry		-- Geometry
	local dims = {}		local dims = {}
	for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,240,25,80,40,160,15")) do		for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,240,25,80,30,160,15")) do
	table.insert(dims, tonumber(v))		table.insert(dims, tonumber(v))
	end		end

Inthar at 22:52, 8 February 2026

2026-02-08T22:52:55Z

← Older revision		Revision as of 22:52, 8 February 2026
Line 219:		Line 219:
	tagname = 'text',		tagname = 'text',
	x = x + wBlack/2,		x = x + wBlack/2,
	y = ~~svgHeight -~~ hBlack - (i - 1)(offsetBlack + strokeWidth) - (j - 1)40 - 10,		y = hBlack - (i - 1)(offsetBlack + strokeWidth) - (j - 1)20 - 20,
	['text-anchor'] = 'middle',		['text-anchor'] = 'middle',
	['font-size'] = fsBlack,		['font-size'] = fsBlack,

Inthar at 22:51, 8 February 2026

2026-02-08T22:51:50Z

← Older revision		Revision as of 22:51, 8 February 2026
Line 51:		Line 51:
	-- Geometry		-- Geometry
	local dims = {}		local dims = {}
	for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,240,25,80,40,~~180~~,15")) do		for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,240,25,80,40,160,15")) do
	table.insert(dims, tonumber(v))		table.insert(dims, tonumber(v))
	end		end

Inthar at 22:51, 8 February 2026

2026-02-08T22:51:18Z

← Older revision		Revision as of 22:51, 8 February 2026
Line 51:		Line 51:
	-- Geometry		-- Geometry
	local dims = {}		local dims = {}
	for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,~~180~~,25,80,40,80,15")) do		for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,240,25,80,40,180,15")) do
	table.insert(dims, tonumber(v))		table.insert(dims, tonumber(v))
	end		end

Inthar at 22:50, 8 February 2026

2026-02-08T22:50:33Z

← Older revision		Revision as of 22:50, 8 February 2026
Line 51:		Line 51:
	-- Geometry		-- Geometry
	local dims = {}		local dims = {}
	for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,~~120~~,25,80,40,80,15")) do		for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,180,25,80,40,80,15")) do
	table.insert(dims, tonumber(v))		table.insert(dims, tonumber(v))
	end		end

Inthar at 22:50, 8 February 2026

2026-02-08T22:50:04Z

← Older revision		Revision as of 22:50, 8 February 2026
Line 51:		Line 51:
	-- Geometry		-- Geometry
	local dims = {}		local dims = {}
	for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,~~240~~,25,80,40,~~120~~,15")) do		for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,120,25,80,40,80,15")) do
	table.insert(dims, tonumber(v))		table.insert(dims, tonumber(v))
	end		end
Line 105:		Line 105:

	local svgWidth = (#nominals + (duplicateFirstKey and 1 or 0)) * wWhite		local svgWidth = (#nominals + (duplicateFirstKey and 1 or 0)) * wWhite
	local svgHeight = hWhite ~~+ hBlack + offsetBlack~~		local svgHeight = hWhite

	-- Collect black keys between whites		-- Collect black keys between whites

Inthar at 22:48, 8 February 2026

2026-02-08T22:48:29Z

← Older revision		Revision as of 22:48, 8 February 2026
Line 9:		Line 9:
	accidentalValues = {-1, 1} -- number of keys that each accidental alters the pitch by		accidentalValues = {-1, 1} -- number of keys that each accidental alters the pitch by
	nominalOverride = false -- whether to ignore note names with an accidental if they land on the same key as a nominal; if false, show both names generated		nominalOverride = false -- whether to ignore note names with an accidental if they land on the same key as a nominal; if false, show both names generated
	keyDimensions = {1, 20, 80, 10, 40, 20, 60, 10} -- all measured in pixels: stroke width, white key width, white key height, white key font size, vertical offset of black keys, black key width, black key height, black key font size		keyDimensions = {1, 20, 120, 10, 20, 20, 60, 10} -- all measured in pixels: stroke width, white key width, white key height, white key font size, vertical offset of black keys, black key width, largest black key height, black key font size
	keyColors = {"000", "fff", "000", "333", "fff", "666", "fff"} -- outline color, "white" key color, "white" key font color, "black" key color, "black" key font color, subsequent values may be used to define the color and font color of any "black" keys above the first row		keyColors = {"000", "fff", "000", "333", "fff", "666", "fff"} -- outline color, "white" key color, "white" key font color, "black" key color, "black" key font color, subsequent values may be used to define the color and font color of any "black" keys above the first row
	--]]		--]]
Line 51:		Line 51:
	-- Geometry		-- Geometry
	local dims = {}		local dims = {}
	for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,~~120~~,25,80,40,120,15")) do		for _, v in ipairs(splitCSV(args.keyDimensions or "1,40,240,25,80,40,120,15")) do
	table.insert(dims, tonumber(v))		table.insert(dims, tonumber(v))
	end		end
Line 196:		Line 196:
	for i, pc in ipairs(pcs) do		for i, pc in ipairs(pcs) do
	local x = xPos[leftWhite] + wWhite - wBlack/2		local x = xPos[leftWhite] + wWhite - wBlack/2
	~~local y = svgHeight - hWhite - i*(offsetBlack+strokeWidth)~~
	local fill = colors[(i-1)*2 + 4] or colors[4]		local fill = colors[(i-1)*2 + 4] or colors[4]
	local textCol = colors[(i-1)*2 + 5] or colors[5]		local textCol = colors[(i-1)*2 + 5] or colors[5]
Line 205:		Line 204:
	tagname = 'rect',		tagname = 'rect',
	x = x,		x = x,
	y = y,		y = 0,
	width = wBlack,		width = wBlack,
	height = hBlack,		height = hBlack - (i - 1) * (offsetBlack + strokeWidth),
	style = 'fill:' .. fill .. '; stroke:' .. colors[1]		style = 'fill:' .. fill .. '; stroke:' .. colors[1]
	}		}
Line 220:		Line 219:
	tagname = 'text',		tagname = 'text',
	x = x + wBlack/2,		x = x + wBlack/2,
	y = ~~y +~~ svgHeight - ~~hWhite~~ - i(offsetBlack+strokeWidth) - (j - 1)40 - 10,		y = svgHeight - hBlack - (i - 1)(offsetBlack + strokeWidth) - (j - 1)40 - 10,
	['text-anchor'] = 'middle',		['text-anchor'] = 'middle',
	['font-size'] = fsBlack,		['font-size'] = fsBlack,

Inthar at 22:43, 8 February 2026

2026-02-08T22:43:03Z

← Older revision		Revision as of 22:43, 8 February 2026
Line 167:		Line 167:
	tagname = 'rect',		tagname = 'rect',
	x = wWhite * #nominals,		x = wWhite * #nominals,
	y = ~~svgHeight~~,		y = 0,
	width = wWhite,		width = wWhite,
	height = svgHeight,		height = svgHeight,
Line 220:		Line 220:
	tagname = 'text',		tagname = 'text',
	x = x + wBlack/2,		x = x + wBlack/2,
	y = y + svgHeight - hWhite - i(offsetBlack+strokeWidth) - (j - 1)50,		y = y + svgHeight - hWhite - i(offsetBlack+strokeWidth) - (j - 1)40 - 10,
	['text-anchor'] = 'middle',		['text-anchor'] = 'middle',
	['font-size'] = fsBlack,		['font-size'] = fsBlack,

Inthar at 22:41, 8 February 2026

2026-02-08T22:41:44Z

← Older revision		Revision as of 22:41, 8 February 2026
Line 137:		Line 137:
	tagname = 'rect',		tagname = 'rect',
	x = x,		x = x,
	y = ~~svgHeight~~,		y = 0,
	width = wWhite,		width = wWhite,
	height = svgHeight,		height = svgHeight,

Inthar at 22:40, 8 February 2026

2026-02-08T22:40:58Z

← Older revision		Revision as of 22:40, 8 February 2026
Line 12:		Line 12:
	keyColors = {"000", "fff", "000", "333", "fff", "666", "fff"} -- outline color, "white" key color, "white" key font color, "black" key color, "black" key font color, subsequent values may be used to define the color and font color of any "black" keys above the first row		keyColors = {"000", "fff", "000", "333", "fff", "666", "fff"} -- outline color, "white" key color, "white" key font color, "black" key color, "black" key font color, subsequent values may be used to define the color and font color of any "black" keys above the first row
	--]]		--]]
			local yn = require("Module:Yesno")

	local p = {}		local p = {}
Line 35:		Line 36:

	-- Musical parameters		-- Musical parameters
	local nominals = splitCSV(args.nominals)		local nominals = splitCSV(args.nominals) or {"F", "C", "G", "D", "A", "E", "B"}
	local period = tonumber(args.period)		local period = tonumber(args.period) or 12
	local generator = tonumber(args.generator)		local generator = tonumber(args.generator) or 7
	local startIndex = tonumber(args.startIndex) or 1		local startIndex = tonumber(args.startIndex) or 5
	local duplicateFirstKey = args.duplicateFirstKey ~~== "yes"~~		local duplicateFirstKey = yn(args.duplicateFirstKey) or true

	local accidentals = splitCSV(args.accidentals)		local accidentals = splitCSV(args.accidentals) or {"b", "#"}
	local accidentalValues = {}		local accidentalValues = {}
	for _, v in ipairs(splitCSV(args.accidentalValues)) do		for _, v in ipairs(splitCSV(args.accidentalValues)) do
	table.insert(accidentalValues, tonumber(v))		table.insert(accidentalValues, tonumber(v))
	end		end
	local nominalOverride = args.nominalOverride ~~== "yes"~~		local nominalOverride = yn(args.nominalOverride) or false

	-- Geometry		-- Geometry
Line 63:		Line 64:
	for i, name in ipairs(nominals) do		for i, name in ipairs(nominals) do
	local idx = mod((i - startIndex) * generator, period)		local idx = mod((i - startIndex) * generator, period)
	~~nominalKeys[idx]~~ = ~~nominalKeys[idx] or~~ {}		local idxthEntry = {}
	table.insert(~~nominalKeys[idx]~~, name)		table.insert(idxthEntry, name)
	~~end~~		nominalKeys[idx] = idxthEntry
	~~if duplicateFirstKey then~~
	nominalKeys[~~period~~] = ~~nominalKeys[1]~~
	end		end

Line 98:		Line 97:
	end		end
	table.sort(whiteKeys)		table.sort(whiteKeys)

	-- Map pitch class -> x-position		-- Map pitch class -> x-position
	local xPos = {}		local xPos = {}
Line 105:		Line 104:
	end		end

	local svgWidth = #~~whiteKeys~~*wWhite		local svgWidth = (#nominals + (duplicateFirstKey and 1 or 0)) * wWhite
	local svgHeight = hWhite + hBlack + offsetBlack		local svgHeight = hWhite + hBlack + offsetBlack

Line 113:		Line 112:
	if not nominalKeys[pc] then		if not nominalKeys[pc] then
	local leftWhite		local leftWhite
	for i = #~~whiteKeys~~, 1, -1 do		for i = #nominals, 1, -1 do
	if whiteKeys[i] < pc then		if whiteKeys[i] < pc then
	leftWhite = whiteKeys[i]		leftWhite = whiteKeys[i]
Line 138:		Line 137:
	tagname = 'rect',		tagname = 'rect',
	x = x,		x = x,
	y = svgHeight ~~- hWhite~~,		y = svgHeight,
	width = wWhite,		width = wWhite,
	height = ~~hWhite~~,		height = svgHeight,
	style = 'fill:' .. colors[2] .. '; stroke:' .. colors[1]		style = 'fill:' .. colors[2] .. '; stroke:' .. colors[1]
	}		}
Line 149:		Line 148:
	frame:extensionTag{		frame:extensionTag{
	name = 'htmltag',		name = 'htmltag',
	content = ~~table.concat(~~labels[pc]~~, "/")~~,		content = labels[pc][1],
	args = {		args = {
	tagname = 'text',		tagname = 'text',
	x = x + wWhite / 2,		x = x + wWhite / 2,
			y = svgHeight - fsWhite*3/2,
			['text-anchor'] = 'middle',
			['font-size'] = fsWhite,
			style = 'fill:' .. colors[3]
			}
			}
			)
			end
			if duplicateFirstKey then
			table.insert(out,
			frame:extensionTag{
			name = 'htmltag',
			args = {
			tagname = 'rect',
			x = wWhite * #nominals,
			y = svgHeight,
			width = wWhite,
			height = svgHeight,
			style = 'fill:' .. colors[2] .. '; stroke:' .. colors[1]
			}
			}
			)
			table.insert(out,
			frame:extensionTag{
			name = 'htmltag',
			content = nominals[startIndex],
			args = {
			tagname = 'text',
			x = wWhite * #nominals + wWhite / 2,
	y = svgHeight - fsWhite*3/2,		y = svgHeight - fsWhite*3/2,
	['text-anchor'] = 'middle',		['text-anchor'] = 'middle',
Line 184:		Line 212:
	}		}
	)		)
	table.insert(out,		for j, label in ipairs(labels[pc]) do
	frame:extensionTag{		table.insert(out,
	name = 'htmltag',		frame:extensionTag{
	content = ~~table.concat(labels[pc], "/")~~,		name = 'htmltag',
	args = {		content = label,
	tagname = 'text',		args = {
	x = x + wBlack/2,		tagname = 'text',
	y = y + ~~hBlack~~ - ~~fsBlack~~*~~3/2~~,		x = x + wBlack/2,
	['text-anchor'] = 'middle',		y = y + svgHeight - hWhite - i(offsetBlack+strokeWidth) - (j - 1)50,
	['font-size'] = fsBlack,		['text-anchor'] = 'middle',
	style = 'fill:' .. textCol		['font-size'] = fsBlack,
			style = 'fill:' .. textCol
			}
	}		}
	}		)
	)		end
	end		end
	end		end