Module:Diatonic - Revision history

Vector at 08:54, 16 December 2025

2025-12-16T08:54:25Z

← Older revision		Revision as of 08:54, 16 December 2025
Line 101:		Line 101:
	end		end

	function p.enharmonic(fifthspan)		function p.enharmonic(fifthspan,oct)
	if((yesno(oct) and fifthspan == 0) or fifthspan < 0) then		if((yesno(oct) and fifthspan == 0) or fifthspan < 0) then
	return (fifthspan+12)		return (fifthspan+12)

Vector at 08:46, 16 December 2025

2025-12-16T08:46:33Z

← Older revision		Revision as of 08:46, 16 December 2025
Line 110:		Line 110:
	function p.tuning5(fifthspan,oct)		function p.tuning5(fifthspan,oct)
	tuningx1 = 0		tuningx1 = 0
	if(~~degree~~ == 2) then		deg = p.degreeAsNumber(fifthspan,oct)
			if(deg == 2) then
	tuningx1 = 1		tuningx1 = 1
	end		end
	if(~~degree~~ == 3) then		if(deg == 3) then
	tuningx1 = 2		tuningx1 = 2
	end		end
	if(~~degree~~ == 4) then		if(deg == 4) then
	tuningx1 = 3		tuningx1 = 3
	end		end
	if(~~degree~~ == 5) then		if(deg == 5) then
	tuningx1 = 3		tuningx1 = 3
	end		end
	if(~~degree~~ == 6) then		if(deg == 6) then
	tuningx1 = 4		tuningx1 = 4
	end		end
	if(~~degree~~ == 7) then		if(deg == 7) then
	tuningx1 = 5		tuningx1 = 5
	end		end
	if(~~degree~~ == 8) then		if(deg == 8) then
	tuningx1 = 5		tuningx1 = 5
	end		end

Vector at 08:02, 16 December 2025

2025-12-16T08:02:56Z

@@ Line 108: / Line 108: @@
 end
-function p.tuningMin(fifthspan,oct)
+function p.tuning5(fifthspan,oct)
    tuningx1 = 0
    if(degree == 2) then
@@ Line 133: / Line 132: @@
    end
    tuningx1 = tuningx1 + math.floor(fifthspan/7)
    return tuningx1
 end
-function p.tuningMax(fifthspan,oct)
+function p.tuning7(fifthspan,oct)
    tuningx2 = p.degreeAsNumber(fifthspan,oct) - 1
    return tuningx2
 end
 return p

Vector at 07:59, 16 December 2025

2025-12-16T07:59:37Z

← Older revision		Revision as of 07:59, 16 December 2025
Line 54:		Line 54:
	degree = "octave"		degree = "octave"
	end		end
	if~~(math.fmod~~(fifthspan,7) == 1) then		if(fifthspan % 7 == 1) then
	degree = "fifth"		degree = "fifth"
	end		end
	if~~(math.fmod~~(fifthspan,7) == 2) then		if(fifthspan % 7 == 2) then
	degree = "second"		degree = "second"
	end		end
	if~~(math.fmod~~(fifthspan,7) == 3) then		if(fifthspan % 7 == 3) then
	degree = "sixth"		degree = "sixth"
	end		end
	if~~(math.fmod~~(fifthspan,7) == 4) then		if(fifthspan % 7 == 4) then
	degree = "third"		degree = "third"
	end		end
	if~~(math.fmod~~(fifthspan,7) == 5) then		if(fifthspan % 7 == 5) then
	degree = "seventh"		degree = "seventh"
	end		end
	if~~(math.fmod~~(fifthspan,7) == 6) then		if(fifthspan % 7 == 6) then
	degree = "fourth"		degree = "fourth"
	end		end
