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

header {
    lesson_id = "csound-intonation-harmonic-min7-30cent"
        module = idbyname
        help = "idbyname-intonation"
        title = _("Is the interval flat, in tune or sharp? %s cent wrong") % 30
        lesson_heading = _("Just interval: %s") % _("minor seventh") + " (16:9)"
        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 384.392056
 """)
}

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 391.111111
 """)
}

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 397.947613
 """)
}

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 407.249197
 """)
}

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 414.367788
 """)
}

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 421.610809
 """)
}

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 431.465495
 """)
}

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 439.007379
 """)
}

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 446.681093
 """)
}

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 457.121768
 """)
}

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 465.112116
 """)
}

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 473.242133
 """)
}

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 484.303643
 """)
}

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 492.769122
 """)
}

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 501.382574
 """)
}

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 513.101836
 """)
}

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 522.070699
 """)
}

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 531.196334
 """)
}

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 543.612459
 """)
}

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 553.114638
 """)
}

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 562.782911
 """)
}

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 575.937338
 """)
}

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 586.004546
 """)
}

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 596.247725
 """)
}

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 610.184355
 """)
}

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 620.850189
 """)
}

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 631.702459
 """)
}

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 646.467804
 """)
}

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 657.767863
 """)
}

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 669.265442
 """)
}

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 684.908780
 """)
}

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 696.880775
 """)
}

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 709.062036
 """)
}

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 725.635576
 """)
}

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 738.319462
 """)
}

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 751.225059
 """)
}
