module Tuning.Standard where


import Music
import Tuning
import Base


standardTuning :: Tuning
standardTuning = [(E, 2), (A, 2), (D, 3), (G, 3), (B, 3), (E, 4)]


formC   = ChordForm " (C form)" $ \f -> [(5, f+3), (4, f+2), (3, f), (2, f+1), (1, f)]
formC7  = ChordForm "7 (C form)" $ \f -> [(5, f+3), (4, f+2), (3, f+3), (2, f+1), (1, f)]

formA   = ChordForm " (A form)" $ \f -> [(5, f), (4, f+2), (3, f+2), (2, f+2), (1, f)]
formA7  = ChordForm "7 (A form)" $ \f -> [(5, f), (4, f+2), (3, f), (2, f+2), (1, f)]
formAm  = ChordForm "m (A form)" $ \f -> [(5, f), (4, f+2), (3, f+2), (2, f+1), (1, f)]
formAm7 = ChordForm "m7 (A form)" $ \f -> [(5, f), (4, f+2), (3, f), (2, f+1), (1, f)]

formG   = ChordForm " (G form)" $ \f -> [(6, f+3), (5, f+2), (4, f), (3, f), (2, f), (1, f+3)]
formG7  = ChordForm "7 (G form)" $ \f -> [(6, f+3), (5, f+2), (4, f), (3, f), (2, f), (1, f+1)]

formE   = ChordForm " (E form)" $ \f -> [(6, f), (5, f+2), (4, f+2), (3, f+1), (2, f), (1, f)]
formE7  = ChordForm "7 (E form)" $ \f -> [(6, f), (5, f+2), (4, f), (3, f+1), (2, f), (1, f)]
formEm  = ChordForm "m (E form)" $ \f -> [(6, f), (5, f+2), (4, f+2), (3, f), (2, f), (1, f)]
formEm7 = ChordForm "m7 (E form)" $ \f -> [(6, f), (5, f+2), (4, f), (3, f), (2, f), (1, f)]

formD   = ChordForm " (D form)" $ \f -> [(4, f), (3, f+2), (2, f+3), (1, f+2)]
formD7  = ChordForm "7 (D form)" $ \f -> [(4, f), (3, f+2), (2, f+1), (1, f+2)]
formDm  = ChordForm "m (D form)" $ \f -> [(4, f), (3, f+2), (2, f+3), (1, f+1)]
formDm7  = ChordForm "m7 (D form)" $ \f -> [(4, f), (3, f+2), (2, f+1), (1, f+1)]


openB7 = Chord "B7" [(5, 2), (4, 1), (3, 2), (2, 0), (1, 2)]