Line 80:		Line 80:
	degree = 8		degree = 8
	end		end
	if~~(math.fmod~~(fifthspan,7) == 1) then		if(fifthspan % 7 == 1) then
	degree = 5		degree = 5
	end		end
	if~~(math.fmod~~(fifthspan,7) == 2) then		if(fifthspan % 7 == 2) then
	degree = 2		degree = 2
	end		end
	if~~(math.fmod~~(fifthspan,7) == 3) then		if(fifthspan % 7 == 3) then
	degree = 6		degree = 6
	end		end
	if~~(math.fmod~~(fifthspan,7) == 4) then		if(fifthspan % 7 == 4) then
	degree = 3		degree = 3
	end		end
	if~~(math.fmod~~(fifthspan,7) == 5) then		if(fifthspan % 7 == 5) then
	degree = 7		degree = 7
	end		end
	if~~(math.fmod~~(fifthspan,7) == 6) then		if(fifthspan % 7 == 6) then
	degree = 4		degree = 4
	end		end
Line 108:		Line 108:
	end		end

			function p.tuningMin(fifthspan,oct)
			tuningx2 = p.degreeAsNumber(fifthspan,oct) - 1
			tuningx1 = 0
			if(degree == 2) then
			tuningx1 = 1
			end
			if(degree == 3) then
			tuningx1 = 2
			end
			if(degree == 4) then
			tuningx1 = 3
			end
			if(degree == 5) then
			tuningx1 = 3
			end
			if(degree == 6) then
			tuningx1 = 4
			end
			if(degree == 7) then
			tuningx1 = 5
			end
			if(degree == 8) then
			tuningx1 = 5
			end
			tuningx1 = tuningx1 + math.floor(fifthspan/7)

			return math.min(tuningx1, tuningx2)
			end

	~~print(~~p.~~qualityAsName~~(4,0) .. p.~~degreeAsName~~(4,0))		function p.tuningMax(fifthspan,oct)
			tuningx2 = p.degreeAsNumber(fifthspan,oct) - 1
			tuningx1 = 0
			if(degree == 2) then
			tuningx1 = 1
			end
			if(degree == 3) then
			tuningx1 = 2
			end
			if(degree == 4) then
			tuningx1 = 3
			end
			if(degree == 5) then
			tuningx1 = 3
			end
			if(degree == 6) then
			tuningx1 = 4
			end
			if(degree == 7) then
			tuningx1 = 5
			end
			if(degree == 8) then
			tuningx1 = 5
			end
			tuningx1 = tuningx1 + math.floor(fifthspan/7)
			if(tuningx1240 > tuningx2(1200/7)) then
			return tuningx1
			else
			return tuningx2
			end
			end
			return p

Vector at 07:34, 16 December 2025

2025-12-16T07:34:53Z

← Older revision		Revision as of 07:34, 16 December 2025
Line 107:		Line 107:
	return(fifthspan-12)		return(fifthspan-12)
	end		end


			print(p.qualityAsName(4,0) .. p.degreeAsName(4,0))

Vector at 07:30, 16 December 2025

2025-12-16T07:30:46Z

← Older revision		Revision as of 07:30, 16 December 2025
Line 76:		Line 76:

	function p.degreeAsNumber(fifthspan,oct)		function p.degreeAsNumber(fifthspan,oct)
	degree = ~~"unison"~~		degree = 1
	if((yesno(oct) and fifthspan == 0) or fifthspan < 0) then		if((yesno(oct) and fifthspan == 0) or fifthspan < 0) then
	degree = ~~"octave"~~		degree = 8
	end		end
	if(math.fmod(fifthspan,7) == 1) then		if(math.fmod(fifthspan,7) == 1) then
	degree = ~~"fifth"~~		degree = 5
	end		end
	if(math.fmod(fifthspan,7) == 2) then		if(math.fmod(fifthspan,7) == 2) then
	degree = ~~"second"~~		degree = 2
	end		end
	if(math.fmod(fifthspan,7) == 3) then		if(math.fmod(fifthspan,7) == 3) then
	degree = ~~"sixth"~~		degree = 6
	end		end
	if(math.fmod(fifthspan,7) == 4) then		if(math.fmod(fifthspan,7) == 4) then
	degree = ~~"third"~~		degree = 3
	end		end
	if(math.fmod(fifthspan,7) == 5) then		if(math.fmod(fifthspan,7) == 5) then
	degree = ~~"seventh"~~		degree = 7
	end		end
	if(math.fmod(fifthspan,7) == 6) then		if(math.fmod(fifthspan,7) == 6) then
	degree = ~~"fourth"~~		degree = 4
	end		end
	return degree		return degree

