\version "2.16.0"


major = #`(
    (0 . 0)
    (1 . 0)
    (2 . 0)
    (3 . 0)
    (4 . 0)
    (5 . 0)
    (6 . 0)
  )

minor = #`(
    (0 . 0)
    (1 . 0)
    (2 . ,FLAT)
    (3 . 0)
    (4 . 0)
    (5 . ,FLAT)
    (6 . ,FLAT)
    )


ionian = #`(
    (0 . 0)
    (1 . 0)
    (2 . 0)
    (3 . 0)
    (4 . 0)
    (5 . 0)
    (6 . 0)
  )


locrian = #`(
    (0 . 0)
    (1 . ,FLAT)
    (2 . ,FLAT)
    (3 . 0)
    (4 . ,FLAT)
    (5 . ,FLAT)
    (6 . ,FLAT)
  )


aeolian = #`(
    (0 . 0)
    (1 . 0)
    (2 . ,FLAT)
    (3 . 0)
    (4 . 0)
    (5 . ,FLAT)
    (6 . ,FLAT)
    )


mixolydian = #`(
    (0 . 0)
    (1 . 0)
    (2 . 0)
    (3 . 0)
    (4 . 0)
    (5 . 0)
    (6 . ,FLAT)
  )


lydian = #`(
    (0 . 0)
    (1 . 0)
    (2 . 0)
    (3 . ,SHARP)
    (4 . 0)
    (5 . 0)
    (6 . 0)
  )


phrygian = #`(
    (0 . 0)
    (1 . ,FLAT)
    (2 . ,FLAT)
    (3 . 0)
    (4 . 0)
    (5 . ,FLAT)
    (6 . ,FLAT)
)


dorian = #`(
    (0 . 0)
    (1 . 0)
    (2 . ,FLAT)
    (3 . 0)
    (4 . 0)
    (5 . 0)
    (6 . ,FLAT)
  )