| | | 1 | | using System.Collections.Generic; |
| | | 2 | | |
| | | 3 | | namespace MusicTheory.Theory.Harmony; |
| | | 4 | | |
| | | 5 | | public readonly record struct VoiceLeadingFlags(bool Range, bool Spacing, bool Overlap, bool ParallelPerfects); |
| | | 6 | | |
| | | 7 | | public readonly record struct ProgressionDiagnosticsResult( |
| | | 8 | | List<(int index, VoiceLeadingFlags flags)> PerIndex, |
| | | 9 | | int TotalRange, |
| | | 10 | | int TotalSpacing, |
| | | 11 | | int TotalOverlap, |
| | | 12 | | int TotalParallelPerfects |
| | | 13 | | ); |
| | | 14 | | |
| | | 15 | | public static class ProgressionDiagnostics |
| | | 16 | | { |
| | | 17 | | public static ProgressionDiagnosticsResult AnalyzeVoicings(IReadOnlyList<FourPartVoicing?> voicings) |
| | | 18 | | { |
| | 1 | 19 | | var list = new List<(int, VoiceLeadingFlags)>(voicings.Count); |
| | 4 | 20 | | int sumR = 0, sumS = 0, sumO = 0, sumP = 0; |
| | 8 | 21 | | for (int i = 0; i < voicings.Count; i++) |
| | | 22 | | { |
| | 12 | 23 | | bool r = false, s = false, o = false, p = false; |
| | 3 | 24 | | if (voicings[i] is FourPartVoicing v) |
| | | 25 | | { |
| | 3 | 26 | | r = VoiceLeadingRules.HasRangeViolation(v); |
| | 3 | 27 | | s = VoiceLeadingRules.HasSpacingViolations(v); |
| | 3 | 28 | | if (i > 0 && voicings[i - 1] is FourPartVoicing prev) |
| | | 29 | | { |
| | 2 | 30 | | o = VoiceLeadingRules.HasOverlap(prev, v); |
| | 2 | 31 | | p = VoiceLeadingRules.HasParallelPerfects(prev, v); |
| | | 32 | | } |
| | | 33 | | } |
| | 6 | 34 | | if (r) sumR++; |
| | 4 | 35 | | if (s) sumS++; |
| | 5 | 36 | | if (o) sumO++; |
| | 3 | 37 | | if (p) sumP++; |
| | 3 | 38 | | list.Add((i, new VoiceLeadingFlags(r, s, o, p))); |
| | | 39 | | } |
| | 1 | 40 | | return new ProgressionDiagnosticsResult(list, sumR, sumS, sumO, sumP); |
| | | 41 | | } |
| | | 42 | | } |