Music.Theory.Pitch.Chord

Documentation

type PC = (Note_T, Alteration_T)

pc_pp :: (Note_T, Alteration_T) -> [Char]

data Extension

D = dominant, M = major

Constructors

D7

M7

Instances

Eq Extension

Methods

(==) :: Extension -> Extension -> Bool

(/=) :: Extension -> Extension -> Bool

Show Extension

Methods

showsPrec :: Int -> Extension -> ShowS

show :: Extension -> String

showList :: [Extension] -> ShowS

extension_tbl :: Num n => [(Extension, (String, n))]

extension_dat :: Num n => Extension -> (String, n)

extension_pp :: Extension -> String

extension_to_pc :: Num n => Extension -> n

data Chord_Type

Constructors

Major

Minor

Augmented

Diminished

Diminished_7

Half_Diminished

Suspended_2

Suspended_4

Instances

Eq Chord_Type

Methods

(==) :: Chord_Type -> Chord_Type -> Bool

(/=) :: Chord_Type -> Chord_Type -> Bool

Show Chord_Type

Methods

showsPrec :: Int -> Chord_Type -> ShowS

show :: Chord_Type -> String

showList :: [Chord_Type] -> ShowS

is_suspended :: Chord_Type -> Bool

chord_type_tbl :: Num n => [(Chord_Type, ([String], [n]))]

Names and pc-sets for chord types. The name used here is in the first position, alternates follow.

chord_type_dat :: Num n => Chord_Type -> ([String], [n])

chord_type_pp :: Chord_Type -> String

chord_type_pcset :: Num n => Chord_Type -> [n]

data Chord

Constructors

CH PC Chord_Type (Maybe Extension) (Maybe PC)

Instances

Show Chord

Methods

showsPrec :: Int -> Chord -> ShowS

show :: Chord -> String

showList :: [Chord] -> ShowS

chord_pcset :: Chord -> (Maybe Int, [Int])

bass_pp :: PC -> String

chord_pp :: Chord -> String

type P a = GenParser Char () a

m_error :: String -> Maybe a -> a

p_note_t :: P Note_T

p_alteration_t_iso :: P Alteration_T

p_pc :: P PC

p_mode_m :: P Mode_T

p_chord_type :: P Chord_Type

p_extension :: P Extension

p_bass :: P (Maybe PC)

p_chord :: P Chord

parse_chord :: String -> Chord