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

header {
    lesson_id = "csound-intonation-harmonic-p4-10cent"
        module = idbyname
        help = "idbyname-intonation"
        title = _("Is the interval flat, in tune or sharp? %s cent wrong") % 10
        lesson_heading = _("Just interval: %s") % _("perfect fourth") + " (4:3)"
        filldir = vertic
}

question {
 name = _i("intonation|flat")
 set=0
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 220.000000    i1 0 1 291.643858
 """)
}

question {
 name = _i("intonation|in tune")
 set=0
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 220.000000    i1 0 1 293.333333
 """)
}

question {
 name = _i("intonation|sharp")
 set=0
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 220.000000    i1 0 1 295.032596
 """)
}

question {
 name = _i("intonation|flat")
 set=1
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 233.081881    i1 0 1 308.985904
 """)
}

question {
 name = _i("intonation|in tune")
 set=1
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 233.081881    i1 0 1 310.775841
 """)
}

question {
 name = _i("intonation|sharp")
 set=1
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 233.081881    i1 0 1 312.576147
 """)
}

question {
 name = _i("intonation|flat")
 set=2
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 246.941651    i1 0 1 327.359162
 """)
}

question {
 name = _i("intonation|in tune")
 set=2
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 246.941651    i1 0 1 329.255534
 """)
}

question {
 name = _i("intonation|sharp")
 set=2
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 246.941651    i1 0 1 331.162892
 """)
}

question {
 name = _i("intonation|flat")
 set=3
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 261.625565    i1 0 1 346.824951
 """)
}

question {
 name = _i("intonation|in tune")
 set=3
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 261.625565    i1 0 1 348.834087
 """)
}

question {
 name = _i("intonation|sharp")
 set=3
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 261.625565    i1 0 1 350.854862
 """)
}

question {
 name = _i("intonation|flat")
 set=4
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 277.182631    i1 0 1 367.448235
 """)
}

question {
 name = _i("intonation|in tune")
 set=4
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 277.182631    i1 0 1 369.576841
 """)
}

question {
 name = _i("intonation|sharp")
 set=4
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 277.182631    i1 0 1 371.717778
 """)
}

question {
 name = _i("intonation|flat")
 set=5
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 293.664768    i1 0 1 389.297844
 """)
}

question {
 name = _i("intonation|in tune")
 set=5
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 293.664768    i1 0 1 391.553024
 """)
}

question {
 name = _i("intonation|sharp")
 set=5
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 293.664768    i1 0 1 393.821267
 """)
}

question {
 name = _i("intonation|flat")
 set=6
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 311.126984    i1 0 1 412.446699
 """)
}

question {
 name = _i("intonation|in tune")
 set=6
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 311.126984    i1 0 1 414.835978
 """)
}

question {
 name = _i("intonation|sharp")
 set=6
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 311.126984    i1 0 1 417.239099
 """)
}

question {
 name = _i("intonation|flat")
 set=7
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 329.627557    i1 0 1 436.972056
 """)
}

question {
 name = _i("intonation|in tune")
 set=7
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 329.627557    i1 0 1 439.503409
 """)
}

question {
 name = _i("intonation|sharp")
 set=7
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 329.627557    i1 0 1 442.049427
 """)
}

question {
 name = _i("intonation|flat")
 set=8
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 349.228231    i1 0 1 462.955766
 """)
}

question {
 name = _i("intonation|in tune")
 set=8
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 349.228231    i1 0 1 465.637642
 """)
}

question {
 name = _i("intonation|sharp")
 set=8
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 349.228231    i1 0 1 468.335053
 """)
}

question {
 name = _i("intonation|flat")
 set=9
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 369.994423    i1 0 1 490.484549
 """)
}

question {
 name = _i("intonation|in tune")
 set=9
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 369.994423    i1 0 1 493.325897
 """)
}

question {
 name = _i("intonation|sharp")
 set=9
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 369.994423    i1 0 1 496.183705
 """)
}

question {
 name = _i("intonation|flat")
 set=10
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 391.995436    i1 0 1 519.650278
 """)
}

question {
 name = _i("intonation|in tune")
 set=10
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 391.995436    i1 0 1 522.660581
 """)
}

question {
 name = _i("intonation|sharp")
 set=10
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 391.995436    i1 0 1 525.688323
 """)
}

question {
 name = _i("intonation|flat")
 set=11
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 415.304698    i1 0 1 550.550291
 """)
}

question {
 name = _i("intonation|in tune")
 set=11
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 415.304698    i1 0 1 553.739597
 """)
}

question {
 name = _i("intonation|sharp")
 set=11
 csound(load("share/sinus.orc"), """    f1 0 4096 10 1 
   i1 0 1 415.304698    i1 0 1 556.947378
 """)
}
