# Solfege - free ear training software
# Copyright (C) 2010, 2011, 2016  Tom Cato Amundsen
# License is GPL, see file COPYING

include("include/mma-grooves")

header {
    lesson_id = "a5d5c65a-fe2a-4128-9dd5-22d98b69f058"
    module = elembuilder
    title = _("4 chords in harmonic minor mode")
    lesson_heading = _("Enter the harmonic progression")
    elements = auto
    have_music_displayer = no
}

question {
    name = rnc("I-IV-V-I")
    elements = "I", "IV", "V", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Fm
3   G
4   Cm
""")
}
question {
    name = rnc("I-VI-V-I")
    elements = "I", "VI", "V", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ab
3   G
4   Cm
""")
}
question {
    name = rnc("I-III-VI-I")
    elements = "I", "III", "VI", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ebaug
3   Ab
4   Cm
""")
}
question {
    name = rnc("I-V-VI-I")
    elements = "I", "V", "VI", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   G
3   Ab
4   Cm
""")
}
question {
    name = rnc("I-II-V-I")
    elements = "I", "II", "V", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ddim
3   G
4   Cm
""")
}
question {
    name = rnc("I-V-IV-I")
    elements = "I", "V", "IV", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   G
3   Fm
4   Cm
""")
}
question {
    name = rnc("I-II-VI-I")
    elements = "I", "II", "VI", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ddim
3   Ab
4   Cm
""")
}
question {
    name = rnc("I-IV-VI-I")
    elements = "I", "IV", "VI", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Fm
3   Ab
4   Cm
""")
}
question {
    name = rnc("I-III-V-I")
    elements = "I", "III", "V", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ebaug
3   G
4   Cm
""")
}
question {
    name = rnc("I-III-II-I")
    elements = "I", "III", "II", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ebaug
3   Ddim
4   Cm
""")
}
question {
    name = rnc("I-VI-II-I")
    elements = "I", "VI", "II", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ab
3   Ddim
4   Cm
""")
}
question {
    name = rnc("I-IV-II-I")
    elements = "I", "IV", "II", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Fm
3   Ddim
4   Cm
""")
}
question {
    name = rnc("I-VI-IV-I")
    elements = "I", "VI", "IV", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ab
3   Fm
4   Cm
""")
}
question {
    name = rnc("I-III-IV-I")
    elements = "I", "III", "IV", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ebaug
3   Fm
4   Cm
""")
}
question {
    name = rnc("I-V-II-I")
    elements = "I", "V", "II", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   G
3   Ddim
4   Cm
""")
}
question {
    name = rnc("I-II-IV-I")
    elements = "I", "II", "IV", "I"
    music = mma(nrandom(grooves), """
Tempo 120
include solfege-voicing.mma
1   Cm
2   Ddim
3   Fm
4   Cm
""")
}
