# Solfege - ear training for GNOME
# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005  Tom Cato Amundsen
# License is GPL, see file COPYING

header {
	content = harmonic-progression-dictation, id-by-name, dictation
	labelformat=progression
	random_transpose = yes
}

s = "\staff\relative c{ \stemUp %s}"
a = "\addvoice\relative c{ \stemDown %s}"
t = "\staff\relative c{ \clef bass \stemUp %s}"
b = "\addvoice\relative c{ \stemDown %s}"

question {
	name =  "I-II-V-I"
	tonic = chord("c g e' c''")
	music = s % "c'' a b c"
	      + a % "e'  d d e"
	      + t % "g'  f g g"
	      + b % "c   d g, c"
}

question {
	name = "I-IV-V-I"
	tonic = chord("c g e' c''")
	music = s % "c'' c b c"
	      + a % "e'  f d e"
	      + t % "g'  a g g"
	      + b % "c   f g c,"
}

question {
	name = "I-V-IV-I"
	tonic = chord("c e' g' c''")
	music = s % "c'' b c c"
	      + a % "e'  d f e"
	      + t % "g'  g a g"
	      + b % "c   g f c'"
}

question {
	name= "I-VI-V-I"
	tonic = chord("c g e' c''")
	music = s % "c'' c d c"
	      + a % "e'  e g e"
	      + t % "g'  a b g"
	      + b % "c   a g c"
}

