# 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 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)