microtherion/VocalEasel
1
0
Fork 0
mirror of https://github.com/microtherion/VocalEasel.git synced 2024-12-22 19:23:59 +00:00
Code Issues Packages Projects Releases Wiki Activity
d599bfbe4e
VocalEasel/mma/MMA/chordtable.py
Matthias Neeracher d599bfbe4e Added MMA
2006-11-10 08:07:56 +00:00

322 lines
8.7 KiB
Python
Raw Blame History

# chordtable.py
"""
This module is an integeral part of the program
MMA - Musical Midi Accompaniment.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Bob van der Poel <bvdp@xplornet.com>
Table of chords. All are based on a C scale.
Generating chords is easy in MIDI since we just need to
add/subtract constants, based on yet another table.
CAUTION, if you add to this table make sure there are at least
3 notes in each chord! Don't make any chord longer than 8 notes
(The pattern define sets volumes for only 8).
There is a corresponding scale set for each chord. These are
used by bass and scale patterns.
Each chord needs an English doc string. This is extracted by the
-Dn option to print a table of chordnames for inclusion in the
reference manual.
"""
C = 0
Cs = Db = 1
D = 2
Ds = Eb = 3
E = Fb = 4
Es = F = 5
Fs = Gb = 6
G = 7
Gs = Ab = 8
A = Bbb= 9
As = Bb = 10
B = Cb = 11
_chords = {
'M': ((C, E, G ),
(C, D, E, F, G, A, B),
"Major triad. This is the default and is used in "
"the absense of any other chord type specification."),
'm': ((C, Eb, G ),
(C, D, Eb, F, G, Ab, Bb),
"Minor triad."),
'mb5': ((C, Eb, Gb ),
(C, D, Eb, F, Gb, Ab, Bb),
"Minor triad with flat 5th."),
'm#5': ((C, Eb, Gs ),
(C, D, Eb, F, Gs, Ab, Bb),
"Major triad with augmented 5th."),
'm6': ((C, Eb, G, A ),
(C, D, Eb, F, G, A, Bb),
"Minor 6th."),
'm6(add9)': ((C, Eb, G, D+12, A+12),
(C, D, Eb, F, G, A, B),
"Minor 6th with added 9th. This is sometimes notated as a slash chord "
"in the form ``m6/9''." ),
'm7': ((C, Eb, G, Bb ),
(C, D, Eb, F, G, Ab, Bb),
"Minor 7th."),
'mM7': ((C, Eb, G, B ),
(C, D, Eb, F, G, Ab, B),
"Minor Triad plus Major 7th. You will also see this printed "
"as ``m(maj7)'', ``m+7'', ``min(maj7)'' and ``min$\sharp$7'' "
"(which \mma\ accepts); as well as the \mma\ \emph{invalid} "
"forms: ``-($\Delta$7)'', and ``min$\\natural$7''."),
'm7b5': ((C, Eb, Gb, Bb ),
(C, D, Eb, F, Gb, Ab, Bb),
"Minor 7th, flat 5 (aka 1/2 diminished). "),
'm7b9': ((C, Eb, G, Bb, Db+12 ),
(C, Db, Eb, F, G, Ab, Bb),
"Minor 7th with added flat 9th."),
'7': ((C, E, G, Bb ),
(C, D, E, F, G, A, Bb),
"Dominant 7th."),
'7#5': ((C, E, Gs, Bb ),
(C, D, E, F, Gs, A, Bb),
"7th, sharp 5."),
'7b5': ((C, E, Gb, Bb ),
(C, D, E, F, Gb, A, Bb),
"7th, flat 5."),
'dim7': ((C, Eb, Gb, Bbb ),
(C, D, Eb, F, Gb, Ab, Bbb ), # missing 8th note
"Diminished seventh."),
'aug': ((C, E, Gs ),
(C, D, E, F, Gs, A, B ),
"Augmented triad."),
'6': ((C, E, G, A ),
(C, D, E, F, G, A, B),
"Major tiad with added 6th."),
'6(add9)': ((C, E, G, D+12, A+12),
(C, D, E, F, G, A, B),
"6th with added 9th. This is sometimes notated as a slash chord "
"in the form ``6/9''."),
'M7': ((C, E, G, B),
(C, D, E, F, G, A, B),
"Major 7th."),
'M7#5': ((C, E, Gs, B),
(C, D, E, F, Gs, A, B),
"Major 7th with sharp 5th."),
'M7b5': ((C, E, Gb, B ),
(C, D, E, F, Gb, A, B ),
"Major 7th with a flat 5th."),
'9': ((C, E, G, Bb, D+12 ),
(C, D, E, F, G, A, Bb),
"Dominant 7th plus 9th."),
'sus9': ((C, E, G, D+12),
(C, D, E, F, G, A, D+12),
"Dominant 7th plus 9th, omit 7th."),
'9b5': ((C, E, Gb, Bb, D+12 ),
(C, D, E, F, Gb, A, Bb),
"Dominant 7th plus 9th with flat 5th."),
'm9': ((C, Eb, G, Bb, D+12 ),
(C, D, Eb, F, G, Ab, Bb),
"Minor triad plus 7th and 9th."),
'm9b5': ((C, Eb, Gb, Bb, D+12 ),
(C, D, Eb, F, Gb, Ab, Bb),
"Minor triad, flat 5, plus 7th and 9th."),
'm(sus9)':((C, Eb, G, D+12 ),
(C, D, Eb, F, G, Ab, D+12),
"Minor triad plus 9th (no 7th)."),
'M9': ((C, E, G, B, D+12 ),
(C, D, E, F, G, A, B),
"Major 7th plus 9th."),
'7b9': ((C, E, G, Bb, Db+12 ),
(C, Db, E, F, G, A, Bb),
"Dominant 7th with flat 9th."),
'7#9': ((C, E, G, Bb, Ds+12 ),
(C, Ds, E, F, G, A, Bb),
"Dominant 7th with sharp 9th."),
'7b5b9':((C, E, Gb, Bb, Db+12 ),
(C, Db, E, F, Gb, A, Bb),
"Dominant 7th with flat 5th and flat 9th."),
'7b5#9':((C, E, Gb, Bb, Ds+12 ),
(C, Ds, E, F, Gb, A, Bb),
"Dominant 7th with flat 5th and sharp 9th."),
'7#5#9':((C, E, Gs, Bb, Ds+12 ),
(C, Ds, E, F, Gs, A, Bb),
"Dominant 7th with sharp 5th and sharp 9th."),
'7#5b9':((C, E, Gs, Bb, Db+12 ),
(C, Db, E, F, Gs, A, Bb),
"Dominant 7th with sharp 5th and flat 9th."),
'aug7': ((C, E, Gs, Bb ),
(C, D, E, F, Gs, A, Bb),
"An augmented chord (raised 5th) with a dominant 7th."),
'aug7b9':((C, E, Gs, Bb, Db+12 ),
(C, Db, E, F, Gs, A, Bb),
"Augmented 7th with flat 5th and sharp 9th."),
'11': ((C, E, G, Bb, D+12, F+12 ),
(C, D, E, F, G, A, Bb),
"9th chord plus 11th."),
'm11': ((C, Eb, G, Bb, D+12, F+12 ),
(C, D, Eb, F, G, Ab, Bb),
"9th with minor 3rd, plus 11th."),
'11b9': ((C, E, G, Bb, Db+12, F+12 ),
(C, Db, E, F, G, A, Bb),
"9th chord plus flat 11th."),
'9#5': ((C, E, Gs, Bb, D+12 ),
(C, D, E, F, Gs, A, Bb),
"Dominant 7th plus 9th with sharp 5th."),
'9#11': ((C, E, G, Bb, D+12, Fs+12 ),
(C, D, E, Fs, G, A, Bb),
"Dominant 7th plus 9th and sharp 11th."),
'7#9#11':((C, E, G, Bb, Ds+12, Fs+12 ),
(C, Ds, E, Fs, G, A, Bb),
"Dominant 7th plus sharp 9th and sharp 11th."),
'M7#11':((C, E, G, B, D+12, Fs+12 ),
(C, D, E, Fs, G, A, B),
"Major 7th plus 9th and sharp 11th."),
# Sus chords. Not sure what to do with the associated scales. For
# now just duplicating the 2nd or 3rd in the scale seems to make sense.
'sus4': ((C, F, G ),
(C, D, F, F, G, A, B),
"Suspended 4th, major triad with 3rd raised half tone."),
'7sus': ((C, F, G, Bb ),
(C, D, F, F, G, A, Bb),
"7th with suspended 4th, dominant 7th with 3rd "
"raised half tone."),
'sus2': ((C, D, G ),
(C, D, D, F, G, A, B),
"Suspended 2nd, major triad with major 2nd above "
"root substituted for 3rd."),
'7sus2':((C, D, G, Bb ),
(C, D, D, F, G, A, Bb),
"A sus2 with dominant 7th added."),
# these two chords should probably NOT have the 5th included,
# but since a number of voicings depend on the 5th being
# the third note of the chord, they're here.
'13': ((C, E, G, Bb, A+12),
(C, D, E, F, G, A, Bb),
"Dominant 7th (including 5th) plus 13th."),
'M13': ((C, E, G, B, A+12),
(C, D, E, F, G, A, B),
"Major 7th (including 5th) plus 13th."),
# Because some patterns assume that the 3rd note in a chord is a 5th,
# or a varient, we duplicate the root into the position of the 3rd ... and
# to make the sound even we duplicate the 5th into the 4th position as well.
'5': ((C, C, G, G ),
(C, D, E, F, G, A, B),
"Altered Fifth or Power Chord; root and 5th only."),
}
""" Extend our table with common synomyns. These are real copies,
not pointers. This is done so that a user redefine only affects
the original.
"""
aliases = (
('aug9', '9#5' , ''),
('69', '6(add9)', ''),
('m69', 'm6(add9)', ''),
('9+5', '9#5' , ''),
('m+5', 'm#5' , ''),
('M6', '6' , ''),
('m7-5', 'm7b5' , ''),
('+', 'aug' , ''),
('+7', 'aug7' , ''),
('#5', 'aug' , ''),
('7-9', '7b9' , ''),
('7+9', '7#9' , ''),
('maj7', 'M7' , ''),
('M7-5', 'M7b5' , ''),
('M7+5', 'M7#5' , ''),
('7alt', '7b5b9', ''),
('7sus4', '7sus' , ''),
('7#11', '9#11' , ''),
('7+', 'aug7' , ''),
('7+5', '7#5' , ''),
('7-5', '7b5' , ''),
('sus', 'sus4' , ''),
('m(maj7)', 'mM7' , ''),
('m+7', 'mM7' , ''),
('min(maj7)','mM7' , ''),
('min#7', 'mM7' , ''),
('m#7', 'mM7' , ''),
('dim', 'dim7' , 'A dim7, not a triad!'),
('9sus', 'sus9' , ''),
('9-5', '9b5' , ''),
('dim3', 'mb5' , 'Diminished triad (non-standard notation).')
)
for a,b,d in aliases:
n=_chords[b][0]
s=_chords[b][1]
if not d:
d=_chords[b][2]
_chords[a] = (n, s, d)
Reference in New Issue View Git Blame Copy Permalink