Chords
Chord definitions
Major chords
major
:: Num a => [a]
aug
:: Num a => [a]
six
:: Num a => [a]
sixNine
:: Num a => [a]
major7
:: Num a => [a]
major9
:: Num a => [a]
add9
:: Num a => [a]
major11
:: Num a => [a]
add11
:: Num a => [a]
major13
:: Num a => [a]
add13
:: Num a => [a]
Dominant chords
dom7
:: Num a => [a]
dom9
:: Num a => [a]
dom11
:: Num a => [a]
dom13
:: Num a => [a]
sevenFlat5
:: Num a => [a]
sevenSharp5
:: Num a => [a]
sevenFlat9
:: Num a => [a]
nine
:: Num a => [a]
eleven
:: Num a => [a]
thirteen
:: Num a => [a]
Minor chords
minor
:: Num a => [a]
diminished
:: Num a => [a]
minorSharp5
:: Num a => [a]
minor6
:: Num a => [a]
minorSixNine
:: Num a => [a]
minor7flat5
:: Num a => [a]
minor7
:: Num a => [a]
minor7sharp5
:: Num a => [a]
minor7flat9
:: Num a => [a]
minor7sharp9
:: Num a => [a]
diminished7
:: Num a => [a]
minor9
:: Num a => [a]
minor11
:: Num a => [a]
minor13
:: Num a => [a]
minorMajor7
:: Num a => [a]
Other chords
one
:: Num a => [a]
five
:: Num a => [a]
sus2
:: Num a => [a]
sus4
:: Num a => [a]
sevenSus2
:: Num a => [a]
sevenSus4
:: Num a => [a]
nineSus4
:: Num a => [a]
Questionable chords
sevenFlat10
:: Num a => [a]
nineSharp5
:: Num a => [a]
minor9sharp5
:: Num a => [a]
sevenSharp5flat9
:: Num a => [a]
minor7sharp5flat9
:: Num a => [a]
elevenSharp
:: Num a => [a]
minor11sharp
:: Num a => [a]
Chord functions
chordTable
:: Num a => [(String, [a])]
The chordTable
function outputs a list of all available chords and their
corresponding notes. For example, its first entry is ("major",[0,4,7])
which
means that a major triad is formed by the root (0), the major third (4 semitones
above the root), and the perfect fifth (7 semitones above the root).
As the list is big, you can use the function chordL
.
If you know the notes from a chord, but can’t find the name of it, you can use this Haskell code to do a reverse look up into the table:
filter (\(_,x)->x==[0,4,7,10]) chordTable
This will output [("dom7",[0,4,7,10])]
(You’ll need to run import Sound.Tidal.Chords
before using this function.)
chordate
:: Num b => [[b]] -> b -> Int -> [b]
chordate cs m n
selects the n
th “chord” (a chord is a list of Int
s)
from a list of chords cs
and transposes it by m
chordate cs m n = map (+m) $ cs!!n
enchord
:: Num a => [[a]] -> Pattern a -> Pattern Int -> Pattern a
enchord chords pn pc
turns every note in the note pattern pn
into
a chord, selecting from the chord lists chords
using the index pattern
pc
. For example, Chords.enchord [Chords.major Chords.minor] "c g" "0 1"
will create a pattern of a C-major chord followed by a G-minor chord.
enchord chords pn pc = flatpat $ (chordate chords) $ pn * pc
chordL
:: Num a => Pattern String -> Pattern [a]
Look up a specific chord: chordL "minor7"
returns (0>1)|[0,3,7,10]
.
chordList
:: String
Outputs all the available chords:
major maj M aug plus sharp5 six 6 sixNine six9 sixby9 6by9 major7 maj7major9 maj9 add9 major11 maj11 add11 major13 maj13 add13 dom7 dom9 dom11dom13 sevenFlat5 7f5 sevenSharp5 7s5 sevenFlat9 7f9 nine eleven 11 thirteen 13minor min m diminished dim minorSharp5 msharp5 mS5 minor6 min6 m6 minorSixNineminor69 min69 minSixNine m69 mSixNine m6by9 minor7flat5 minor7f5 min7flat5min7f5 m7flat5 m7f5 minor7 min7 m7 minor7sharp5 minor7s5 min7sharp5 min7s5m7sharp5 m7s5 minor7flat9 minor7f9 min7flat9 min7f9 m7flat9 m7f9 minor7sharp9minor7s9 min7sharp9 min7s9 m7sharp9 m7s9 diminished7 dim7 minor9 min9 m9minor11 min11 m11 minor13 min13 m13 minorMajor7 minMaj7 mmaj7 one 1 five 5sus2 sus4 sevenSus2 7sus2 sevenSus4 7sus4 nineSus4 ninesus4 9sus4 sevenFlat107f10 nineSharp5 9sharp5 9s5 minor9sharp5 minor9s5 min9sharp5 min9s5 m9sharp5m9s5 sevenSharp5flat9 7s5f9 minor7sharp5flat9 m7sharp5flat9 elevenSharp 11sminor11sharp m11sharp m11s
(You’ll need to run import Sound.Tidal.Chords
before using this function.)