Vector: Created page with "local yesno = require("Module:Yesno") local p = {} function p.qualityAsName(fifthspan, oct) quality = "minor" if(fifthspan>0) then quality = "major" end if(fifthspan<2 and fifthspan>-2) then quality = "perfect" end if(fifthspan>5) then quality = "augmented" end if(fifthspan>12) then quality = "double augmented" end if(fifthspan>19) then quality = "triple augmented" end if(fifthspan<-5) then quality = "diminished" end if(fifthsp..."

2025-12-16T07:28:21Z

Created page with "local yesno = require("Module:Yesno") local p = {} function p.qualityAsName(fifthspan, oct) quality = "minor" if(fifthspan>0) then quality = "major" end if(fifthspan<2 and fifthspan>-2) then quality = "perfect" end if(fifthspan>5) then quality = "augmented" end if(fifthspan>12) then quality = "double augmented" end if(fifthspan>19) then quality = "triple augmented" end if(fifthspan<-5) then quality = "diminished" end if(fifthsp..."

New page

local yesno = require("Module:Yesno")
local p = {}

function p.qualityAsName(fifthspan, oct)
quality = "minor"
if(fifthspan>0) then
quality = "major" end
if(fifthspan<2 and fifthspan>-2) then
quality = "perfect"
end
if(fifthspan>5) then
quality = "augmented"
end
if(fifthspan>12) then
quality = "double augmented" end
if(fifthspan>19) then
quality = "triple augmented" end
if(fifthspan<-5) then
quality = "diminished" end
if(fifthspan<-12) then
quality = "double diminished" end
if(fifthspan<-19) then
quality = "triple diminished" end
return quality
end

function p.qualityAsLetter(fifthspan, oct)
quality = "m"
if(fifthspan>0) then
quality = "M" end
if(fifthspan<2 and fifthspan>-2) then
quality = "P"
end
if(fifthspan>5) then
quality = "A"
end
if(fifthspan>12) then
quality = "AA" end
if(fifthspan>19) then
quality = "3A" end
if(fifthspan<-5) then
quality = "d" end
if(fifthspan<-12) then
quality = "dd" end
if(fifthspan<-19) then
quality = "3d" end
return quality
end

function p.degreeAsName(fifthspan,oct)
degree = "unison"
if((yesno(oct) and fifthspan == 0) or fifthspan < 0) then
degree = "octave"
end
if(math.fmod(fifthspan,7) == 1) then
degree = "fifth"
end
if(math.fmod(fifthspan,7) == 2) then
degree = "second"
end
if(math.fmod(fifthspan,7) == 3) then
degree = "sixth"
end
if(math.fmod(fifthspan,7) == 4) then
degree = "third"
end
if(math.fmod(fifthspan,7) == 5) then
degree = "seventh"
end
if(math.fmod(fifthspan,7) == 6) then
degree = "fourth"
end
return degree
end

function p.degreeAsNumber(fifthspan,oct)
degree = "unison"
if((yesno(oct) and fifthspan == 0) or fifthspan < 0) then
degree = "octave"
end
if(math.fmod(fifthspan,7) == 1) then
degree = "fifth"
end
if(math.fmod(fifthspan,7) == 2) then
degree = "second"
end
if(math.fmod(fifthspan,7) == 3) then
degree = "sixth"
end
if(math.fmod(fifthspan,7) == 4) then
degree = "third"
end
if(math.fmod(fifthspan,7) == 5) then
degree = "seventh"
end
if(math.fmod(fifthspan,7) == 6) then
degree = "fourth"
end
return degree
end

function p.enharmonic(fifthspan)
if((yesno(oct) and fifthspan == 0) or fifthspan < 0) then
return (fifthspan+12)
end
return(fifthspan-12)
end