Module:MOS mode degrees: Difference between revisions

← Older edit Newer edit →

@@ Line 187: / Line 187: @@
 	local mode_names = nil
 	-- Default names for 5L 2s modes and select modmosses
-	if scale_sig == "5L 2s" and step_pattern == "LsLLsAs" then
+	-- Names are based on whichever mode is returnd by UDP closest-mode search,
-		-- Modes of harmonic minor
+	-- with common names added wherever applicable. Sources include:
-		-- TODO: add unambiguous names
+	-- - https://www.jazz-guitar-licks.com/ and likely others
-		mode_names = { "Harmonic minor", "Locrian #6", "Ionian augmented", "Dorian #4", "Phrygian dominant", "Lydian #2", "Locrian b4 bb7" }
+	-- - Whatever Wikipedia has cited for the Neapolitan scales
-	elseif scale_sig == "5L 2s" and step_pattern == "LsLLLLs" then
+	if scale_sig == "5L 2s" then
-		-- Modes of melodic minor
+		if step_pattern == "LsLLsAs" then
-		mode_names = { "Ionian b3 (melodic minor)"; "Dorian b2"; "Lydian augmented"; "Lydian dominant"; "Mixolydian b6"; "Half-diminished"; "Altered dominant" }
+			-- Modes of harmonic minor
-	elseif scale_sig == "5L 2s" and step_pattern == "LLsLsAs" then
+			mode_names = {
-		-- Modes of harmonic major
+				"Aeolian ♮7 (Harmonic minor)",
-		mode_names = { "Ionian b6"; "Dorian b5"; "Phrygian b4"; "Lydian b3"; "Mixolydian b2"; "Lydian augmented #2"; "Locrian bb7" }
+				"Locrian ♮6",
-	elseif scalesig == "5L 2s" and step_pattern == "sLLLLLs" then
+				"Ionian #5 (Ionian augmented)",
-		-- Modes of Neapolitan major
+				"Dorian #4",
-		mode_names = { "Ionian b2 b3 (Neapolitan major)", "Lydian #5 #6 (Lydian augmented #6)", "Lydian #5 b7 (Lydian augmented dominant)", "Lydian b6 b7 (Lydian minor)", "Mixolydian b5 b6 (Major Locrian)", "Aeolian b4 b5 (Altered dominant ♮2)", "	Locrian bb3 b4 (Altered dominant bb3)" }
+				"Phrygian ♮3 (Phrygian dominant)",
-	elseif scalesig == "5L 2s" and step_pattern == "sLLLsAs" then
+				"Lydian #2",
-		-- TODO: Modes of Neapolitan minor
+				"Locrian b4 bb7 (Altered diminished)",
-	elseif scale_sig == "5L 2s" and #step_pattern == 0 then
+			}
-		-- True-mos modes
+		elseif step_pattern == "LLsLsAs" then
-		mode_names = { "Lydian", "Ionian (major)", "Mixolydian", "Dorian", "Aeolian (minor)", "Phrygian", "Locrian" }
+			-- Modes of harmonic major
+			mode_names = {
+				"Ionian b6 (Harmonic major)",
+				"Dorian b5",
+				"Phrygian b4",
+				"Lydian b3",
+				"Mixolydian b2",
+				"Lydian #2 #5 (Lydian augmented #2)",
+				"Locrian bb7",
+			}
+		elseif step_pattern == "LsLLLLs" then
+			-- Modes of melodic minor
+			mode_names = {
+				"Ionian b3 (Melodic minor)",
+				"Dorian b2",
+				"Lydian #5 (Lydian augmented)",
+				"Lydian b7 (Lydian dominant)",
+				"Mixolydian b6",
+				"Aeolian b5 (Half-diminished)",
+				"Locrian b4 (Altered, Altered dominant)",
+			}
+		elseif step_pattern == "sLLLLLs" then
+			-- Modes of Neapolitan major
+			mode_names = {
+				"Ionian b2 b3 (Neapolitan major)",
+				"Lydian #5 #6 (Lydian augmented #6)",
+				"Lydian #5 b7 (Lydian augmented dominant)",
+				"Lydian b6 b7 (Lydian minor)",
+				"Mixolydian b5 b6 (Major Locrian)",
+				"Aeolian b4 b5 (Altered dominant ♮2)",
+				"Locrian bb3 b4 (Altered dominant bb3)",
+			}
+		elseif step_pattern == "sLLLsAs" then
+			-- TODO: Modes of Neapolitan minor
+			mode_names = {
+				"Phrygian ♮7 (Neapolitan minor)",
+				"Lydian #6",
+				"Mixolydian #5 (Mixolydian augmented)",
+				"Aeolian #4",
+				"Locrian ♮3 (Locrian dominant)",
+				"Ionian #2",
+				"Locrian bb3 b4 bb7 (Altered diminished bb3)",
+			}
+		elseif #step_pattern == 0 then
+			-- True-mos modes
+			mode_names = {
+				"Lydian",
+				"Ionian (major)",
+				"Mixolydian",
+				"Dorian",
+				"Aeolian (minor)",
+				"Phrygian",
+				"Locrian"
+			}
+		end
 	end