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

header {
    lesson_id = "e67c5bd2-a275-4d9a-96a8-52e43a1e8987"
        module = idbyname
        help = "idbyname-intonation"
        title = _("Is the fifth flat, in tune or sharp? %s") % "(0.997)"
        filldir = vertic
        fillnum = 4
}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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