# Solfege - ear training for GNOME
# Copyright (C) 2000, 2001, 2002, 2003, 2004  Tom Cato Amundsen
# License is GPL, see file COPYING
#
# Lessonfile by Atte Andr Jensen, atte@post.com
# Examples in C:
#
# Dm7 G7 C
# II  V  I
#
# Dm7 Db7  C
# II  Vts I
# NB:"ts" means "tritone substitution"
#
# Ab7  G7 C
# (Vts) V I
# NB: parenthesis means "secondary function"
#
# Gm7 C7 F# Fm6 C
# (II V)->[IV] #IV IVmd I
# NB: "->" and brackets means that Gm7 C7 is 
# secondary II-V to IV, but that doesn't come.
# "md" means mol-dur which is the major scale with
# lowered sixth (Ab in C-major)

header {
        version = "1.1.1"
	content = harmonic-progression-dictation, dictation
	labelformat=progression
        #                low, high
	random_transpose = -3, 6
}

a = "\staff\relative c{ \stemUp %s}"
b = "\addvoice\relative c{ \stemUp %s}"
c = "\addvoice\relative c{ \stemUp %s}"

d = "\staff\relative c{ \clef bass\stemUp %s}"
e = "\addvoice\relative c{ \stemDown %s}"

question {
	name =  "II-V-I"
	music = a % "e'' e d"
	      + b % "a''  as g"
	      + c % "f'  f e"
	      + d % "c'  b b"
	      + e % "d   g, c"
}

question {
	name =  "II-V-I"
	music = a % "a'' as g"
	      + b % "e'  e d"
	      + c % "c'  b b"
	      + d % "f  f e"
	      + e % "d   g, c"
}

question {
	name =  "II-Vts-I"
	music = a % "e'' es d"
	      + b % "a''  as g"
	      + c % "f'  f e"
	      + d % "c'  b a"
	      + e % "d   des c"
}

question {
	name =  "II-Vts-I"
	music = a % "a'' g g"
	      + b % "e'  es d"
	      + c % "c'  b b"
	      + d % "f  f e"
	      + e % "d   des c"
}

question {
	name =  "(Vts)-V-I"
	music = a % "f' e d"
	      + b % "c'  b b"
	      + c % "bes'  as a"
	      + d % "ges'  f e"
	      + e % "as   g c"
}

question {
	name =  "(Vts)-V-I"
	music = a % "es'' es d"
	      + b % "bes''  as g"
	      + c % "ges''  f e"
	      + d % "c'  b a"
	      + e % "as'   g c,"
}

question {
	name =  "(II-V)->[IV]-#IV-IVmd-I"
	music = a % "a'' e e f g"
	      + b % "d' des c c c"
	      + c % "bes'  bes a as g"
	      + d % "f  e e d c "
	      + e % "g c, fis f e"
}


question {
	name =  "(II-V)->[IV]-#IV-IVmd-III"
	music = a % "a'' e e f g"
	      + b % "d' des c c b"
	      + c % "bes'  bes a as g"
	      + d % "f  e e d d "
	      + e % "g c, fis f e"
}

